Recherche sur excel ac VBA
Fermé
babeth
-
26 avril 2008 à 21:02
Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 - 26 avril 2008 à 21:24
Mike-31 Messages postés 18354 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 1 janvier 2025 - 26 avril 2008 à 21:24
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
- Si et excel - Guide
- Comment aller à la ligne sur excel - Guide
1 réponse
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 110
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.