problème boucle vba

Re : problème boucle vba

Bonsoir
il faut déclarer orange as variant et çà devrait rouler
Cordialement
flyonets

Re : problème boucle vba

Merci pour ta réponse Flyonets, j'ai essayé mais toujours la même erreur. Le Débogeur surligne la ligne sous le Case Else.

Re : problème boucle vba

Bonjour à tous,
j'ai essayé d'autres choses mais ça ne marche toujours pas... mon dernier essai est :

Sub testcoul()
' macro couleurs
Dim i As Range
With ActiveSheet

For i = "D10" To "AT10"
Select Case i
Case Is = "A BATIR"
.ColorIndex = 3
.Pattern = xlSolid
Case Is = "ECART IMPORTANT"
.ColorIndex = 45
.Pattern = xlSolid
Case Is = "ECART MODESTE"
.ColorIndex = 6
.Pattern = xlSolid
Case Is = "REFERENT"
.ColorIndex = 4
.Pattern = xlSolid
Case Else
.ColorIndex = 6
.Pattern = xlSolid
i = i + 1
End Select
End With
End Sub

Ou ceci :
Sub testcoul()
' macro couleurs
Dim i As Range
With ActiveSheet
For Each i In Range("D10:AT10")
Select Case i
Case Is = "A BATIR"
.ColorIndex = 3
.Pattern = xlSolid
Case Is = "ECART IMPORTANT"
.ColorIndex = 45
.Pattern = xlSolid
Case Is = "ECART MODESTE"
.ColorIndex = 6
.Pattern = xlSolid
Case Is = "REFERENT"
.ColorIndex = 4
.Pattern = xlSolid
Case Else
.ColorIndex = 6
.Pattern = xlSolid
End Select
Next i

End With
End Sub

Quelqu'un aurait-il une idée svp ? Merci

Re : problème boucle vba

Bonjour,

A mon avis, le problème se situe là :
With ActiveSheet
Dim oRange As Range
For Each oRange In Range("D10:AT10").Cells
Select Case oRange
Case Is = "faux"
.ColorIndex = 3 etc...

Le point devant .ColorIndex indique que ce même colorindex appartient à l'objet déclaré par With. Or il se trouve que cet objet est ActiveSheet et la propriété colorindex ne s'applique pas à ActiveSheet.

Jocelyn

Re : problème boucle vba

J'ai essayé en mettant With Worksheets ("nomdemafeuille") et toujours le meme problème. Les mêmes instructions fonctionnent quand il n'y a pas de boucle et ne fonctionnent plus quand je mets une boucle.

Si j'applique ce que tu dis joss je remplace mon colorindex par quoi ?
MErci

Re : problème boucle vba

Essaye ça:
Sub couleur()
With ActiveSheet
For col = 4 To 46
Select Case .Cells(10, col)
Case "ECART MODESTE"
.Cells(10, col).Interior.ColorIndex = 45
Case "ECART IMPORTANT"
.Cells(10, col).Interior.ColorIndex = 6
Case "faux1"
.Cells(10, col).Interior.ColorIndex = 3
Case "vrai1"
.Cells(10, col).Interior.ColorIndex = 4
Case Else
.Cells(10, col).Interior.ColorIndex = 6
End Select
Next col
End With

End Sub

j'ai remplacé vrai et faux par vrai1 et faux1 , car vrai et faux sont des mots réservés.

Jocelyn

Re : problème boucle vba

Merci beaucoup Joss !! Ca marche !! 😀 😀