Forum Clubic

[Excel VB] Utiliser zone de texte

Bonjour,
comment puis je utiliser une zone de texte que je viens de créer dans une feuille pour qu’elle effectue une recherche de mot dans tous les onglets d’un classeur ??

surement par une macro, mais je débute en VB.

Merci d’avance

Bonjour,

Je te prierai de mettre le langage informatique dans le titre, tel que requis par la charte du forum programmation - pour une meilleure compréhension les uns des autres.

A lire :
http://www.clubic.com/forum/charte-du-foru…on-t306797.html

Pour éditer:
Suffit de cliquer sur ce bouton, dans ton message : http://www.clubic.com/forum/style_images/persoclubic/editer.gif

(note : ce message est un gros copier coller, ne pas répliquer derrière)

tu dois faire une boucle qui liste toutes les feuilles
Voila, par exemple, la structure du programme:

Private Sub btn_Click()

'Boucle sur tous les onglets du classeur
For i = 1 To Sheets.Count
     'Recherche du mot qui est dans la zone de texte
 ------------ 
 ------------
Next i

End Sub

Bonjour le forum,
désolé Sans-Nom, j’avoue n’avoir pas lu la charte :confused:

merci muscorp, pour la boucle :super:
maintenant j’ai bien avancé et je cherche a faire afficher chaque resultat des onglets du mot trouvé avec le nom de la feuille et avec l’adresse de la cellulle et pour ca j’ai un test qui fonctionne bien le voici en Rouge avec toute la macro (récupéré et modifié pour moi) je m’explique ensuite :

voila où j’en suis donc juste aprés le test en rouge j’essaye en vain de faire afficher le 1er resultat
[Range(“n3”) = Feuil.Name] dans la cellule n3 puis [Range(“o3”) = Cel.Address(0, 0)] dans la cellule o3
le 2eme resultat je voudrais qu’il soit dans n4 et o4
le 3eme resultat je voudrais qu’il soit dans n5 et o5 …Etc

Comment puis je modifier

i = i + 1
    Range("n3") = Feuil.Name
    Range("o3") = Cel.Address(0, 0)

pour descendre d’une ligne a chaque resultat en utilisant i = i + 1 ???

Pour info ne tenez pas compte de la MsgBox que j’ai mis en commentaire mais pour tester vous pouvez l’activer bien sur

Regarde dans l’aide la propriété “offset” :wink:
Sinon, au lieu d’utiliser un “Range”, utilise “Cells”