Nombre d'occurence de mots sur une plage de valeurs

Bonjour j'aimerai pour un ensemble de mots compter le nombre d'occurrences que chacun de ces mots a. j'ai écrit le bout de code suivant mais l'erreur d'execution "6": dépassement de capacité m'est signalée. Aidez moi svp

Sub quantite()
dim i as byte
For i = 436 To 811
DevisQuantitatif.Activate
DevisQuantitatif.Select
Range("C1").End(xlDown).Offset(1, 0).Select
ActiveCell.Value = WorksheetFunction.CountIf(Synthese.Range("D:D"), "B(i+1)")
Next i
end sub

Bonjour,

Les variables Byte sont utilisées pour stocker des nombres entiers positifs compris entre 0 et 255

De plus, je ne vois pas ce que tu cherches à obtenir avec ta boucle et l'instruction :

WorksheetFunction.CountIf(Synthese.Range("D:D"), "B(i+1)")

Une explication s'impose ! et un exemple ne serait pas de trop.

A+

bon je cherches à compter le nombre d'occurrences de plusieurs mots contenus sur la colonne("D:D") et les critères se trouvent sur la plage ("B437:B811")

les critères se trouvent sur la plage ("B437:B811")

Non, dans ton code, il n'y a qu'un seul critère composé du texte "B(i+1)".

Si les critères se trouvent sur la plage ("B437:B811"), on doit voir un code qui ressemble à çà :

For i = 436 To 811
    With DevisQuantitatif
        .Range("C1").End(xlDown).Offset(1, 0) = WorksheetFunction.CountIf(Synthese.Range("D:D"), .Range("B" & i + 1))
    End With
Next i

Reste à confirmer dans quelles feuilles se trouvent les différentes plages (difficile à dire sans fichier exemple ... ).

A+