Occurence d'un mot sur une colonne

[Makooo]

Bonjour,

Je me demandais si il était possible de calculer le nombre d'occurence d'un mot sur une colonne !

Par ex qu'il me dise sur C, il y'a 268 fois "bonjour"

Merci d'avance

 

[nat54]

Re : Occurence d'un mot sur une colonne

Bonjour,

=NB.SI(C1:C100;"bonjour")

 

[jeanpierre]

Re : Occurence d'un mot sur une colonne

Re Makooo et le forum,

Avec NB.SI(ta plage;"le mot")

Tu nous dis.

Jean-Pierre

 

[Tibo]

Re : Occurence d'un mot sur une colonne

Salut nat, salut Jean-Pierre,

Une petite variante pour prendre en compte les cellules contenant le mot bonjour :

=NB.SI(A1:A20;"*"&"bonjour"&"*")

Bon we à tous

@+

 

[nat54]

Re : Occurence d'un mot sur une colonne

Salut Tibo,

Quelle est la différence ?
car j'ai testé ca donne le même résultat...

 

[Tibo]

Re : Occurence d'un mot sur une colonne

rebonjour nat,

La formule permet de prendre en compte des cellules contenant par exemple :

Françaises, Français, bonjour !

Voilou

@+

 

[nat54]

Re : Occurence d'un mot sur une colonne

Ah ok, intéressant ca je ne connaissais pas.
Enfin pas dans cette forme, je sais que l'* sert à remplacer une chaine de caractère par ex en SQL quand on dit par ex like n*, quand on veut extraire que les noms commençant par n

 

[Makooo]

Re : Occurence d'un mot sur une colonne

Merci vous etes geniaux 🙂

 

[Makooo]

Re : Occurence d'un mot sur une colonne

On va compliquer la chose... 😀
Est t'il possible de selectionner x colonnes, et de dire "à chaque fois que tu rencontre le mot "bonjour" dans un de ces colonnes, copie la ligne" !!!

 

[nat54]

Re : Occurence d'un mot sur une colonne

Bonjour,

Une macro trouvée dans ma besace excel, lol
A adapter

• Macro 30 : si on écrit "done" dans une cellule, la ligne est coupée et copiée sur la dernière ligne de la feuille 2

Macro évènementielle à placer dans la feuille correspondante
Private Sub Worksheet_Change(ByVal Target As Range)Application.ScreenUpdating = FalseIf Not ActiveSheet.Name = "Feuil1" Then Exit SubIf Target.Value = "done" Then Rows(Target.Row).Cut With Sheets("feuil2") .Select .Range("A65536").End(xlUp)(2).Select ActiveSheet.Paste End With Sheets("feuil1").SelectEnd IfApplication.ScreenUpdating = True
[FONT=&quot]End Sub[/FONT]