Rechercher un terme dans différentes feuilles excel

Rechercher un terme dans différentes feuilles excel - VB/VBA/VBS - Programmation

Marsh Posté le 19-03-2005 à 16:43:37    

Bonjour,
je voudrais rechercher un terme (par ex le terme: "Salade" ) dans différentes feuilles excel dans une colonne bien précise ( colonneB) et je voudrais que dans une autre feuille excel à une case bien précise (B5) soit indiqué le nombre de fois ou le terme apparait.
 
Merci de votre réponse

Reply

Marsh Posté le 19-03-2005 à 16:43:37   

Reply

Marsh Posté le 20-03-2005 à 07:57:28    

sub toto
    Dim fl As Object
    Dim nb As Long
    For Each fl In ThisWorkbook.Sheets
        nb = nb + Application.CountIf(Range("B2:B" & Range("B65536" ).End(xlUp).Row), "SALADE" )
    Next fl
    Sheets("TAFEUILLE" ).Range("B5" ).Value = nb
end sub

Reply

Marsh Posté le 20-03-2005 à 17:03:07    

Merci de votre aide mais j'ai essayé cette formule et qd je l'applique elle affiche la valeur 0 alors que c'est faux.
 

Reply

Marsh Posté le 20-03-2005 à 17:09:32    

Tes feuilles de données sont bien dans le classeur qui contient le code ?
C'est bien le mot "SALADE" en majuscule que tu recherches ?
 

Reply

Marsh Posté le 20-03-2005 à 17:12:56    

les feuilles de données sont bien dans le classeur qui contient le code. mais est ce que les majuscules et minuscule peuvent poser un problème ? ??

Reply

Marsh Posté le 20-03-2005 à 19:10:49    

bonjour,
Non les majuscules n'ont pas d'importance. Essaie ça :

Code :
  1. Sub Test()
  2. Dim i%, o As Object
  3. For Each o In Worksheets
  4. o.Activate
  5. i = i + Application.CountIf(Range("B2:B" & Range("B65536" ).End(xlUp).Row), "SALADE" )
  6. Next
  7. Sheets("TAFEUILLE" ).Range("B5" ).Value = i
  8. End Sub


Ok ?


Message édité par galopin01 le 20-03-2005 à 19:11:19
Reply

Marsh Posté le 07-04-2005 à 21:55:04    

merci pour vos réponses mais j'ai un léger problème quand j'applique le code VBA il me met dans la case B5 la valeur 0 alors que c'est pas la bonne valeur.
Cependant j'ai pu constater que lorsque qu'on lance la formule, la recherche s'active.
 
Merci de m'aider

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed