liste déroulante avec plage de cellule variable

[tonix]

bonjour le forum,

j'ai un petit problème,j'aimerai modifier la plage de cellule d'une liste déroulante a l'aide d'une macro. Je m'explique, je suis amené a supprimer ou ajouter des lignes dans la liste déroulante et ca modifie la plage de cellule selectionnée dans la source. voici mon code. En rouge c'est la plage de cellule selectionnée. La première valeur est fixe mais j'aimerai que la seconde soit variable et non fixe, comment faire?

With Selection.Validation
.delete
.add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:='=$A$9:$A$45'
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ''
.ErrorTitle = ''
.InputMessage = ''
.ErrorMessage = ''
.ShowInput = True
.ShowError = True
End With
End Sub
Merci d'avance, tonix

 

[JPM]

Bonjour à tous,

peut etre en remplacant :

.add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:='=$A$9:$A$45'

par

.add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:='=$A$9:$A$' & Range('A9').End(xlDown).Row

Bonne soirée,

Jean-Pierre

 

[tonix]

Bonjour Jean-Pierre
apparement ca fonctionne bien, merci beaucoup je suis dessus depuis 2h merci bon weekend by.
tonix