compteur d'occurence d'un motRésolu

Question

Bonjour,



Je suis en train d'&#233;crire une petite macro en VBA Excel pour faire quelques stats.



J'aimerais en fait conna&#238;tre le nombre de cellule (dans une seule
colonne) dans lesquelles le mot "conforme" appara&#238;t. Hors si je mets:



If cells(i, j).value = "conforme" il ne consid&#232;re que les cellules ou
se mot est seul et bien orthographi&#233;, mais le mot conforme se trouve
dans une phrase. Comment faire pour qu'il ne prenne en compte que le
mot conforme?



D'avance je vous remercie

guilleto · Accepted Answer

Salut &#224; toi &#212; programmeur VB sous Excel,

En consid&#233;rant que la colonne que tu veux tester soit la 2&#232;me tu dois mettre la commande suivante :
Selection.AutoFilter Field:=2, Criteria1:="=*conforme*", Operator:=xlAnd

Dans le cas d'une macro sans filtre automatique tu dois mettre la fonction suivante :

Public Sub CompterCONFORME()
  Ligne = 2
  Cpt = 0
  Do
    DoEvents
    If UCase(Cells(Ligne, 2)) Like "*CONFORME*" Then
      Cpt = Cpt + 1
    End If
    Ligne = Ligne + 1
    If Cells(Ligne, 2) = "" Then Exit Do
  Loop
  Cells(1, 3) = Cpt
End Sub


Private Sub CommandButton1_Click()
  CompterCONFORME
End Sub

Et Voil&#224; !!

Olivier

Ninette08 · Answer

for i = 1 to len(cells(i, j).value )-8
   if mid (cells(i, j).value,i,8)= "conforme" then
      "ok"
   end if
next i

Ninette

cs_DARKSIDIOUS · Answer

Utilise plut&#244;t InStr, ce sera s&#251;rement plus rapide :



dim iPosition as integer

dim iNombreMot as integer

Let iPosition = 1

While iPosition <> 0



    Let iPosition = InStr(iPosition, texte, mot)

    Let iNombreMot = iNombreMot + 1



Wend
Let iNombreMot = iNombreMot - 1


DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

jazzcaf · Answer

Merci beaucoup ca fonctionne nickel maintenant ;-)

guilleto · Answer

De rien !

Compteur d'occurence d'un mot

5 réponses

Discussions similaires