Bonjour ami(e)s du Forum
Ma question est : Suite aux modifications du tableau origine, comment modifier cette macro pour l'adapter au présent tableau modifié (compter par couleurs et positions identiques) dans la partie droite, non accessible pour l'utilisateur lamda ?
'Code fourni par Charly2
Sub CompteCoul()
Dim x As Byte, y As Byte, z As Byte, v As Byte, derl As Byte 'déclare les variables x, y, z,v et l
derl = Range('C65536').End(xlUp).Row
For x = 11 To derl 'boucle de ligne && jusque derl)
For y = 35 To 63 ' boucle sur les 29 couleurs (Tab réf AI9 à BN9) Origine For x = 1 To 80
v = 0 'définit la variable v
For z = 4 To 65 'boucle sur les 31 cellules (de la colonne D à la colonne AH) Origine : For z = 4 To 34
'condition: si la cellule à la même couleur de motif que celle mentionné
'dans le tableau de référence, alors redéfinit la variable v : v = v+1
'La ligne ci-dessou 'coince' mais j'ognore si le corrections ci-dessus sont exactes.
If Cells(x, z).Interior.ColorIndex = CInt(Right(Cells(9, y), Len(Cells(9, y).Value) - 1)) Then v = v + 1
Next z 'prochaine cellule
'affiche le nombre dans le tableu de références
If v <> 0 Then Cells(x + 9, y).Value = v
Next y 'prochaine couleur de référence
Next x 'prochaine ligne
End Sub
En vous remerçiant infiniment par avance. Marc_du_78