M
Moa
Guest
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
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