Discussion :

[noel87003]

bonjour,
dans feuil2, j'ai un bouton qui exécute ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton1_Click()
Dim r As Range
    Set r = Range("G4:G" & Range("G17").End(xlUp).Row)
    r.Name = "Aliments"
End Sub

qui me permet de créer une liste de noms faisant référence à G4:G10 par exemple.
si en G11, j'ajoute une ligne, en cliquant sur le bouton, ça marche, la liste est bien mise à jour.

Je souhaite un bouton dans feuil1 qui fasse la mise à jour de cette liste de noms (d'autres procédures dans cette feuille vont rajouter des données dans la feuill2)
j'ai tester ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Sheets("Feuil2").Activate
Set r = Feuil2.Range("G4:G" & Range("G17").End(xlUp).Row)
    r.Name = "Aliments"

mais ça ne fonctionne pas, la liste est dimensionné par rapport au contenu de la feuil1 et non de la feuil2.
Merci pour votre aide