Je souhaite compter le nombre de cellules grisées dans une plage de
cellules.
Fonction vba avec Selection.Interior.Pattern = xlGray8
ou directement par une formule.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
DanielCo
Bonjour, Utilise la fonction : Function CompterMotif(Plage As Range) Dim c As Range Application.Volatile For Each c In Plage If c.Interior.Pattern = xlGray8 Then CompterMotif = CompterMotif + 1 End If Next c End Function
Note qu'un changement de motif ne provoquera pas un recalcul de la fonction. Il faudra attendre que la feuille soit recalculée. Daniel
Bonjour,
Je souhaite compter le nombre de cellules grisées dans une plage de cellules. Fonction vba avec Selection.Interior.Pattern = xlGray8 ou directement par une formule.
Merci
Bonjour,
Utilise la fonction :
Function CompterMotif(Plage As Range)
Dim c As Range
Application.Volatile
For Each c In Plage
If c.Interior.Pattern = xlGray8 Then
CompterMotif = CompterMotif + 1
End If
Next c
End Function
Note qu'un changement de motif ne provoquera pas un recalcul de la
fonction. Il faudra attendre que la feuille soit recalculée.
Daniel
Bonjour,
Je souhaite compter le nombre de cellules grisées dans une plage de cellules.
Fonction vba avec Selection.Interior.Pattern = xlGray8
ou directement par une formule.
Bonjour, Utilise la fonction : Function CompterMotif(Plage As Range) Dim c As Range Application.Volatile For Each c In Plage If c.Interior.Pattern = xlGray8 Then CompterMotif = CompterMotif + 1 End If Next c End Function
Note qu'un changement de motif ne provoquera pas un recalcul de la fonction. Il faudra attendre que la feuille soit recalculée. Daniel
Bonjour,
Je souhaite compter le nombre de cellules grisées dans une plage de cellules. Fonction vba avec Selection.Interior.Pattern = xlGray8 ou directement par une formule.
Merci
Tigloo
Quelle rapidité ! C'est exactement ce que je voulais. Merci beaucoup.
"DanielCo" a écrit dans le message de news:iiof04$gvi$
Bonjour, Utilise la fonction : Function CompterMotif(Plage As Range) Dim c As Range Application.Volatile For Each c In Plage If c.Interior.Pattern = xlGray8 Then CompterMotif = CompterMotif + 1 End If Next c End Function
Note qu'un changement de motif ne provoquera pas un recalcul de la fonction. Il faudra attendre que la feuille soit recalculée. Daniel
Bonjour,
Je souhaite compter le nombre de cellules grisées dans une plage de cellules. Fonction vba avec Selection.Interior.Pattern = xlGray8 ou directement par une formule.
Merci
Quelle rapidité !
C'est exactement ce que je voulais. Merci beaucoup.
L@urent
"DanielCo" <dcolardelleZZZ@free.fr> a écrit dans le message de
news:iiof04$gvi$1@speranza.aioe.org...
Bonjour,
Utilise la fonction :
Function CompterMotif(Plage As Range)
Dim c As Range
Application.Volatile
For Each c In Plage
If c.Interior.Pattern = xlGray8 Then
CompterMotif = CompterMotif + 1
End If
Next c
End Function
Note qu'un changement de motif ne provoquera pas un recalcul de la
fonction. Il faudra attendre que la feuille soit recalculée.
Daniel
Bonjour,
Je souhaite compter le nombre de cellules grisées dans une plage de
cellules.
Fonction vba avec Selection.Interior.Pattern = xlGray8
ou directement par une formule.
Quelle rapidité ! C'est exactement ce que je voulais. Merci beaucoup.
"DanielCo" a écrit dans le message de news:iiof04$gvi$
Bonjour, Utilise la fonction : Function CompterMotif(Plage As Range) Dim c As Range Application.Volatile For Each c In Plage If c.Interior.Pattern = xlGray8 Then CompterMotif = CompterMotif + 1 End If Next c End Function
Note qu'un changement de motif ne provoquera pas un recalcul de la fonction. Il faudra attendre que la feuille soit recalculée. Daniel
Bonjour,
Je souhaite compter le nombre de cellules grisées dans une plage de cellules. Fonction vba avec Selection.Interior.Pattern = xlGray8 ou directement par une formule.