Bonjour,

Je débute en VBA et j'aimerais de l'aide sur une macro, je souhaite colorier une ligne en bleu si et seulement si on retrouve dans la colonne D le terme "GP et dans la colonne E le terme "P145"

Une fois cela fais j'aimerais qu'une fois que l'on rencontre une ligne coloriée on copie a partir de cette ligne toute les lignes en dessous jusqu'au retour d'une nouvelle ligne coloriée.

Je bloque déjà sur la première étape

Si quelqu'un pourrait me venir en aide, s'il vous plaît

Merci d'avance

Cordialement
--------------------------------------

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 MACROBOUCLE()
Dim ObjCell As Range
 
 
 
Mot = InputBox("DesignControl", "DesignControl souhaité", "P145")
Mot2 = InputBox("DesignControl", "DesignControl souhaité", "GP")
 
For Each ObjCell in range ("A1:E500")
 
    If ObjCell.Range("E1:E500").Value = Mot And ObjCell.Range("D1:D500").Value = Mot2 Then
        ObjCell.EntireRow.Interior.ColorIndex = 33
    End If
Next 
 
 
End Sub