Modification de macros / compte couleurs

Bonjour,

Je viens juste d'arriver sur votre forum en cherchant une solution pour le vignoble où je suis en stage.

J'ai trouvé une solution mais apparemment je ne suis pas assez douée pour la faire évoluer.

Voila, dans le fichier joint il y a des plans que j'ai réalisé de parcelles plantées de vignes.

J'ai un code couleur correspondant à des maladies différentes et j'aurais souhaité savoir à la fin de chaque colonnes, la somme de cases rouges, puis la somme de cases jaunes et enfin bleues.

Grâce à une réponse sur un post j'ai réussi à trouver un classeur qui m'aide à la faire pour les rouges, mais n'y connaissant rien en VBA je n'ai vraiment pas réussi à le modifier pour les cases bleues et jaunes...

Pourriez vous m'aider ou m'expliquer comment le faire SVP???

Bonjour, Kylara

Un code à tester

Sub NombredeCellulesrouges()
    'Ligne 9
Dim Cellule As Range
Dim total As Variant
Range("Parcelle_13").Select
For Each Cellule In Selection
If Cellule.Interior.ColorIndex = 3 Then 'rouge
total = total + Cellule.Count
End If
Next
Range("C84") = total
ActiveCell.Range("C84").Select

End Sub

un code vous donne la couleur utilisée

Voir fichier joint pour tout le tableau et trois couleurs

Amicalement

Pierrot

Merci beaucoup

Je regarde ça de suite (et je vais essayer de m'y mettre à tête reposée pour comprendre aussi ^^)

Bonjour,

J'ai modifié la fonction personnalisée NbCoul.

Cdlt.

Bonjour, Jean-Eric, Kylara

je cherchais justement comment traduire la macro en formule par cellule,

voilà, avec ta solution , c'est fait.astucieux le N° de couleur en colonne A

un grand merci pour ton aide j'espère avoir pu aider Kylara

amicalement à vous deux

Bonne journée

Pierrot

Rechercher des sujets similaires à "modification macros compte couleurs"