Colorier des cellules grace à un userforms

Bonjour,

Voila débutant en vba, je demande votre aide pour régler ou m'aider dans mon problème.

Je souhaite avec mes chiffres selectionnés( selection faite a partir d'un userforms) qui donneront donc un intervalle (exemple [1;10]) ,colorier les cellules comprise dans cette intervalle ( 1 et 10 compris).

13classeur1.xlsm (19.59 Ko)

Personne n'a une alternative à notre problème ? ou même une simplification ?

Sa me dépannerez grandement

Bonjour,

Essaye quelque chose comme ceci :

Private Sub ok_Click()
If selection1 = "" Or selection2 = "" Or Not IsNumeric(selection1) Or Not IsNumeric(selection2) Then Exit Sub
If Val(selection1) > Val(selection2) Then MsgBox "Selection1 doit être inférieur à sélection2": Exit Sub
Tb = Range("A1:CG1")
For i = LBound(Tb, 2) To UBound(Tb, 2)
   If Tb(1, i) >= Val(selection1) And Tb(1, i) <= Val(selection2) Then Cells(1, i).Interior.ColorIndex = 3
Next i
End Sub

Interior.ColorIndex = 3 donne du rouge.

Si tu veux d'autres couleurs....

Merci beaucoup ça marche très bien.

De rien.

N'hésite pas...

Rechercher des sujets similaires à "colorier userforms"