Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
911 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Rechercher un terme dans différentes feuilles excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Rechercher un terme dans différentes feuilles excel

n°1018446
Nairolf87
Posté le 19-03-2005 à 16:43:37  profilanswer
 

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

mood
Publicité
Posté le 19-03-2005 à 16:43:37  profilanswer
 

n°1018838
kilimanjar​o
Palm à 6000
Posté le 20-03-2005 à 07:57:28  profilanswer
 

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

n°1019070
Nairolf87
Posté le 20-03-2005 à 17:03:07  profilanswer
 

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.
 

n°1019073
kilimanjar​o
Palm à 6000
Posté le 20-03-2005 à 17:09:32  profilanswer
 

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 ?
 

n°1019074
Nairolf87
Posté le 20-03-2005 à 17:12:56  profilanswer
 

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 ? ??

n°1019197
galopin01
Posté le 20-03-2005 à 19:10:49  profilanswer
 

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
n°1039420
Nairolf87
Posté le 07-04-2005 à 21:55:04  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Rechercher un terme dans différentes feuilles excel

 

Sujets relatifs
macros excel à téléchargerInhiber une boite de dialogue sous VBA Excel
probleme vb => excel => submettre a jour un projet vb developpé sous excel en vb.net
[VB6] Ouvrir EXCELaccess/excel exportation données
Feuilles de styleliaison prog C++ et excel
[css]marges différentes entre IE et FF[Excel] Retourner la valeur d'une cellule
Plus de sujets relatifs à : Rechercher un terme dans différentes feuilles excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR