Bonjour à tous !
J'ai une feuille avec de nombreux champs de liste déroulante (situés dans ma feuille "BPU") tous reliés à la même liste qui elle est située dans une autre feuille ("BPU - Tampon"). A savoir que la validation doit être exécutée après une autre macro car cette précédente casse les références de cette validation comme ça :
=DECALER('BPU - Tampon'!#REF!;;;NBVAL('BPU - Tampon'!#REF!))
Voilà mon code qui se décompose en 2 parties qui consiste à "réparer" ma procédure de validation et l'etendre aux autres cellules :
Sub Liste_Validation()
' Sert a recuperer les données sur les listes deroulantes
With Sheets("BPU")
With Range("A15").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= _
"=DECALER('BPU - Tampon'!$B$2;;;NBVAL('BPU - Tampon'!$B$2:$B$1000))"
End With
End With
Selection.AutoFill Destination:=Range("A15:A61"), Type:=xlFillDefault
Range("A15:A61").Select
End Sub
Lorsque je lance la macro j'ai une erreur 1004 "Erreur d’exécution".
Je suis vraiment bloqué et je n'arrive pas a cerner le problème.
Merci d'avance pour vos réponses !