Discussion :

[flyfranky]

Bonjour à tous,

je vous pose mon problème (c'est ça quand on est débutant) :

- j'ai une case qui est ma valeur de référence (une valeur).
- j'ai 3 plages situées dans la même colonne (non contigue à la case de reférence et pas entre elles) avec une mise en forme conditionnelle qui met le texte rouge quand c'est faux et vert quand c'est ok.
- je voudrais cocher une case dans le même colonne (1 cellule pour le ok, 1 autre pour le nok) : ok si tout est vert
nok si au moins 1 rouge
- je voudrais répeter cette opération sur 9 colonnes contigues
(voir fichier joint)

ps : si au lieu de cocher une cellule je pouvais cocher une case (j'ai un shape sur mon fichier), ça serait le top.

merci

[Jean-Philippe André]

bonjour et bienvenue sur le forum déjà
la notion de couleur des cellules est accessible via la fonction suivante :

Code :

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

Range().Interior.ColorIndex

le vert étant la valeur 4 et le rouge 3 je crois me rappeler.

Pour les différentes questions, on a pour habitude ici de donner des billes pour t'aider à trouver par toi même au final la solution, et pas balancer bêtement du code déjà tout parfait (j'en suis même incapable >_<").
Dis-nous si la gestion des couleurs déjà tu as géré ou pas, OK ?

[flyfranky]

j'ai lu sur la toile que j'étais un "navigateur", ou plutot un voleur de bout de code.
j'ai un ensemble de bout de code mais je n'arrive pas à les assembler.

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
19
Sub compare()
 
Dim cellule As Range
Dim total As Variant
Dim n As Double
n = 0
With ActiveCell
    Union(Range("A3:A5"), Range("a7:a9"), Range("a11:a13")).Select
End With
For Each cellule In Selection
    If cellule.Font.ColorIndex = 4 Then
        n = n
    Else: n = n + 1
    End If
Next
    If n > 0 Then
        Worksheets("feuil1").Range("a15").formulaRC = "X"
    End If
End Sub

il faudrait que je rajoute un offset pour le decalage mais c'est déjà le bordel sur une colonne donc ....

pour la couleur du texte, j'ai utilisé la mise en forme conditionnelle sous excel (pas trop de macro, je commence à saturer )

pour info, ça fait 2 jours que je surf sur vos tuto et 4 jours que je fais des macro (dont 2 en macro enregisté)

[Jean-Philippe André]

à quel niveau souhaites-tu intégrer un offset ?
le code me parait bon, mais pense à ajouter les balises de code pour qu'il soit plus lisible stp

[flyfranky]

il faut mettre l'offset après qu'il est coché la case de résultat (je vérifie les cellules, si ok je coche puis je passe à la colonne d'après)

c'est quoi des balises de code?

[Jean-Philippe André]

alors pour les balises de code, il s'agit du # eu dessus de ta zone de texte.

Pour l'offset, un compteur devrait faire l'affaire non ?

[flyfranky]

c'est ça?

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
19
20
21
22
23
24
25
Sub compare()
'préparation des variables
Dim cellule As Range
Dim total As Variant
Dim n As Double
n = 0
'je selectionne mes plages
With ActiveCell
    Union(Range("A3:A5"), Range("a7:a9"), Range("a11:a13")).Select
End With
' pour toutes les plages de la selection
For Each cellule In Selection
    ' si le texte est vert n=n
    If cellule.Font.ColorIndex = 4 Then
        n = n
    'sinon n+1
    Else: n = n + 1
    End If
'je recommence pour les 2 autres plages
Next
    'si n>0 écrire x dans la case ok
    If n > 0 Then
        Worksheets("feuil1").Range("a15").formulaRC = "X"
    End If
End Sub

un compteur , c'est aussi avec for...next? mais il faut que je rajoute une variable pour le numéro de la colonne

[Jean-Philippe André]

tu peux voir avec Cells(15,1) à la place du Range("A15")

[flyfranky]

je viens de comprendre pour les balises

# test #

je crois comprendre.
si je crée j variable as interger et je remplace n°colonne par j, ça doit marcher?

[Jean-Philippe André]

oui, mais si tu restes à la ligne 15, pas la peine d'avoir une variable, tu utiliseras seulement

Code :

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

Cells(15,j)

[flyfranky]

j'ai modifié pour que la macro prenne en compte le décalage.

mais il ne veut pas me mettre le mot "ok" dans la case correspondante.

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
19
20
21
22
23
24
25
26
27
28
Sub compare()
'préparation des variables
Dim cellule As Range
Dim total As Variant
Dim n As Double
Dim j As Integer
 
For j = 3 To 12
    n = 0 'je selectionne mes plages
With ActiveCell
    Union(Range(Cells(33, j), Cells(35, j)), Range(Cells(37, j), Cells(39, j)), Range(Cells(41, j), Cells(43, j))).Select
End With
' pour toutes les plages de la selection
For Each cellule In Selection
    ' si le texte est vert n=n
    If cellule.Font.ColorIndex = 4 Then
        n = n
    'sinon n+1
    Else: n = n + 1
    End If
'je recommence pour les 2 autres plages
Next
Next j
    'si n=0 écrire ok dans la case ok
    If n = 0 Then
       ActiveSheet.Cells(44, j).Value = "ok"
    End If
End Sub

je comprend plus rien là

[Jean-Philippe André]

dans ton code, tu mettras toujours ok dans la colonne L (j=12). Il faut mettre la ligne "OK" comme ceci :

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
19
20
21
22
23
24
25
26
27
28
Sub compare()
'préparation des variables
Dim cellule As Range
Dim total As Variant
Dim n As Double
Dim j As Integer
 
For j = 3 To 12
    n = 0 'je selectionne mes plages
With ActiveCell
    Union(Range(Cells(33, j), Cells(35, j)), Range(Cells(37, j), Cells(39, j)), Range(Cells(41, j), Cells(43, j))).Select
End With
' pour toutes les plages de la selection
For Each cellule In Selection
    ' si le texte est vert n=n
    If cellule.Font.ColorIndex = 4 Then
    Else
        n = n + 1
    End If
'je recommence pour les 2 autres plages
Next
'si n=0 écrire ok dans la case ok
    If n = 0 Then
       ActiveSheet.Cells(44, j).Value = "ok"
    End If
 
Next j
    End Sub

[flyfranky]

erreur de ma part

Mais il ne veut toujours pas me mettre ok même si je change la couleur
as tu vu où j'ai pu faire une erreur ?

elle se joue de moi cette macro

ps:
pour être sur d'être bien compris
ecrire ok à la fin de chaque colonne testé (ou non) puis passer à la suivante

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
19
20
21
22
23
24
25
26
27
28
Sub compare()
'préparation des variables
Dim cellule As Range
Dim total As Variant
Dim n As Double
Dim j As Integer
 
For j = 3 To 12
    n = 0 'je selectionne mes plages
With ActiveCell
    Union(Range(Cells(33, j), Cells(35, j)), Range(Cells(37, j), Cells(39, j)), Range(Cells(41, j), Cells(43, j))).Select
End With
' pour toutes les plages de la selection
For Each cellule In Selection
    ' si le texte est vert n=n
    If cellule.Font.ColorIndex = 1 Then
        n = n
    'sinon n+1
    Else: n = n + 1
    End If
'je recommence pour les 2 autres plages
Next
    'si n=0 écrire ok dans la case ok
    If n = 0 Then
       ActiveSheet.Cells(44, j).Value = "ok"
    End If
Next j
End Sub

merci encore

[Jean-Philippe André]

hum, tu lance compare après l'evenement change de ta worksheet ?
pourquoi testes tu la colorindex à 1 ?

[flyfranky]

hum, tu lance compare après l'evenement change de ta worksheet ?

ça y est, tu parles chinois !!!!
je compare mon n (nombre de texte noir) par rapport à 0 et je dois (je dis bien dois) avoir ok si le texte des plages de la colonne est noir en ligne 44.

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
19
20
21
22
23
24
25
26
27
28
29
30
Sub compare()
'préparation des variables
Dim cellule As Range
Dim total As Variant
Dim n As Double
Dim j As Integer
 
For j = 3 To 12
    n = 0 
'je selectionne mes plages
With ActiveCell
    Union(Range(Cells(33, j), Cells(35, j)), Range(Cells(37, j), Cells(39, j)), Range(Cells(41, j), Cells(43, j))).Select
End With
' pour toutes les plages de la selection
For Each cellule In Selection
    ' si le texte est noir n=n
    If cellule.Font.ColorIndex = 1 Then
        n = n
    'sinon n+1
    Else: n = n + 1
    End If
'je recommence pour les 2 autres plages
Next
    'si n=0 écrire ok dans la case ok
    If n = 0 Then
       ActiveSheet.Cells(44, j).Value = "ok"
    End If
'je fais ça sur les autres colonnes
Next j
End Sub

j'ai mis 1 pour le noir ( j'avais peur de ne pas reconnaitre le bon vert) puis je vais rechanger pour du vert quand ça marchera

[flyfranky]

slt,
le programme regarde bien les bonnes cellules, ecrit dans la case résultat mais il n'arrive pas à lire la couleur du texte (j'ai fais une mise en forme conditionnelle et la valeur est toujours -4105)
j'ai donc comparé mes valeurs avec la ref (text et valeur)

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub comparetest()
'préparation des variables
Dim cellule As Range
Dim total As Variant
Dim n As Double
Dim j As Integer
 
For j = 3 To 12
    n = 0 'je selectionne mes plages
With ActiveCell
    Union(Range(Cells(33, j), Cells(35, j)), Range(Cells(37, j), Cells(39, j)), Range(Cells(41, j), Cells(43, j))).Select
End With
' pour toutes les plages de la selection
For Each cellule In Selection
    ' si les valeurs ne sont pas nd , blod, bloq ou < à 0.1, n=n
    If Not cellule.Value Like "ND" Xor cellule.Value Like "BLOD" Xor cellule.Value Like "BLOQ" Xor cellule.Value < 0.1 Then
        n = n + 1
    'sinon n=n
    Else: n = n
    End If
'je recommence pour les 2 autres plages
Next
    If n > 0 Then
        Worksheets("Embout").Cells(44, j).Value = ""
        Worksheets("Embout").Cells(45, j).Value = "û"
    Else
        Worksheets("Embout").Cells(44, j).Value = "ü"
        Worksheets("Embout").Cells(45, j).Value = ""
    End If
'je fais ça sur les autres colonnes
Next j
End Sub

merci pour ton aide jpcheck.
Si tu as des idées pour alléger le code je suis prenneur.

ps : pour le colorindex, je me suis fais une petite macro pour connaitre le code

Code :

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

1
2
3
Sub colorindex()
MsgBox ActiveCell.Font.colorindex
End Sub