J'ai cette macro, et j'aimerai que les code couleurs mis après
array(...) soit mis automatiquement en fonction d'une plage de cellule
ou je les saisirai c'edst à dire sans passer par l'editeur vba.
est ce que c'est possible?
Sub Compare(Saisie As Range)
Dim Sam, i As Integer
Sam = Array(2, 17, 18, 19, 20, 0, 22, 23, 24, 0, 26, 27, 28, 29,
30, 31, 32, 33, 34, 0, 36, 39, 40, 41, 42, 43, 44, 45, 46, 47, 37, 37,
37, 37)
zz = UBound(Sam)
For i = 0 To UBound(Sam)
If Saisie = "" Then
Saisie.Interior.ColorIndex = xlNone
ElseIf Saisie = Sheets("Code").Range("B4").Offset(0, i)
Then
Saisie.Interior.ColorIndex = Sam(i)
Exit For
Else
Saisie.Interior.ColorIndex = xlNone
End If
Next i
End Sub
--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacquouille
Bonsoir La MEFC a la particularité de se faire automatiquement. Sur le site de noss binamèye Flo ( Excelabo), il y a une foultitude d'exemples à ce sujet. Si tu veux faire via VBA, je ne crois pas que l'automatisme soit possible. Il te faudrait une autre macro pour commander le changement de variable. Mais, ce que tu peux faire, c'est un truc du genre: For each c in range ("A1:D10") Select case c.value Case "Toto" : c.interior.colorindex = 36 Case "JPS": c """"" >>>>>>>>>>> 27 Case ......autant que tu veux End select Next ------------- Bonne chance -- Bien amicalmement, Vivement conseillé >> http://www.excelabo.net Jacquouille.
"Le Surcitaire" a écrit dans le message de news:
Bonjour, c est encore moi :/
J'ai cette macro, et j'aimerai que les code couleurs mis après array(...) soit mis automatiquement en fonction d'une plage de cellule ou je les saisirai c'edst à dire sans passer par l'editeur vba. est ce que c'est possible?
Sub Compare(Saisie As Range) Dim Sam, i As Integer Sam = Array(2, 17, 18, 19, 20, 0, 22, 23, 24, 0, 26, 27, 28, 29, 30, 31, 32, 33, 34, 0, 36, 39, 40, 41, 42, 43, 44, 45, 46, 47, 37, 37, 37, 37) zz = UBound(Sam) For i = 0 To UBound(Sam) If Saisie = "" Then Saisie.Interior.ColorIndex = xlNone ElseIf Saisie = Sheets("Code").Range("B4").Offset(0, i) Then Saisie.Interior.ColorIndex = Sam(i) Exit For Else Saisie.Interior.ColorIndex = xlNone End If Next i End Sub
-- enlever lesurcitaire La Vie n'est rien sans la joie de vivre
Bonsoir
La MEFC a la particularité de se faire automatiquement.
Sur le site de noss binamèye Flo ( Excelabo), il y a une foultitude
d'exemples à ce sujet.
Si tu veux faire via VBA, je ne crois pas que l'automatisme soit possible.
Il te faudrait une autre macro pour commander le changement de variable.
Mais, ce que tu peux faire, c'est un truc du genre:
For each c in range ("A1:D10")
Select case c.value
Case "Toto" : c.interior.colorindex = 36
Case "JPS": c """"" >>>>>>>>>>> 27
Case ......autant que tu veux
End select
Next
-------------
Bonne chance
--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.
j.thiernesseNOSPAM@skynet.be
"Le Surcitaire" <jdg74-lesurcitaire@tiscali.fr> a écrit dans le message de
news:mn.6c287d49203bc3ed.13377@tiscali.fr...
Bonjour, c est encore moi :/
J'ai cette macro, et j'aimerai que les code couleurs mis après
array(...) soit mis automatiquement en fonction d'une plage de cellule
ou je les saisirai c'edst à dire sans passer par l'editeur vba.
est ce que c'est possible?
Sub Compare(Saisie As Range)
Dim Sam, i As Integer
Sam = Array(2, 17, 18, 19, 20, 0, 22, 23, 24, 0, 26, 27, 28, 29,
30, 31, 32, 33, 34, 0, 36, 39, 40, 41, 42, 43, 44, 45, 46, 47, 37, 37,
37, 37)
zz = UBound(Sam)
For i = 0 To UBound(Sam)
If Saisie = "" Then
Saisie.Interior.ColorIndex = xlNone
ElseIf Saisie = Sheets("Code").Range("B4").Offset(0, i)
Then
Saisie.Interior.ColorIndex = Sam(i)
Exit For
Else
Saisie.Interior.ColorIndex = xlNone
End If
Next i
End Sub
--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre
Bonsoir La MEFC a la particularité de se faire automatiquement. Sur le site de noss binamèye Flo ( Excelabo), il y a une foultitude d'exemples à ce sujet. Si tu veux faire via VBA, je ne crois pas que l'automatisme soit possible. Il te faudrait une autre macro pour commander le changement de variable. Mais, ce que tu peux faire, c'est un truc du genre: For each c in range ("A1:D10") Select case c.value Case "Toto" : c.interior.colorindex = 36 Case "JPS": c """"" >>>>>>>>>>> 27 Case ......autant que tu veux End select Next ------------- Bonne chance -- Bien amicalmement, Vivement conseillé >> http://www.excelabo.net Jacquouille.
"Le Surcitaire" a écrit dans le message de news:
Bonjour, c est encore moi :/
J'ai cette macro, et j'aimerai que les code couleurs mis après array(...) soit mis automatiquement en fonction d'une plage de cellule ou je les saisirai c'edst à dire sans passer par l'editeur vba. est ce que c'est possible?
Sub Compare(Saisie As Range) Dim Sam, i As Integer Sam = Array(2, 17, 18, 19, 20, 0, 22, 23, 24, 0, 26, 27, 28, 29, 30, 31, 32, 33, 34, 0, 36, 39, 40, 41, 42, 43, 44, 45, 46, 47, 37, 37, 37, 37) zz = UBound(Sam) For i = 0 To UBound(Sam) If Saisie = "" Then Saisie.Interior.ColorIndex = xlNone ElseIf Saisie = Sheets("Code").Range("B4").Offset(0, i) Then Saisie.Interior.ColorIndex = Sam(i) Exit For Else Saisie.Interior.ColorIndex = xlNone End If Next i End Sub
-- enlever lesurcitaire La Vie n'est rien sans la joie de vivre
