Recherche sur excel ac VBA
Fermé
babeth
-
26 avril 2008 à 21:02
Mike-31 Messages postés 18381 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 28 mars 2025 - 26 avril 2008 à 21:24
Mike-31 Messages postés 18381 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 28 mars 2025 - 26 avril 2008 à 21:24
Bonjour,
Je débute avec Visual Basique et j'ai probleme
je ne sais pas comment creer une fonction qui puisse compter combien de fois une valeure revient dans un tableau excel
Je débute avec Visual Basique et j'ai probleme
je ne sais pas comment creer une fonction qui puisse compter combien de fois une valeure revient dans un tableau excel
A voir également:
- Recherche sur excel ac VBA
- Liste déroulante excel - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Comment calculer la moyenne sur excel - Guide
- Trier sur excel - Guide
- Si et excel - Guide
1 réponse
Mike-31
Messages postés
18381
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
28 mars 2025
5 126
26 avril 2008 à 21:24
26 avril 2008 à 21:24
Salut,
Cidessous une formule à saisir directement dans une cellule dans ta feuille de calcul. Compte tous les 5 dans la plage B1 à E500
=NB.SI(B1:E500;5)
En VBA ici recherche 5 dans plage A1 à B1000
Sub compte_cellule()
Range("A1").Select
Set plage = Range(ActiveCell.Offset(1000, 1), ActiveCell.Offset(0, 0))
n = 0
For Each cel In plage
If cel = 5 Then
n = n + 1 'compteur
End If
Next
If n > 0 Then
MsgBox "Il y a " & n & " cellules contenant 5."
Else
If n = 0 Then
End If
End If
End Sub
A+
__________________________________________________________________________
Vous cherchiez de l’aide. Les membres du forum, bénévolement étaient à vos côtés.
Ayez la gentillesse de nous dire si votre problème est résolu. Afin de classer la
Demande.
Cidessous une formule à saisir directement dans une cellule dans ta feuille de calcul. Compte tous les 5 dans la plage B1 à E500
=NB.SI(B1:E500;5)
En VBA ici recherche 5 dans plage A1 à B1000
Sub compte_cellule()
Range("A1").Select
Set plage = Range(ActiveCell.Offset(1000, 1), ActiveCell.Offset(0, 0))
n = 0
For Each cel In plage
If cel = 5 Then
n = n + 1 'compteur
End If
Next
If n > 0 Then
MsgBox "Il y a " & n & " cellules contenant 5."
Else
If n = 0 Then
End If
End If
End Sub
A+
__________________________________________________________________________
Vous cherchiez de l’aide. Les membres du forum, bénévolement étaient à vos côtés.
Ayez la gentillesse de nous dire si votre problème est résolu. Afin de classer la
Demande.