Discussion :

[Maxou 10]

Bonjour à tous,

Je galère à faire ma comparaison entre deux colonne....

J'aimerais pouvoir passer en rouge les cellules en colonne J si je ne trouve pas d'équivalence dans ma colonne A. Sinon cellule blanche.
J'ai fais cela mais ca ne fonctionne pas comme je veux :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For plage = 4 To 27
For plageA = 4 To 39
    If WorksheetFunction.CountIf(ws11.Range("A" & plageA), ws11.Range("J" & plage)) > 0 Then
        ws11.Range("J" & plage).Font.Color = RGB(156, 0, 6)
        ws11.Range("J" & plage).Interior.Color = RGB(255, 199, 206)
    Else
        ws11.Range("J" & plage).Font.Color = RGB(0, 0, 0)
        ws11.Range("J" & plage).Interior.Color = RGB(255, 255, 255)
    End If
Next plageA
Next plage

Merci à tous pour votre aide

[Nain porte koi]

Hello,

juste une question : pourquoi via VBA alors que la mise en forme conditionnelle fait ça très simplement ?

Sélectionnez la plage J4 à J27, onglet Accueil, Mise en forme conditionnelle, Nouvelle règle, Utiliser une formule etc etc, collez cette formule :

Code :

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

=NB.SI($A$4:$A$27;J4)>0

, et choisissez votre couleur dans Format...

Le VBA c'est bien surtout pour des choses qui n'existent pas nativement, sinon c'est un peu comme réinventer la roue.

[Maxou 10]

effectivement, j'ai déjà fait avec la Mise en forme conditionnelle...
Cela fonctionne. Le problème étant que cela demande beaucoup de ressource à mon programme et il réfléchi pendant plusieurs minutes à chaque changement d'état.

Je voudrait le réaliser en VBA pour que cela s'exécute en instantanée.

[Nain porte koi]

Ah ok, fallait préciser
Mais la phrase "ca ne fonctionne pas comme je veux" ne dit pas ce qui ne fonctionne pas comme voulez, vous pouvez préciser ce qui ne va pas ?

[78chris]

Bonjour

Une boucle n'est jamais un solution rapide alors 2 boucles imbriquées...

Sur une plage aussi réduite je doute que la MFC rame : si "ton programme réfléchi pendant plusieurs minutes à chaque changement d'état" il y a sans doute d'autre problèmes

[Franc]

Bonjour, comme dit par les autres intervenants, je ne comprends pas que la mfc sur une si petite plage prenne autant de temps.
Quoi qu'il en soit, voici une proposition vba à tester:

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
Sub ColorierCellules()
    Dim ws As Worksheet
    Dim plage As Long
    Dim plageA As Range
    Dim isFound As Boolean
 
    ' Référence à la feuille où vous travaillez
    Set ws = ThisWorkbook.Worksheets("NomDeVotreFeuille") 
 
    ' Définir la plage pour la colonne A
    Set plageA = ws.Range("A4:A39")
 
    ' Boucle sur les cellules de la colonne J
    For plage = 4 To 27
        isFound = Not IsError(Application.Match(ws.Range("J" & plage).Value, plageA, 0))
 
        If isFound Then
            ' Si une équivalence est trouvée
            ws.Range("J" & plage).Font.Color = RGB(0, 0, 0)
            ws.Range("J" & plage).Interior.Color = RGB(255, 255, 255)
        Else
            ' Si aucune équivalence n'est trouvée
            ws.Range("J" & plage).Font.Color = RGB(156, 0, 6)
            ws.Range("J" & plage).Interior.Color = RGB(255, 199, 206)
        End If
    Next plage
End Sub

[Maxou 10]

Je pense que cela réfléchi car j'ai pas que cette formule qui me change mes couleurs...

Merci pour votre aide car je ne suis vraiment pas doué en VBA.

Le code marche nickel. Je vais être pénible mais j'avais pas prévu un truc dans mon programme qu'il pourrait me manquer...
Est-il possible de rajouter une condition à If isFound Then ?
j'aimerais que le code vérifie aussi si ma cellule correspondante en B est supérieur à 0.

dans le genre :

Code :

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

1
2
3
4
5
isFound = Not IsError(Application.Match(ws11.Range("J" & plage).Value, plageA , 0))
If isFound And 'plageA décalé à droite de 1 > 0 Then
blanc
sinon
rouge