Discussion :

[midge]

Bonjour au forum
Je bute sur un pb : dans la macro suivante j'ai 2 colonnes contigue et j'aimerai que si la 1ère et la 2éme condition sont réunies les cellules concernées se colorient ... un coup de pouce ? merci d'avance !
Question subsidiaire : et s'il y a plus de 2 conditions ?

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
Sub Essai()
Dim Cellule As Range
Dim Plage4 As Range
 
Application.ScreenUpdating = False
 
With Sheets("Feuil3")
Set Plage4 = Range("F2:G300")	'colonne F avec age, colonne G avec nombre voyage
 
 
        With Plage4     'age sup à 26 et inf à 35 + nombre voyage égal à 12
        For Each Cellule In Plage4
        If ((Cellule.Value >= "26" And Cellule.Value <= "35") And (Cellule.Value = "12")) Then Cellule.Interior.Color = vbYellow
        Next Cellule
        End With
 
 
 
End With
 
Set Plage4 = Nothing
 
Application.ScreenUpdating = True
End Sub

[electrons]

Bonjour,

Dans ton code "

Code :

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

If ((Cellule.Value >= "26" And Cellule.Value <= "35") And (Cellule.Value = "12"))

,
cette condition ne peut JAMAIS être remplie avec ton :

Code :

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

And (Cellule.Value = "12")

Bien à toi.

re

N'ayant pas de réponse, je t'envoie ce message car dans ton code, tu testes la valeur "12" dans la même cellule que "26" et "35",

Il faudrait essayer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim NumLg As Integer  'Numero de ligne
 
Dim i As Integer  'boucle For
 
NumLg = 2   'Ligne de départ
 
For i = 1 to 299 'A tester pour lire toutes les lignes
 
     If ((Cells(NumLg,6).Value >= "26" And Cells(NumLg,6).Value <= "35") And (Cells(NumLg,7).Value = "12")) Then '6 et 7 correspondent à "F" et"G"
        Range(Cells(NumLg,6),Cells(NumLg,7)).Interior.Color = vbYellow 'Code à tester car je suis devant un Mac sans Excel, il faudra peut-être faire un "Select"?
        NumLg = NumLg + 1
     EndIf
 
Next i

Bonne soirée

[midge]

Merci pour la réponse, mais cela ne marche pas aucun code d'erreur cependant ... Help ?

[HopPopPop]

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
Sub Essai()
 
Dim Cellule As Range
Dim Plage4 As Range
 
Application.ScreenUpdating = False
 
With Sheets("Feuil3")
    Set Plage4 = .Range("F2:F300")
    'colonne F avec âge, colonne G avec nombre de voyages
    For Each Cellule In Plage4
        If Cellule.Value > 26 And Cellule.Value < 35 Then
            If Cellule.Offset(0, 1).Value = 12 Then
                Cellule.Interior.Color = vbYellow
            End If
        End If
    Next Cellule
End With
 
Set Plage4 = Nothing
 
Application.ScreenUpdating = True
 
End Sub

electrons a raison.
Il faut contrôler la valeur d'une colonne, ici F ; et si la condition est validée, alors regarder la colonne suivante, donc G.

Si vous utilisez l'instruction "With", il serait bon de mettre le "." avant le "Range" ; sinon vous ne ferez pas forcément une vérif. sur la bonne feuille.

[midge]

bonjour,
Merci pour vos conseils, cela fonctionne maintenant !