[Excel VB] Utiliser zone de texte

[Potentis]

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

[Sans-Nom]

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)

[muscorp]

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

[Potentis]

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

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 :

Private Sub CmdOK_Click()
Dim Str_Plage As String
Dim Cel As Range
Dim Feuil As Worksheet
Dim Str_critère As String
Dim X As Byte

Str_Plage = "A1:L10"
Str_critère = TextBox1.Value
For Each Feuil In Sheets
For Each Cel In Feuil.Range(Str_Plage)
If UCase(Cel) = UCase(Str_critère) Then

'Boucle sur tous les onglets du classeur

'For i = 1 To Sheets.Count
i = i + 1
    Range(“n3”) = Feuil.Name
    Range(“o3”) = Cel.Address(0, 0)
'Next i

'X = MsgBox(“Mot “”” & Str_critère & “”" trouvé :" & Chr(13) & _
'"Sur la feuille : " & Feuil.Name & Chr(13) & _
'"à l’adresse : " & Cel.Address(0, 0) & Chr(13) & Chr(13) & _
'“Oui : on arrête la recherche et on y va” & Chr(13) & _
'"Non : on continue la recherche " & Chr(13) & _
'“Annuler : on arrête la recherche” & Chr(13), vbDefaultButton1 + _
'vbQuestion + vbYesNoCancel, “MOT TROUVÉ”)
'Select Case X
'Case 6
'Feuil.Activate
'Cel.Activate
'Exit Sub
'Case 2 'annuler on sort
'Exit Sub
'Case Else 'Non=7
'on fait rien, mais on pourrait
'End Select

End If
Next Cel
Next Feuil
MsgBox ("pas trouvé")
End Sub

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

[Takama]

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