Compter les lettresRésolu

Question

Bonjour a tous, Ce sujet a deja ete traite (lien) mais j'ai encore qq problemes. Je re-explique la situation.Je dois compter le nombre de lettre identique que j'ai dans une colonne. On m'a donne un programme qui fontionne tres bien: Set wk = ActiveSheet Dim i As Integer Dim j As Integer For i = 1 To wk.Cells.SpecialCells(xlCellTypeLastCell).Row '(ca bloque ici) For j = 1 To Len(wk.Cells(i, 1).Value) If Mid(wk.Cells(i, 1).Value, j, 1) = "S" Then nbS = nbS + 1 End If Next j Next i wk.Range("A2").FormulaR1C1 = nbS Mais en realite je dois reproduire cette operation sur 3 lignes avec 3 lettres differentes et sur 100 colonnes et la je suis perdu. Pour etre plus clair voici ce que je souhaite faire ---- Nombre de i , 3 , 5 , 2 , ---- Nombre de e , 2 , 1 , 2 , ---- Nombre de s , 2 , 1 , 3 , ---- , i, i, e, ---- , e, i, i, ---- , i, i, i, ---- , i, i, s, ---- , s, i, s, ---- , e, e, s, ---- , s, s, e Merci pour votre aide.

Molenn · Accepted Answer

Pour faire ce que tu cherches à obtenir ? Si tu es bien comme je le crois dans un fichier Excel, aucun intérêt (autre qu'apprendre comment le faire en code ^^).

Dans ta cellule Excel, tape juste =NB.SI( ... Et ouvre l'assistant de formule (clique sur le signe = ou Fx suivant ta version), tu n'as plus qu'à sélectionner les plages. Honnêtement, je ne vois pas ce qui peut poser pb, à moins que tu ne nous aies pas donné tous les éléments.

Molenn

drikce06 · Answer

Salut, crée une fonction qui compte avec comme paramètre d'entrée la lettre à compter et la colonne!

a = compte ("e",colonne1")
b = compte ("e",colonne2")
c = compte ("e",colonne3")

NbLettreE = a + b +c

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

mistersaku · Answer

Je ne suis pas sur de comprendre

Molenn · Answer

Heu ... Si je comprends ton code, tu lis une colonne Excel et tu affiches le résultat dans une cellule Excel.
Qu'est-ce que tu t'embêtes à mettre du code ?
Tu utilises la formule NB.SI et hop, tu as le nb de lettres voulu.
Je reprends ton exemple, en admettant que ça soit les colonnes A, B et C : 
 , i, i, e, ----
 , e, i, i, ----
 , i, i, i, ----
 , i, i, s, ----
 , s, i, s, ----
 , e, e, s, ----
 , s, s, e
Et bien, tu mets dans une cellule, E1 par ex la formule suivante : 
=NB.Si(A:C;"e") et hop, tu as ton nb de lettres "e" dans les 3 colonnes.

Rien de plus simple ^^

Molenn

mistersaku · Answer

J'ai mis exactement ce que tu m'as dit mais ca ne marche pas. J'ai ecris =NB.SI(A:C;"e") dans la cellule E1 mai sj'ai un message d'erreur du style la fomule entree contient une erreur. D'apres toi je ne dois pas aller dans les macros?

cs_MPi · Answer

Si tu as une erreur avec la formule de Molenn, c'est possiblement que ton séparateur est la virgule et non le point-virgule... (?)

Et si tu as des problèmes avec ta boucle sur le I dans
For i = 1 To wk.Cells.SpecialCells(xlCellTypeLastCell).Row '(ca bloque ici)
Déclare I As Long plutôt que As Integer.
Lorsqu'on déclare une variable qui va lire des lignes, il est toujours préférable d'utiliser un Long puisque le nombre de lignes d'une feuille dépasse la capacité d'un Integer

MPi

mistersaku · Answer

Merci, ce que j'ai oublie de dire c'est que je travail sur une version anglaise alors je dois utiliser countif a la place de nb.if.

Compter les lettres

7 réponses

Votre réponse

Discussions similaires