Bonjour a tous.
J'ai réalisé un classeur qui comprends plusieurs feuilles:"Français";"Anglais";"Italiens", "Espagnols".
Chaques feuilles comprend les mêmes colonnes: Nom, Prénom, Date de Naissance, Licence.
Les lignes de ces différents tableaux s'alimentent grâce à un Userform qui ventile les nouvelles entrées en fonction de la nationalité renseignée.
J'ai créé une "plage nommée" pour chaque tableau de chacune de ces feuilles:
"Data_Français";"Data_Anglais";"Data_Italiens", "Data_Espagnols"
Je souhaiterai maintenant remplir une nouvelle feuille "Data" qui accueillerai l'une en dessous de l'autre, les données des différentes feuilles précédentes en appelant les plages nommées.
J'y arrive avec le code suivant:
Private Sub Worksheet_Activate()
Range("Data_Français").Copy Sheets("Data").Range("A" & Range("A65536").End(xlUp).Row)
Range("Data_Anglais").Copy Sheets("Data").Range("A" & Range("A65536").End(xlUp).Row)
Range("Data_Italiens").Copy Sheets("Data").Range("A" & Range("A65536").End(xlUp).Row)
Range("Data_Espagnols").Copy Sheets("Data").Range("A" & Range("A65536").End(xlUp).Row)
End Sub
Seulement, avec ce code, chaque fois que je bascule sur une autre feuille de mon classeur, et que je reviens sur la feuille "Data", cette dernière ajoute à chaque reprise une nouvelle fois chaque plage nommée !
Ma formule n'est donc pas la bonne.
Par ailleurs, je souhaiterai que, si par la suite, je modifie une cellule de ma feuille " Data", ces modifications se répercutent dans les autres feuilles concernées.
J'ai essayé avec un copier coller ou un tableau croisé dynamique, mais je ne connais pas les formulations VBA pour collage spécial avec liaisons.
Si quelqu'un avait une idée qui me permettrai d'avancer.
Merci
J'ai réalisé un classeur qui comprends plusieurs feuilles:"Français";"Anglais";"Italiens", "Espagnols".
Chaques feuilles comprend les mêmes colonnes: Nom, Prénom, Date de Naissance, Licence.
Les lignes de ces différents tableaux s'alimentent grâce à un Userform qui ventile les nouvelles entrées en fonction de la nationalité renseignée.
J'ai créé une "plage nommée" pour chaque tableau de chacune de ces feuilles:
"Data_Français";"Data_Anglais";"Data_Italiens", "Data_Espagnols"
Je souhaiterai maintenant remplir une nouvelle feuille "Data" qui accueillerai l'une en dessous de l'autre, les données des différentes feuilles précédentes en appelant les plages nommées.
J'y arrive avec le code suivant:
Private Sub Worksheet_Activate()
Range("Data_Français").Copy Sheets("Data").Range("A" & Range("A65536").End(xlUp).Row)
Range("Data_Anglais").Copy Sheets("Data").Range("A" & Range("A65536").End(xlUp).Row)
Range("Data_Italiens").Copy Sheets("Data").Range("A" & Range("A65536").End(xlUp).Row)
Range("Data_Espagnols").Copy Sheets("Data").Range("A" & Range("A65536").End(xlUp).Row)
End Sub
Seulement, avec ce code, chaque fois que je bascule sur une autre feuille de mon classeur, et que je reviens sur la feuille "Data", cette dernière ajoute à chaque reprise une nouvelle fois chaque plage nommée !
Ma formule n'est donc pas la bonne.
Par ailleurs, je souhaiterai que, si par la suite, je modifie une cellule de ma feuille " Data", ces modifications se répercutent dans les autres feuilles concernées.
J'ai essayé avec un copier coller ou un tableau croisé dynamique, mais je ne connais pas les formulations VBA pour collage spécial avec liaisons.
Si quelqu'un avait une idée qui me permettrai d'avancer.
Merci