Erreur 438 ..

[Paoli33]

Bonjour,

Je suis en train de réaliser une macro afin de permettre aux utilisateurs de mettre à jour une plage.
S'ils ajoutent des lignes, ils peuvent mettre à jour le nom de la plage et actualiser ainsi une validation de donnée...
Cela à fonctionné pour une première plage mais pour les autres non ...

Voici le code

Dercell = Range("C2").End(xlDown).Row
ActiveWorkbook.Names("Dépallétiseur").RefersToR1C3 = "=Reference!R3C3:R" & Dercell & "C3"

Je présice par ailleurs que la liste est dans la colonne C et commence en C3 ....

Pourriez vous m'indiquer mon erreur s'il vous plait ou me mettre sur la piste ...

Merci par avance.

Par ailleurs si je ne poste pas dans la bonne rebrique je tiens à m'excuser.

 

[Papou-net]

Re : Erreur 438 ..

Bonsoir Paoli33,

Peut-être en modifiant la sélection de la dernière ligne ?

Ex :

Dercell = Range("C" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Names("Dépallétiseur").RefersToR1C3 = "=Reference!R3C3:R" & Dercell & "C3"

Cordialement.

 

[Paoli33]

Re : Erreur 438 ..

Je viens d'essayer mais il bute toujours sur la deuxième ligne ...

 

[jpb388]

Re : Erreur 438 ..

Bonjour à tous
essai ceci

Dercell = Range("C2").End(xlDown).Row
 ActiveWorkbook.Names.Add Name:="Dépallétiseur", RefersTo:="$C$3:$c$" & Dercell

 

[Paoli33]

Re : Erreur 438 ..

Merci à tous j'ai des solutions partout ^^
Voici ce qui fonctionne finalement :

ActiveWorkbook.Names.Add Name:="Dépallétiseur", RefersTo:="=Reference!C3:C" & Dercell

 

[jpb388]

Re : Erreur 438 ..

re
exact j'ai oublié de mettre la page