Nombre d'occurences de plusieurs 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

Code:

---

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

---

Salut,

le type de donnees Byte accepte les valeurs de 0 a 255 ;)

de plus, ton

Code:

---

"B(i+1)"

---

doit etre remplace par un

Code:

---

"B" & (i+1)

---

Bonjour
- J'ignore ce qu'est exactement B dans le code montré.
- si lettre d'une colonne :

Code:

---

Range("D:D", "B" & i+1)

---

ou (pareil)

Code:

---

Range("D:D", "B" & (i + 1))

---

serait systématiquement la plage occupée par la totalité des colonnes B,C et D, quelle que pût être la valeur de i !
et serait donc forcément à tous les coups :

Code:

---

Range("D:D", "B:B")

---

- après, on peut faire des suppositions multiples et variées sur ce que le demandeur entend qu'est exactement B dans cette affaire .....

Bonjour à tous

Peut être tu voulais faire comme ceci (remarque que Synthese et DevisQuantitatif sont les codename des feuilles et non leur nom ou bien des variables préalablement définies et affectées)

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub quantite() Dim i As Long   Application.ScreenUpdating = False With DevisQuantitatif For i = 436 To 811 .Range("C" & i + 1).Value = WorksheetFunction.CountIf(Synthese.Range("D:D"), .Range("B" & (i + 1))) Next i End With End Sub

---

Ou bien simplement

Code:

---

1 2 3 4 5 6 7 8

Sub Quantite2()   Application.ScreenUpdating = False With DevisQuantitatif.Range("C437:C812") .Formula = "=COUNTIF('" & Synthese.Name & "'!$D:$D,B437)" .Value = .Value End With End Sub

---

Bonjour, ami mercatog
Et puisque l'on est dans les "peut-être", il y en a une véritable floppée + 36, parmi laquelle (entre autres, donc) :
B serait un tableau de strings et i + 1 un indice de ce tableau
etc ...
Comme rien du code présenté ne laisse "présager" avec certitude que l'on est dans le cas "ci" ou le cas "là" (puisque non cohérence quel que soit le cas "envisageable"), ma foi ...
Je n'ai en ce qui me concerne qu'une seule quasi certitude. On aura très peu de chances de voir ressurgir le demandeur, habitué du genre "ici" et "là"

Bonjour unparia

Après une longue absence, je me suis permis d’interrompre le sujet avec mes "peut-être" parmi les 36 possibles ;)

Faudra un jour huiler la mécanique, sinon c'est foutu même si on se substitue parfois et peut-être malencontreusement à Colombo

Merci Mercatog, je viens d'essayer votre solution et ça marche bien. Vous m'avez vraiment enlevé une épine du pied.
Maintenant j'ai un petit problème par rapport à ce bout de code.

Code:

---

1 2 3 4 5

If Range("C" & i + 1).Value = 0 Then Rows("i+1:i+1").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp End If

---

Salut,

meme probleme que plus tot :

Code:

---

Rows(i+1 & ":" &i+1).Select

---

en fait je voulais que ce code efface à chaque fois la ligne de la cellule C i+1 qui contient le chiffre zéro. Est ce que code le permet???

Code:

---

1 2 3 4 5 6 7 8

For i = 1 To 376 Range("C" & i + 1).Value = WorksheetFunction.CountIf(Synthese.Range("D:D"), Range("B" & (i + 1))) If Range("C" & i + 1).Value = 0 Then Rows(i + 1 & ":" & i + 1).Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp End If Next i

---

Attention, quand ton code supprime une ligne, il faut que tu prennes en compte le fait que ton ancienne ligne X devient X-1.

On a souvent l'habitude dans le cas des suppressions de lignes de faire des boucles decrementee avec un Step -1 :)

Merci à vous