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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 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
Partager