Discussion :

[Modoul]

Bonjour,

Merci par avance si quelqu'un veux bien m'aider car je galére.

Je voudrais vérifier sur chaque ligne d'un fichier pour des colonnes distincts (elle ne se suivent pas ) par exemple F M Q Z si les cellules correspondante sont non vide.
Si toutes les cellules aprés vérifications sont non vide alors je mets une couleur (verte) sur une colone qui les précédent par exemple B pour la ligne correspondante.

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
For j = 2 To .Range("A65356").End(xlUp).Row
 
   If (Range("T" & j).Value <> " " And Range("W" & j).Value <> " " And Range("Z" & j).Value <> " " And Range("AC" & j).Value <> " " And Range("AF" & j).Value <> " " And Range("AI" & j).Value <> " " And Range("AL" & j).Value <> " " And Range("AO" & j).Value <> "" And Range("AR" & j).Value <> " " And Range("AU" & j).Value <> " " And Range("AX" & j).Value <> " " And Range("BA" & j).Value <> " " And Range("BD" & j).Value <> " " And Range("BC" & j).Value <> " " And Range("BJ" & j).Value <> " " And Range("BM" & j).Value <> " " And Range("BP" & j).Value <> " " And Range("BS" & j).Value <> " " And Range("BV" & j).Value <> " " And Range("BY" & j).Value <> " ") Then
 
   Range("T" & j).Offset(0, -4).Interior.Color = 65280
 
   Else
 
   Range("T" & j).Offset(0, -4).Interior.ColorIndex = xlNone
 
   End If
 
next j.

Merci pour vos solutions.

[patricktoulon]

bonjour

1. si t'es sur de vouloir tester un espace et non simplement le vide dans la cellule
2. n'y verrais tu pas plus clair comme ca ???

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub test()
'si 'au moins l'une d'entre elles contient un espace
Dim j As Long, x As Boolean
    For j = 2 To .Range("A65356").End(xlUp).Row
        Add = Array("T", "W", "Z", "AC", "AF", "AI", "AL", "AO", "AR", "AU", "AX", "BA", "BD", "BC", "BJ", "BM", "BP", "BS", "BV", "BY")
        x = False
        For i = 0 To UBound(Add)
            If Range(Add(i) & j) <> " " Then x = True
        Next
 
        If x = True Then
            Range("T" & j).Offset(0, -4).Interior.Color = 65280
        Else
            Range("T" & j).Offset(0, -4).Interior.ColorIndex = xlNone
        End If
    Next
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test2()
' si 'absolument toutes contiennent un espace
   Dim j As Long, x As Boolean,texte
    For j = 2 To .Range("A65356").End(xlUp).Row
        Add = Array("T", "W", "Z", "AC", "AF", "AI", "AL", "AO", "AR", "AU", "AX", "BA", "BD", "BC", "BJ", "BM", "BP", "BS", "BV", "BY")
        x = False
        For i = 0 To UBound(Add)
            texte = texte & Range(Add(i) & j).Text
        Next
 
        If texte = Application.Rept(" ", UBound(Add)) Then
            Range("T" & j).Offset(0, -4).Interior.Color = 65280
        Else
            Range("T" & j).Offset(0, -4).Interior.ColorIndex = xlNone
        End If
    Next
End Sub

si c'est le vide que tu teste c'est pas " " mais "" et pour la 2d supposition c'est If trim(texte)="" Then

je te laisse annalyser cela

[Modoul]

Merci Patricktoulon pour ton retour.

Ta deuxième solution me vas très bien elle fonctionne avec quelques modifications.

Ce que j'avais proposé fonctionne aussi très bien car mon erreur c'étais de mettre " " au lieu de "";

Par ailleurs j'ai une petite question : qu' est ce qui t a intuitionné d'utiliser des array liste?

Je suis pas expert mais ceci me servira à l'avenir.

Cordialement.

[patricktoulon]

re
j'utilise un array pour simplifier l'ecriture ta condition if etait interminable j'ai pris peur quand j'ai vu ca
a déboguer ce serait été un calvaire
un code propre et clair fonctionne toujours mieux et plus rapide


pour le test toutes les cellule vides

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test2()
' si 'absolument toutes sont vides
   Dim j As Long, x As Boolean, texte
    For j = 2 To .Range("A65356").End(xlUp).Row
        Add = Array("T", "W", "Z", "AC", "AF", "AI", "AL", "AO", "AR", "AU", "AX", "BA", "BD", "BC", "BJ", "BM", "BP", "BS", "BV", "BY")
        x = False
        For i = 0 To UBound(Add)
            texte = texte & Range(Add(i) & j).Text
        Next
 
        If texte = "" Then
            Range("T" & j).Offset(0, -4).Interior.Color = 65280
        Else
            Range("T" & j).Offset(0, -4).Interior.ColorIndex = xlNone
        End If
    Next
End Sub

si pour les couleur tu veux l'inverse change"=" pour"<>"