Discussion :

[lahli57]

Bonjour,

Je souhaite créer une mise en forme conditionnelle mais pour 4 conditions.
J'ai pu voir sur internet que l'on pouvait utiliser VBA . Mais le pb est que je n'ai jamais codé en VBA.

J'ai trouvé des morceaux de codes mais n'y comprends pas grand chose.
Pourriez-vous me donner un coup de main? svp

J'ai trouvé un truc du genre que j'ai inclu dans mon code mais ça ne fonctionne pas..

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("B6:B6000")
ActiveSheet.Unprotect
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
    Is Nothing Then
       Dim i As IntegerIf cell(i, 8) - celle(i,9)= 0 Then
    End if
    Cells(i, 5).Select
    With Selection.Interior
        .ColorIndex = 4 'Vert
        .Pattern = xlSolid
    End With
    End If

Merci beaucoup

[Paritec]

Bonjour Lahli 57 le forum
bon j'ai pas tout compris de ce que tu veux faire mais voilà une macro qui te colorera en vert la cellule de la colonne E si la cellule de la même ligne Colonne H- la cellule même ligne de la colonne i = 0 et que les deux cellules colonne I et H sont différente de vide, alors on colore en vert
Par contre j'ai pas compris le pourquoi de la plage B6 à B6000 là?? ou alors c'est pour limiter de la ligne 6 à 6000
a+
papou

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i&
    With Feuil1
        For i = 6 To 6000
            If .Cells(i, 8) <> "" And .Cells(i, 9) <> "" And .Cells(i, 8) - Cells(i, 9) = 0 Then Cells(i, 5).Interior.ColorIndex = 4 Else Cells(i, 5).Interior.ColorIndex = xlNone
        Next i
    End With
End Sub

Re Lahli 57 le forum
une autre macro qui sur sélection d'une cellule de la colonne B de 6 à 6000, tu colores en vert la cellule C de la ligne sélectionnée en B , si la cellule H- Cellule I est égale à 0
si pas une deux deux donnes des explications sur ce que tu veux obtenir et on fera
a+
papou

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i&, fin&
    With Feuil1
        If Target.Column = 2 And Target.Row >= 6 And Target.Row <= 6000 Then
            i = Target.Row
            If .Cells(i, 8) <> "" And .Cells(i, 9) <> "" And .Cells(i, 8) - Cells(i, 9) = 0 Then
                Cells(i, 5).Interior.ColorIndex = 4
            Else
                Cells(i, 5).Interior.ColorIndex = xlNone
            End If
        End If
    End With
End Sub

[kiki29]

Salut, voir ici ?

[lahli57]

Bonjour,
Merci pour vos réponses (désolée pour la mienne qui arrive un peu tardivement).
Je suis finalement passée par le format conditionnel basique sous Excel..et tout fonctionne.
Encore merci
++