Salut Mes amis,
Voilà mes 2 problèmes :
Ce bout de code marche bien.
1-Le problème :
Formula1:="=Data!$B$2:$B$" & LastRow ==>cette ligne de code je n'arrive pas à le faire marcher d'une autre manière.
Je veux que =====> Formula1:="Alpha;Gamma;Beta" avec
Const Alpha=1
Const Gamma="Go"
Const Beta="Now"
Quand je fais ce code, il affiche une liste n'es pas déroulante et un seul choix qui est Alpha;Gamma;Beta cad il ne voit les valeurs des variables
2- problème :Je veux que lors de l'affichage de la liste , j'attribue couleur rouge pour Gamma et vert pour Beta.
Merci d'avance
Voilà mes 2 problèmes :
Ce bout de code marche bien.
Code:
LastRow = Worksheets(Data).Range("B" & Rows.Count).End(xlUp).row
With Worksheets(Plans).Range(Cells(3, 3).Address & ":" & Cells(Rows.Count, 3).End(xlUp).Address).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Data!$B$2:$B$" & LastRow
.ErrorMessage = "You don't have the persmissison to write"
End With
1-Le problème :
Formula1:="=Data!$B$2:$B$" & LastRow ==>cette ligne de code je n'arrive pas à le faire marcher d'une autre manière.
Je veux que =====> Formula1:="Alpha;Gamma;Beta" avec
Const Alpha=1
Const Gamma="Go"
Const Beta="Now"
Quand je fais ce code, il affiche une liste n'es pas déroulante et un seul choix qui est Alpha;Gamma;Beta cad il ne voit les valeurs des variables
2- problème :Je veux que lors de l'affichage de la liste , j'attribue couleur rouge pour Gamma et vert pour Beta.
Merci d'avance