Kouik Kouik jr
XLDnaute Occasionnel
Bonjour tout le monde,
j'ai un problème assez difficile, j'essaie de faire en sorte que si une cellule dans la ligne A contient le mot estimated (february estimated) alors pour toutes les cellules de cette colonne qui correspondent avec la colonne S elles soient paintes en jaune.
De plus, (c'est la que je peine) si une autre cellule de cette même ligne contient le mot estimated (march estimated) alors il faudrait que pour toutes les cellules de cette colonne qui correspondent avec la colonne T elles soient paintes en jaune.
Voici mon code:
la partie peinture marche sans soucis c'est la condition :
If Range("C1").Value Like "estimated*" Then
Ou j'aimerais remplacer le "C1" qui est une saisie manuelle par une recherche automatique de la cellule contenant "estimated" idem pour les cellules suivantes contenant "estimated" sur la même ligne
Un gros gros gros merci d'avance pour votre aide
i = 1
While i < Fin
If Range("C1").Value Like "estimated*" Then
If Worksheets("HSBC").Range("C" & i).Value = Worksheets("HSBC").Range("S" & i).Value Then
Worksheets("HSBC").Activate
Worksheets("HSBC").Range("C" & i).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End If
i = i + 1
Wend
j'ai un problème assez difficile, j'essaie de faire en sorte que si une cellule dans la ligne A contient le mot estimated (february estimated) alors pour toutes les cellules de cette colonne qui correspondent avec la colonne S elles soient paintes en jaune.
De plus, (c'est la que je peine) si une autre cellule de cette même ligne contient le mot estimated (march estimated) alors il faudrait que pour toutes les cellules de cette colonne qui correspondent avec la colonne T elles soient paintes en jaune.
Voici mon code:
la partie peinture marche sans soucis c'est la condition :
If Range("C1").Value Like "estimated*" Then
Ou j'aimerais remplacer le "C1" qui est une saisie manuelle par une recherche automatique de la cellule contenant "estimated" idem pour les cellules suivantes contenant "estimated" sur la même ligne
Un gros gros gros merci d'avance pour votre aide
i = 1
While i < Fin
If Range("C1").Value Like "estimated*" Then
If Worksheets("HSBC").Range("C" & i).Value = Worksheets("HSBC").Range("S" & i).Value Then
Worksheets("HSBC").Activate
Worksheets("HSBC").Range("C" & i).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End If
i = i + 1
Wend