Discussion :

[floexcel]

Bonjour à tous,

Je pense que le sujet à déjà été évoquer dans ce forum mais je ne parviens pas à trouver la réponse avec les différentes recherche utilisée.

En fait je cherche à compter le nombre de fois qu'un mot se trouvant sur Feuil2 en A1 est présent sur une plage de donnée sur feuil1.

Je m'en sort très bien avec la formule =NB.SI(Feuil1!A1:H80;A1), mais je ne parviens pas à le retranscrire en VBA.

Merci de votre aide

[alsimbad]

bonjour
c'est pas vraiment la traduction de la formule, mais tu peux utiliser match

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub test()
 For i = 2 To 80
 If Not IsError(Application.Match([A1], Range("a" & i), 0)) Then
 a = a + 1
 End If
 Next i
 MsgBox a
 End Sub

[Invité]

Bonjour,

Alsimbad : votre procédure fonctionne sur une colonne, donc je pense que si on la conserve mais que l'on tient compte de la question d'origine il faut ajouter un 2ème "For .. to" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
 For i = 2 To 20
    For n = 1 To 8
        If Not IsError(Application.Match([A1], Range(Cells(i, n), Cells(i, n)), 0)) Then
        a = a + 1
        End If
    Next n
 Next i
 MsgBox a
 End Sub

[OrDonc]

Bonsoir,

Lance l'éditeur de macro, valide ta formule, tu en auras une traduction VBA.

[floexcel]

Effectivement j'ai fait ça:

Bonsoir,

Lance l'éditeur de macro, valide ta formule, tu en auras une traduction VBA.

et je retombe sur la formule fournie par mercatog!

Merci à vous 2 ça marche du tonnerre

[mercatog]

La traduction de NB.SI

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Application.CountIf(Sheets("Feuil1").Range("A1:H80"), Sheets("Feuil2").Range("A1").Value)