Discussion :

[benjiprog]

Bonjour, voilà j'ai un programme dans lequel il y a une boucle, ma conditions d'arrêt est quand le texte TOTAL BZR CDG 2F apparait seulement ce texte s'étend sur 2 cellules : TOTAL est sous la colonne C et BZR CDG 2F sous la colonne D. Le problème est que je voudrais arrêter ma boucle quand il detecte le mot TOTAL seulement.
Ma condition d'arrêt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Cells(i, 3) = "TOTAL"

i correspond a la ligne ou le texte est écrit. Et ca ne marche pas il ne detecte pas le texte.

J'avais une autre solutions c'est de détecter quand la couleur de fond d'une cellule est orange mais je ne sais pas comment faire.

Merci d'avance pour vos réponses.

[jfontaine]

Tu pourrais boucler sur une colonne ou il y a toujours des données en vérifiant si elle est non vide, puis faire un test conditionnel pour savoir si C=Total et D = BZR CDG 2F

[benjiprog]

Oui , mais j'aimerais qu'il ne detecte que le mot TOTAL.
Ou alors je pense que par couleur de font de la cellule ce serait plus facile mais je vois pas trop comment faire j'ai été voir sur des sites mais pour detecter la couleur de fond je vois pas quel fonction utiliser.(J'aimerais detecter quand la couleur de fond est orange).

[jfontaine]

Pour la couleur tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

do while not Range("C" & i).Interior.Color<>6

l'index 6 correspond au jaune, a toi de choisir le bon index

[benjiprog]

J'essaie de repérer la couleur de fond d'une cellule blanche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If (Cells(i, 3).Interior.Color = 2) Then
    MsgBox "Blanc"
Else
    MsgBox "Pas blanc"
End If

Mais il ne reconnait pas la couleurs de fond il met toujours "pas blanc".
Je vois pas trop ce qui ne va pas.

[benjiprog]

j'ai trouver en fait il faut utiliser la macro RGB comme ceci (pour la couleur blanche) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If (Range("C11").Interior.Color = RGB(255, 255, 255))

Voilà j'éspère que ca aidera quelqun.

[mordrhim]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If (Cells(i, 3).Interior.ColorIndex = 2) Then
    MsgBox "Blanc"
Else
    MsgBox "Pas blanc"
End If

ColorIndex pour les index de couleur
Color pour le format RGB ou xlWhite par exemple