Compter les lettresRésolu

Question

Bonjour a tous,

Je cherche a compter le nombre de fois ou la lettre "S" apparait dans la colonne "A" et reporter ce nombre dans la cellule A1. Si qqun peut me filler un petit coup de main ca serait tres appreciable.

Merci.

sobullshit · Accepted Answer

Tu as mis l'intitulé de l'erreur pendant que j'écrivais mais tu confirmes ce que j'ai dit précedemment, l'object wk n'est pas déclaré, donc tu ne peux pas t'en servir.

sobullshit · Answer

vite fai jdirai 

for i = 1 to wk.Cells.SpecialCells(xlCellTypeLastCell).Row
   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

là ça controle toutes tes cellules de la colonne A jusqu'à la dernière ligne remplie de ton classeur, et ça compte le nombre de "S" (attention à la majuscule)

pour mettre la valeur dans A1

wk.cells(1,1).formular1c1 = nbS

ou

wk.range("A1").formular1c1 = nbS

dans l'exemple wk est la feuille dans laquelle tu travaille

mistersaku · Answer

J'ai essaye ca mais ca ne marche pas

Sub Macro2()

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("A1").FormulaR1C1 = nbS




End Sub

jrivet · Answer

Salut,
Si ca bloque il doit bien avoir un intitulé à l'erreur. non? ce serait pas mal de le mettre

@+: Ju£i?n
Pensez: Réponse acceptée

mistersaku · Answer

Au temps pour moi

Run time error'424'
Object required

sobullshit · Answer

Je pense que ton pb vient de wk. Tu ne le déclare pas, donc tu ne peux pas l'utiliser.


Si tu précise la feuille sur laquelle tu travailles (Set wk = activesheet) ça devrait passer.


En tout cas j'utilise cette méthode pour récupérer les infos quand j'en ai besoin.

mistersaku · Answer

super ca marche super bien, merci

blh_ika · Answer

bonjour, 
un peu ds le même style de comptage, comment faire pour empêcher de dépasser un maximum de lettres(que l'on se fixe soi-même) écrites ds un script pour tchater dans irc ? 
merci

Saintes sont les armes quand il n'est plus d'espoir qu'en elles.(Tite-Live)

sobullshit · Answer

Crée un nouveau topic

Compter les lettres

9 réponses

Votre réponse

Discussions similaires