bonjour
j'ai ce code :
Range(Cells(150, Col), Cells(295, Col)).Select
Selection.Sort Key1:=Cells(151, Col), Order1:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
lig = 150
Cells(lig, Col).Select
While ActiveCell.Value = vide And lig < 295
lig = lig + 1
Cells(lig, Col).Select
Wend
deb = ActiveCell.Row
ActiveWorkbook.Names.Add Name:="Liste" & liste, RefersToR1C1:="=Feuille de garde!R" & deb & "C" & Col & ":R296C" & Col
liste = liste + 1
Next
ce qui devrait mepermettre de faire des listes de validation en tapant en source exemple: =liste1
mais quand je tape cela j'ai un message d'erreur "la source eest reconnue comme erronée
que faire ?
merci de votre aide
j'ai ce code :
Range(Cells(150, Col), Cells(295, Col)).Select
Selection.Sort Key1:=Cells(151, Col), Order1:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
lig = 150
Cells(lig, Col).Select
While ActiveCell.Value = vide And lig < 295
lig = lig + 1
Cells(lig, Col).Select
Wend
deb = ActiveCell.Row
ActiveWorkbook.Names.Add Name:="Liste" & liste, RefersToR1C1:="=Feuille de garde!R" & deb & "C" & Col & ":R296C" & Col
liste = liste + 1
Next
ce qui devrait mepermettre de faire des listes de validation en tapant en source exemple: =liste1
mais quand je tape cela j'ai un message d'erreur "la source eest reconnue comme erronée
que faire ?
merci de votre aide