Voila ce que je recherche
- explication-
dans mes cellules d'excel, j'ai des phrases plus au mon court avec ou sans chiffres etc...
Actuellement j'au une macro de Gorfael qui cherche un mot elle fonctionne correctement >Ok
Ce que je j'aimerais c’est rechercher plusieurs mots clés a la fois qui sont aléatoirement dans le texte afin d'affiner ma recherche.
merci
Arno67
***********
Sub Macro_Recherche()
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 = "A1360"
Str_critère = InputBox("Mot excat à rechercher ?")
For Each Feuil In Sheets
For Each Cel In Feuil.Range(Str_Plage)
If UCase(Cel) Like "*" & UCase(Str_critère) & "*" Then
Feuil.Activate
Cel.Activate
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é, ce mot n'existe pas, refait une nouvelle recherche... !?!")
End Sub
- explication-
dans mes cellules d'excel, j'ai des phrases plus au mon court avec ou sans chiffres etc...
Actuellement j'au une macro de Gorfael qui cherche un mot elle fonctionne correctement >Ok
Ce que je j'aimerais c’est rechercher plusieurs mots clés a la fois qui sont aléatoirement dans le texte afin d'affiner ma recherche.
merci
Arno67
***********
Sub Macro_Recherche()
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 = "A1360"
Str_critère = InputBox("Mot excat à rechercher ?")
For Each Feuil In Sheets
For Each Cel In Feuil.Range(Str_Plage)
If UCase(Cel) Like "*" & UCase(Str_critère) & "*" Then
Feuil.Activate
Cel.Activate
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é, ce mot n'existe pas, refait une nouvelle recherche... !?!")
End Sub