Double Condition IF

Version imprimable

Double Condition IF

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:

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

Bonjour,
en faisant une recherche du mot "GP" dans la colonne D, si je le trouve on vérifie le 2eme critère en colonne E

ça pourrait donner ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub MACROBOUCLE()
Dim Macell As Range, ligne As Integer
Dim Mot1 As String, Mot2 As String
 
Mot1 = "GP"
Mot2 = "P145"
'Je recherche dans la colonne D
For Each Macell In Range("D1:D500")
    If Macell.Value = Mot1 And Macell.Offset(0, 1).Value = Mot2 Then
        'je donne a ligne le num?ro de ligne correspondant
        ligne = Macell.Row
 
        'je colorie la plage correspondant au crit?re
        Range("A" & ligne & ":E" & ligne).Interior.ColorIndex = 33
    End If
Next
 
End Sub

12/09/2018, 19h30
Tippa

1 pièce(s) jointe(s)

MEFC

Bonjour,

Une mise en forme conditionnelle basée sur une fonction ET(), permet de résoudre la question sans même utiliser le VBA.
J'ai ajouté un classeur exemple, à part les colonnes à modifier sinon c'est du prêt à l'emploi.
=ET($D2="GP";$E2="P145") en formule de mise en forme conditionnelle
et à recopier avec le pinceau par exemple sur les autres cellules du tableau (verticalement et horizontalement pour avoir toute la ligne en couleur)

Enfin si tu souhaites que tes valeurs GP et P145 soient faciles à changer,
tu peux les inscrire sur une feuille, et nommer tes cellules, Code1 et Code2 par exemple, ce qui donne :
=ET($D2=Code1;$E2=Code2) en formule de mise en forme conditionnelle.

Pas de VBA, donc plus simple à maintenir surtout si tu débutes ;-)

Sinon bien sûr cette une belle occasion de faire une boucle VBA...

A toi de voir
13/09/2018, 08h49
Menhir

D'accord avec Tippa :coucou: : inutile de faire un code VBA pour colorer une ligne selon une condition, une MFC fait ça beaucoup plus simplement.
Pour plus d'info sur le sujet : http://silkyroad.developpez.com/Exce...onditionnelle/

Citation:

Envoyé par Hayr0x

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.

On copie où ?
Pour faire une copie, il faut une source (que tu indiques) ET une destination (que tu n'indiques pas).
A moins que tu veuilles uniquement dupliquer ces lignes dans le même tableau.
13/09/2018, 14h11
Hayr0x

Tout d'abord merci de vos réponses rapides,

Pour la suite je souhaite copier ses lignes dans une autre sheet "Retour" par exemple. Je souhaiterais que lorsque on détecte un "GP" "P145", toutes les lignes à partir de celle ci soit copié dans la sheet retour jusqu'à la detection d'un nouveau groupe GP P145 qui copiera une nouvelle fois toutes ses lignes etc...

Je voulais inclure la coloration dans la macro pour tout effectuer en un seul coup.

Merci pour votre aide :P