Bonjour à tous,    
je souhaiterai améliorer ce code vba pour automatiser le processus. Le but de la macro est de copier automatiquement une ligne d'un tableau dans un autre en fonction d'un critère défini. Pour expliquer ce que je souhaite faire j'ai sur une feuille excel  
Feuille 1 : tableau général (A :Nom, B : prénom, C: age et D : n° de groupe)
Feuille 2 : tableau groupe 1 (A :Nom, B : prénom, C: age)
feuille 3 : tableau groupe 2 (A :Nom, B : prénom, C: age)
ETC
Selon le n° de groupe dans la colonne D de la feuille 1 cela recopie automatiquement la ligne correspondante dans un des tableau sur les feuilles suivantes (feuille crée par groupe)
La macro existante fonctionne mais en double cliquant à chaque fois sur les cellules de la colonne D. Je cherche à automatiser cela si possible. Par exemple en attribuant le déroulement de la macro par un clique sur un Useform.
Voilà le code:  
 
Option Explicit
 
Dim f As Worksheet, fd As Worksheet
 
Private Sub Worksheet_Change(ByVal Target As Range)
     
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    Set fd = ActiveSheet
    If Not Intersect(Target, Range("D2:D" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then
        On Error GoTo NlleF
        Set f = Sheets(Target.Value)
        On Error GoTo 0
        fd.Range(fd.Cells(Target.Row, "A" ), fd.Cells(Target.Row, "C" )).Copy f.Range("A" & Rows.Count).End(xlUp)(2)
    End If
fin:
    Application.EnableEvents = True
Exit Sub
 
NlleF:
    If Target.Value = "" Then GoTo fin
    Sheets.Add.Move After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Target.Value
    fd.Range("A1:C1" ).Copy ActiveSheet.Range("A1" )
    Resume
End Sub
 
Merci de votre aide

Salut.
 
Ton code fonctionne à chaque modification de cellule. A chaque fois que tu rentres un nom de groupe dans la cellule D, il copie les valeurs des cellules A, B, C dans l'onglet correspondant au groupe. Bref, ça tu le sais, ça fonctionne bien.
 
Mais du coup, est-ce que ce que tu veux faire, c'est rentrer toutes tes données dans ta feuille générale puis cliquer sur un bouton qui va remplir les feuilles groupes avec toutes les données de la feuille générale ?
En gros, ne plus lancer automatiquement le code à chaque modif de cellule, mais manuellement avec un bouton ?

Salut Milfeuilles, merci de t'intéresser à mon problème. Oui c'est exactement ce que je cherche. Merci

Pour passer d'une action automatique à une action sur un bouton, il faut virer

et le remplacer par une procédure que tu nommes comme tu veux

 
Ensuite, la variable "Target" n'est plus utilisable, puisqu'elle était activée par modification de la cellule et n'avait d'effet que sur la ligne en cours. Il faut maintenant boucler sur toutes les lignes, d'où la boucle "for" et l'utilisation de la variable "i" pour passer d'une ligne à l'autre.
Il y a d'autres soucis à régler dans l'exécution du code par la suite, n'hésite pas à demander si y'a un truc que tu ne comprends pas.
 
Ca donne ça:

 
Tu peux soit appeler la macro classiquement avec l'onglet développeur, soit créer un bouton sur ta page (onglet développeur/insérer/bouton) et lui affecter la macro.
 
Bonne journée.

Alors, ça fonctionne pour toi ?

Bonjour à tous
Salut Milfeuilles, j'essai de faire tourner le code avec mon fichier, mais j'ai des bugs que j'essaye de résoudre. Pas évident mais bon j'essaye de bidouiller le code.
Merci
A plus