Bonjour à tous,
Je viens de fouiller le site sans trop de solutions à mon problème....
J'ai définie des plages de cellules (qui n'ont pas les mêmes dimensions) plage 1 à 9.
Je cherche à souligner en couleur les lignes pour lesquelles les valeurs sont identiques pour 3 plages de cellules
plage1/plage4/plage7
plage2/plage5/plage8
plage3/plage6/plage9
Le résultat que je cherche est en pièce jointe.
Voici le bout de code que j'ai commencé à écrire pour mes plages de cellules mais j'avoue que je n'ai pas de méthode pour comparer 3 plages entre elles.
Quelqu'un aurait-il une piste ?
D'avance merci !!!!
Mumu
Je viens de fouiller le site sans trop de solutions à mon problème....
J'ai définie des plages de cellules (qui n'ont pas les mêmes dimensions) plage 1 à 9.
Je cherche à souligner en couleur les lignes pour lesquelles les valeurs sont identiques pour 3 plages de cellules
plage1/plage4/plage7
plage2/plage5/plage8
plage3/plage6/plage9
Le résultat que je cherche est en pièce jointe.
Voici le bout de code que j'ai commencé à écrire pour mes plages de cellules mais j'avoue que je n'ai pas de méthode pour comparer 3 plages entre elles.
Quelqu'un aurait-il une piste ?
Code:
'Définition des plages à comparer
Dim plage1, plage2, plage3 As String
Dim plage4, plage5, plage6 As String
Dim plage7, plage8, plage9 As String
Dim DLa, DLi, DLq As Integer
DLa = Sheets("esti_autrsect").Range("A" & Rows.Count).End(xlUp).Row
DLi = Sheets("esti_autrsect").Range("I" & Rows.Count).End(xlUp).Row
DLq = Sheets("esti_autrsect").Range("Q" & Rows.Count).End(xlUp).Row
Dim f As Range
For Each f In Sheets("esti_autrsect").Range("A17:A" & DLa)
If f.Value = "< 12 m" Then plage1 = Sheets("esti_autrsect").Range(f.Offset(0, 1), f.Offset(1, 1).End(xlDown)).Address
If f.Value = ">= 17 m" Then plage2 = Sheets("esti_autrsect").Range(f.Offset(0, 1), f.Offset(1, 1).End(xlDown)).Address
If f.Value = "12 - 16,9 m" Then plage3 = Sheets("esti_autrsect").Range(f.Offset(0, 1), f.Offset(1, 1).End(xlDown)).Address
Next f
Dim g As Range
For Each g In Sheets("esti_autrsect").Range("I17:I" & DLi)
If g.Value = "< 12 m" Then plage4 = Sheets("esti_autrsect").Range(g.Offset(0, 1), g.Offset(1, 1).End(xlDown)).Address
If g.Value = ">= 17 m" Then plage5 = Sheets("esti_autrsect").Range(g.Offset(0, 1), g.Offset(1, 1).End(xlDown)).Address
If g.Value = "12 - 16,9 m" Then plage6 = Sheets("esti_autrsect").Range(g.Offset(0, 1), g.Offset(1, 1).End(xlDown)).Address
Next g
Dim h As Range
For Each h In Sheets("esti_autrsect").Range("Q17:Q" & DLq)
If h.Value = "< 12 m" Then plage7 = Sheets("esti_autrsect").Range(h.Offset(0, 1), h.Offset(1, 1).End(xlDown)).Address
If h.Value = ">= 17 m" Then plage8 = Sheets("esti_autrsect").Range(h.Offset(0, 1), h.Offset(1, 1).End(xlDown)).Address
If h.Value = "12 - 16,9 m" Then plage9 = Sheets("esti_autrsect").Range(h.Offset(0, 1), h.Offset(1, 1).End(xlDown)).Address
Next h
D'avance merci !!!!
Mumu