Introduire une valiable dans le Range()
akregor
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
NHenry Messages postés 15235 Date d'inscription Statut Modérateur Dernière intervention -
NHenry Messages postés 15235 Date d'inscription Statut Modérateur Dernière intervention -
voici mon code que je suis assez désespéré de faire marcher, comme vous pouvez le voire, j'essaye de colorier des cases d'une base de donnée en fonction de leur contenu. qqun peut me dire quel est le hic ? j'aimerais bien introduire une variable dans le range et ne sait pas comment le faire ...
Sub eval()
Dim x As Integer
Dim a, b, c As Range
a = Range(Cells("A", x))
e = Range(Cells("E", x))
f = Range(Cells("F", x))
For x = 2 To a.Value = Null
Select Case e.Value
Case 4
Select Case f.Value
Case "Petit"
a.Interior.ColorIndex = 39
Case "Moyen"
a.Interior.ColorIndex = 39
Case "Grand"
a.Interior.ColorIndex = 39
End Select
Case 5
Select Case f.Value
Case "Petit"
a.Interior.ColorIndex = 39
Case "Moyen"
a.Interior.ColorIndex = 39
Case "Grand"
a.Interior.ColorIndex = 39
End Select
Case 6
Select Case f.Value
Case "Petit"
a.Interior.ColorIndex = 39
Case "Moyen"
a.Interior.ColorIndex = 39
Case "Grand"
a.Interior.ColorIndex = 39
End Select
Case 7
Select Case f.Value
Case "Petit"
a.Interior.ColorIndex = 39
Case "Moyen"
a.Interior.ColorIndex = 39
Case "Grand"
a.Interior.ColorIndex = 39
End Select
End Select
x = x + 1
Next x
End Sub
2 réponses
-
Bonjour,
Tu créés tes RANGE .. en dehors de ta boucle...
Normal que X ne change pas...
For x=2 to...... a = Range(Cells("A", x)) e = Range(Cells("E", x)) f = Range(Cells("F", x))
Ensuite...
Pour définir une Variable comme une RANGE .. il faut utiliser le mot clé.. SETdim a as range dim b as range dim c as range SET a = Range(Cells("A", x)) SET e = Range(Cells("E", x)) SET f = Range(Cells("F", x))
Et enfin... tu écris :For x = 2 To a.Value = Null
Cette syntaxe n'est pas bonne......
Si tu veux dire... jusqu'à ce que la cellule A soit vide... ce n'est pas un FOR qu'il faut utiliser mais un do loop until..
Dim valCelluleE Dim X as Integer X=2 Do Until IsEmpty(celluleActive) valCelluleE = cells(X,"E").value valCelluleF = cells(X,"F").value Select Case valCelluleE Case 4 Select Case valCelluleF Case "Petit" a.Interior.ColorIndex = 39 Case "Moyen" a.Interior.ColorIndex = 39 Case "Grand" a.Interior.ColorIndex = 39 End Select Case 5 '.... End Select X = X+1 Loop
-
Bonjour Akregor, bonjour le forum,
c'est quoi ton code. Du VB ou du VBA ?
Si c'est du VBA, je ne le comprends pas et je pense que tu devrais nous fournir un fichier exemple montrant ce tu as avant et ce que tu voudrais après le traitement par la macro...
