NB.SI à transformer en VBA
jack2125
Messages postés
457
Date d'inscription
Statut
Membre
Dernière intervention
-
The_boss_68 Messages postés 952 Date d'inscription Statut Membre Dernière intervention -
The_boss_68 Messages postés 952 Date d'inscription Statut Membre Dernière intervention -
bonjour a tous
voir dans le fichier NB.SI en VBA ne fonctionne pas et n'ai pas su le transformer
merci pour vos réponses
https://www.cjoint.com/c/OBliJhcTzWD
A voir également:
- NB.SI à transformer en VBA
- Nb.si en anglais - Guide
- Transformer majuscule en minuscule word - Guide
- Transformer une image en icone - Guide
- Transformer epub en kindle - Guide
- Transformer clavier qwerty en azerty - Guide
2 réponses
Bonjour, a tester
en H1 et tirer la formule
=CompteSiVBA($CH$2:$DF$2; Z3)
et dans un module
Function CompteSiVBA(plage As Range, critere As Variant) As Long
Dim cel As Range
Dim compteur As Long
compteur = 0
For Each cel In plage
If cel.Value = critere Then compteur = compteur + 1
Next cel
CompteSiVBA = compteur
End Function
OU
en H1 et tirer la formule
=CompteSiPlage($CH$2:$DF$2; Z3)
et dans un module
Function CompteSiPlage(plage As Range, critere As Variant) As Long
Application.Volatile ' Rend la fonction réactive aux modifications
CompteSiPlage = WorksheetFunction.CountIf(plage, critere)
End Function
slts