If...Then....Deux instructions

[Moa]

Salut à Toutes et tous !

Voilà, je reviens avec un petit problème de macro..(le livre est tellement bien fait)...héhéhé...!!!

Voilà ma macro :

Sub ComparerQuatreSelections()

Dim rang As Long
Dim Compteur As Integer
Compteur = 0

For rang = [AK4+15] To [AN4+15]
If Cells(rang, [AK7]).Value = Cells(12, 37).Value And Cells(rang, [AM7]).Value = Cells(12, 39).Value And Cells(rang, [AO7]).Value = Cells(12, 41).Value And Cells(rang, [AQ7]).Value = Cells(12, 43).Value Then

Compteur = Compteur + 1
End If
Next rang

Range("AK15") = Compteur

End Sub

En fait je compare les colonnes d'un tableau selon 4 conditions et un compteur me donne le nombre de fois que cette combinaison existe.

Mais je voudrais, maintenant, en plus du comptage, qu'il me colorie en jaune les lignes correspondantes, mais sur seulement la largeur de 15 colonnes en partant de la colonne A.

Et là, j'ai essayé plusieurs instructions différentes, mais ça plante....

Donc, si quelq'un avait une idée, pour rajouter cette deuxième instruction, après le "Then"....Ce serait vraiment très très sympa.

Merci d'avance et bonne journée à tous !

@ +

Moa

 

[sousou]

Ajoute cette fonction avant d'incrementer ton compteur

Range(Cells(rang, 1), Cells(rang, 15)).Interior.ColorIndex = 3

 

[sousou]

3 c'est du rouge pour moi, cherche l'index!

 

[Jean-Marie]

Bonjour

Une question, pourquoi avais-tu besoin de les défusionner ?

Bonne journée

@+Jean-Marie

 

[Jean-Marie]

Je me suis trompé de post.

Bonne journée

@+Jean-Marie

 

[Moa]

Salut Sousou et Jean-Marie !

Non non rien à défusionner sur ce coup là..hihihi...!!!

Gros merci à toi Sousou, ça marche impec...

J'avais essayer plein d'autres trucs et je galerais un gros pNeu.

Tu me fais gagner pas mal de temps, car j'avais déjà cherché pendant une bonne plombe.

Encore merci

@ +

Moa