projet catalogue (questions divers)

Potentis · 17 Novembre 2006

affichage d'une recherche de mot

Bonjour tous,
Je viens de trouver sur le net une macro qui pourrait effectuer une recherche de mot sur tous les onglets d'un classeur a partir d'une TextBox validé par un bouton OK

j'ai déjà commencé a la modifer mais je coince pour avoir l'affichage du résultat que je souhaiterais comme ceci :

au lieu d'afficher une MsgBox, je voudrais juste que le 1er résultat affiche dans la feuille 1 en cellule N3 le nom de la feuille où a été trouvé ce 1er résultat, ensuite a coté en O3 je voudrais les coordonnées du mot que je cherchais par exemple F48
le 2eme résultat affiche le nom de la feuille en N4 et les coordonnées en O4
le 3eme résultat affiche le nom de la feuille en N5 et les coordonnées en O5 ...Etc

j'aimerai bien conserver la MsgBox de l'avant derniere ligne en cas de "pas trouvé"

Merci pour votre aide

voici la macro en question

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:L200"
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
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

projet catalogue (questions divers)

Potentis

XLDnaute Occasionnel

Discussions similaires