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

[kaylow]

Bonjour,

Etant donné que tu as déclaré ta procédure dans l'interface de la feuille et non dans un module.

Il faut bien penser à déclarer la feuille à chaque fois que tu souhaite lui administrer une opération.

Sans cela il va bien chercher la valeur dans feuil2 mais il prend la ligne dans feuil1.

Code :

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

1
2
3
4
5
6
7

Sheets("Feuil2").Activate

Set r = Feuil2.Range("G4:G" & Feuil2.Range("G17").End(xlUp).Row)

r.Name = "Aliments"

[noel87003]

bonsoir,
merci beaucoup Keylow pour cette réponse rapide.
J'avais tenté cette manip dans mon fichier, mais j'ai du me planter dans la syntaxe.
ça marche nickel !
avec tous mes remerciements