comment faire macro

Version imprimable

05/10/2021, 23h49
bob1978

comment faire macro

Salut tout le monde

J'ai un classeur constitué de n feuilles par exemple 4 feuilles dans l'exemple joint

Dans la feuille 4 je veux avoir 3 boutons; quand je clique sur le premier bouton il me copie les noms et prénoms de la feuille 1; quand je clique sur le bouton 2 il efface les noms et prénoms existant et copie les noms et prénoms de la feuille 2 et ainsi de suite...

j espère que c clair.

merci; j attends vos suggestions

https://www.cjoint.com/c/KJftxvJQJmg

1 pièce(s) jointe(s)

Bonjour,

Une façon de faire est d'avoir une macro qui se lance avec une touche ctrl+... et qui lance la copie des noms et prénoms sur la feuille prévue. Quelque chose de ce genre:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub CopieNP()
    ' Touche de raccourci du clavier: Ctrl+o
    If ActiveSheet.Name = "Feuil4" Then Exit Sub
    ThisWorkbook.Worksheets("Feuil4").Range("A:B").Clear
    Range("C5", Range("D5").End(xlDown)).Copy ThisWorkbook.Worksheets("Feuil4").Range("A1")
    ThisWorkbook.Worksheets("Feuil4").Select
End Sub
 
'--- version si les données sont en tableaux structurés (1 tableau par feuille)
Sub CopierTabNP()
    ' Touche de raccourci du clavier: Ctrl+i
    Dim sTabName
    If ActiveSheet.Name = "Feuil4" Then Exit Sub
    ThisWorkbook.Worksheets("Feuil4").Range("K:L").Clear
    sTabName = ActiveSheet.ListObjects(1).Name
    Range(sTabName & "[[#All],[NOM]:[PRENOM]]").Copy ThisWorkbook.Sheets("Feuil4").Range("K1")
    ThisWorkbook.Sheets("Feuil4").Select
End Sub

Cordialement.

07/10/2021, 10h54
78chris

1 pièce(s) jointe(s)
Bonjour à tous

Une approche différente par PowerQuery
- On utilise plutôt que des plages, des tableaux structurés (depuis plus de 17 ans, ils sont là pour faciliter la gestion des listes de données) correctement nommés. Ici j'ai utilisé, Liste1, Liste2, Liste3
- On récupère ces noms dans une requête utilisée par un TCD faisant l'objet d'un nom (page nommée) et équipé d'un segment
- Le choix d'une ou n Listes dans le segment va déclencher la restitution des noms de la ou des listes par un simple Requery de la requête qui les assemble en fonction de la sélection
Tout tableau ajouté dans le classeur dont le nom commence par Liste sera automatiquement pris en compte