olibelle0101
XLDnaute Occasionnel
Bonsoir à tous.
J'ai trouver parmis vous une macro qui fonctionne bien.
Encore merci.
Comment faire pour qu'elle s'execute automatiquement, à chaque changement de valeur???
La macro est située en module1.
Elle me donne une valeur en feuille2 "Calcul", suivant ce que je met dans feuille1 "Saisie".
Mais je suis obliger de cliquer dans la cellule en feuille2 "Calcul"
pour mettre à jour.
Voici la macro:
Option Explicit
'Ti
'noir = 1
'marron = 53
'vert olive = 52
'vert foncé = 51
'bleu-vert foncé = 49
'bleu foncé = 11
'indigo = 55
'gris 80% = 56
'rouge foncé = 9
'orange = 46
'marron clair = 12
'vert = 10
'bleu-vert = 14
'bleu = 5
'bleu-gris 47
'gris-50% = 16
'rouge = 3
'orange clair = 45
'citron vert = 43
'vert marin = 50
'vert d'eau = 42
'bleu clair = 41
'violet = 13
'gris-40% = 48
'rose = 7
'jaune d'or = 44
'jaune = 6
'vert brillant = 4
'turquoise = 8
'bleu ciel = 33
'prune = 54
'gris-25% = 15
'rose saumon = 38
'brun = 40
'jaune clair = 36
'vert clair = 35
'turquoise clair = 34
'bleu moyen = 37
'lavande = 39
'blanc = 2
'aucune couleur = -4142
Function Couleurs(plage As Range, IndexCouleur As Integer) As Long
Dim Cel As Range
For Each Cel In plage.Cells
If Cel.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
Next Cel
End Function
J'ai trouver parmis vous une macro qui fonctionne bien.
Encore merci.
Comment faire pour qu'elle s'execute automatiquement, à chaque changement de valeur???
La macro est située en module1.
Elle me donne une valeur en feuille2 "Calcul", suivant ce que je met dans feuille1 "Saisie".
Mais je suis obliger de cliquer dans la cellule en feuille2 "Calcul"
pour mettre à jour.
Voici la macro:
Option Explicit
'Ti
'noir = 1
'marron = 53
'vert olive = 52
'vert foncé = 51
'bleu-vert foncé = 49
'bleu foncé = 11
'indigo = 55
'gris 80% = 56
'rouge foncé = 9
'orange = 46
'marron clair = 12
'vert = 10
'bleu-vert = 14
'bleu = 5
'bleu-gris 47
'gris-50% = 16
'rouge = 3
'orange clair = 45
'citron vert = 43
'vert marin = 50
'vert d'eau = 42
'bleu clair = 41
'violet = 13
'gris-40% = 48
'rose = 7
'jaune d'or = 44
'jaune = 6
'vert brillant = 4
'turquoise = 8
'bleu ciel = 33
'prune = 54
'gris-25% = 15
'rose saumon = 38
'brun = 40
'jaune clair = 36
'vert clair = 35
'turquoise clair = 34
'bleu moyen = 37
'lavande = 39
'blanc = 2
'aucune couleur = -4142
Function Couleurs(plage As Range, IndexCouleur As Integer) As Long
Dim Cel As Range
For Each Cel In plage.Cells
If Cel.Interior.ColorIndex = IndexCouleur Then Couleurs = Couleurs + 1
Next Cel
End Function
