ajout de feuille dans vba

[yoyopasnet]

Bonjour,

Je viens vers vous car la je me heurte contre un problème (aie j’en ai mal à la tête).
Voilà suite à une vba honteusement pompé je n’arrive pas à obtenir le résultat escompté, c’est-à-dire que dans le résultat je n’ai que trois feuille hors je voudrai le résultat de toutes les feuilles
Vu que mon explication doit être un peu fouillis je joins le fichier

Un grand merci pour votre aide

 

[fhoest]

Re : ajout de feuille dans vba

Bonjour
je ne vois pas de problème a part sur le bouton de commande 1

dim f as worksheet ...
for each f in worksheets

lorsque je cherche il parcourt toute les feuilles
donne le mot que tu cherche je vais tester
A+

 

[yoyopasnet]

Re : ajout de feuille dans vba

Merci pour cet interet pour mon probleme
le mot teste de recherche est becu et la je n'ai de reponse que pour tois feuille

 

[fhoest]

Re : ajout de feuille dans vba

re,
met une apostrophe devant cette ligne:

 'If C.Row = lig Then GoTo boucle

en fait tu vérifie que la ligne trouvé n'est pas la même que la précédente
ceci est valable si tu reste sur la même feuille
et comme tu passe d'une feuille a l'autre si le c.row=la même ligne que la dernière valeur trouvée de la feuille précédente alors tu saute en boucle:
ici la ligne 8 pour ton exemple:
becu sur feuille tel pc = ligne 8
becu sur feuill wurth ligne 8 donc le saut est obligatoire
si becu sur feuille wurth = 9 tu auras une feuille de plus de trouver
A+

 

[yoyopasnet]

Re : ajout de feuille dans vba

mille merci cela marche nickel