Compter le nombre de fois où un mot apparaît dans une colonne donnée [Résolu]
nougitch
- Messages postés
- 431
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Membre
- Dernière intervention
- 17 novembre 2008
- Messages postés
- 7401
- Date d'inscription
- mercredi 23 avril 2003
- Statut
- Membre
- Dernière intervention
- 6 avril 2012
A voir également:
- Compter le nombre de fois où un mot apparaît dans une colonne donnée
- Lire un fichier texte et compter le nombre de fois que chaque lettre apparaît - Codes sources - Visual Basic / VB.NET (Texte)
- Compter le nombre de fois ou un processus apparait ✓ - Forum - C++ & C++ .NET
- Compter le nombre de fois qu'une lettre se trouve dans un string - Codes sources - Visual Basic / VB.NET (Texte)
- Script pour compter le nombre de fois que l'utiliseur a visiter le site - Codes sources - Javascript (Divers)
- Compter le nombre de caractere de chaque mot d'une chaine - Codes sources - Javascript (Trucs & Astuces)
9 réponses
Meilleure réponse
- Messages postés
- 7401
- Date d'inscription
- mercredi 23 avril 2003
- Statut
- Membre
- Dernière intervention
- 6 avril 2012
Salut,
Est ce que l'enregistreur de macro ne peut pas t'aider?
A l'aide d'une boucle et d'une mémorisation de la premiere ligne trouver (pour ne pas boucler infiniment).
Columns("B:B").Select
Selection.Find(What:="incident", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
NOTE: B3 n'est pas une colonne..
@+, Ju£i?n
Est ce que l'enregistreur de macro ne peut pas t'aider?
A l'aide d'une boucle et d'une mémorisation de la premiere ligne trouver (pour ne pas boucler infiniment).
Columns("B:B").Select
Selection.Find(What:="incident", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
NOTE: B3 n'est pas une colonne..
@+, Ju£i?n
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
198 internautes nous ont dit merci ce mois-ci
- Messages postés
- 6789
- Date d'inscription
- vendredi 16 décembre 2005
- Statut
- Membre
- Dernière intervention
- 21 décembre 2011
Salut,
Comme Julien te le précise, il faut utiliser l'instruction Find.
Après le Selection.Find(What:="incident", ... mettre
Find.Next (c'est ça qui devra être bouclé)
++
Comme Julien te le précise, il faut utiliser l'instruction Find.
Après le Selection.Find(What:="incident", ... mettre
Find.Next (c'est ça qui devra être bouclé)
++
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
198 internautes nous ont dit merci ce mois-ci
- Messages postés
- 7401
- Date d'inscription
- mercredi 23 avril 2003
- Statut
- Membre
- Dernière intervention
- 6 avril 2012
Salut,
Essaie ceci.
Dim NumFois As Long
Dim Li As Long
Dim Tmp As Long
Columns("B:B").Select
On Error Resume Next
Call Selection.Find(What:="incident", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
If Err.Number = 91 Then
MsgBox "Pas trouver"
Call Err.Clear
Else
Li = ActiveCell.Row
If Li <> 0 Then NumFois = NumFois + 1
While Tmp <> Li
Selection.FindNext(After:=ActiveCell).Activate
Tmp = ActiveCell.Row
NumFois = NumFois + 1
Wend
MsgBox NumFois - 1
End If
On Error GoTo 0
<small> Coloration syntaxique automatique [AFCK]</small>
@+, Ju£i?n
Essaie ceci.
Dim NumFois As Long
Dim Li As Long
Dim Tmp As Long
Columns("B:B").Select
On Error Resume Next
Call Selection.Find(What:="incident", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
If Err.Number = 91 Then
MsgBox "Pas trouver"
Call Err.Clear
Else
Li = ActiveCell.Row
If Li <> 0 Then NumFois = NumFois + 1
While Tmp <> Li
Selection.FindNext(After:=ActiveCell).Activate
Tmp = ActiveCell.Row
NumFois = NumFois + 1
Wend
MsgBox NumFois - 1
End If
On Error GoTo 0
<small> Coloration syntaxique automatique [AFCK]</small>
@+, Ju£i?n
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
198 internautes nous ont dit merci ce mois-ci
- Messages postés
- 7401
- Date d'inscription
- mercredi 23 avril 2003
- Statut
- Membre
- Dernière intervention
- 6 avril 2012
Re,
>528680 Molenn, =6078 MPi: je savais (je supposais) qu une formule existait pour faire cela, mais je ne connais pas assez Excel pour la donner, donc je propose ce que je sais faire (mais cela Molenn le savais déjà)
En plus en sachant que vous n'êtes jamais loin je savais que cela ne valais pas la peine de passer trois 3 heures a chercher la formule alors que vous vous la donner en 5 minutes même pas.
@+, Ju£i?n
>528680 Molenn, =6078 MPi: je savais (je supposais) qu une formule existait pour faire cela, mais je ne connais pas assez Excel pour la donner, donc je propose ce que je sais faire (mais cela Molenn le savais déjà)
En plus en sachant que vous n'êtes jamais loin je savais que cela ne valais pas la peine de passer trois 3 heures a chercher la formule alors que vous vous la donner en 5 minutes même pas.
@+, Ju£i?n