Compter le nombre d'occurences

Bonjour

une petite question sur laquelle je butte , pour compter le nombre de fois qu'un mot apparait dans une plage je sais qu'il faut

utiliser ' application.worksheet.function.countif ( "plage à scanner", "mot à trouver") et que cette instruction renvoi un entier donnant

donc le nombre de fois ou le "mot à trouver " apparait , qu'en est il si par exemple je dois trouver le nombre de fois ou le mot

"velo" apparait à coté de "rouge" sachant que les mots velo et rouge sont dans deux cellules cotes à cotes sur une meme ligne d'une

plage donnée ? j'ai essayé quelques manip avec l'instruction application.worksheet.function.countif(.. sans succès .

Merci pour toute idée sur la question

Cordialement

Bonjour

Quelque chose du genre :

Sub Compte()
Dim c As Range
Dim nbr As Integer

nbr = 0
    For Each c In Range("A1:E50")
        If c = "vélo" And c.Offset(, 1) = "rouge" Then nbr = nbr + 1
    Next c
MsgBox nbr
End Sub

Amicalement

Nad

Bonjour,

Bonjour Nad

si tu as nommé tes plages ainsi :

Plag1 (de la cellule A1 à A5)

Plag2 (de la cellule B1 à B5)

Tu peux mettre ceci :

x = [SumProduct((Plag1 = "velo") * (Plag2 = "rouge"))]

cordialement

Merci à vous deux pour vos réponses rapide , je vais voir avec deux methodes en vous remerciant infiniment !

re... cousinhub , convient il d'ecrire ceci :

dim Plag1,Plag2 as range 
         dim x as integer
set Plag1= range("A1 : A5")
set Plag2=range(" B1 : B5")

x = [SumProduct((Plag1 = "velo") * (Plag2 = "rouge"))]

msgbox x 

j'ai effectué un test et ca me donne "incompatibilité de type " en surlignant en jaune la ligne x = [SumProduct((Plag1 = "velo") * (Plag2 = "rouge"))]

merci

Re-,

Non, il faut les définir en zone nommée, par le ruban "Formules/Insérer un nom"

Ou rajouter le nom par le code (l'enregistreur de macro peut t'aider...)

Bonne soirée

Ah daccord ! ok je vais faire ca , merci

Merci cousinhub , j'ai pu mettre tout ca en place via l'instruction

ActiveWorkbook.Names.Add Name:="PLAG1", RefersTo:=Sheets("BLABLA").Range("A1:A5") de meme pour PLAG2 et ca marche

parfaitement bien , merci à toi