judoka0209
XLDnaute Occasionnel
bonjour a tous et merci pour le temps passé
j'ai crée une macro qui marche, qui cherche un mot "CB" mais lorsque je la lance il me trouve rien si il est dans du texte et pas seul dans une colonne
j'espere mettre bien exprime sur mon attente
je vous joint le fichier
Sub Macro1()
'twb fait référence au classeur en cours
Set twb = ThisWorkbook
Dim resultat As String
' on demande le texte"
resultat = InputBox("Entrer le texte :", "mot") 'La variable reçoit la valeur entrée dans l'InputBox
If resultat <> "" Then 'Si la valeur est différente de "" on affiche le résultat
MsgBox "le texte est " & resultat
End If
' on va parcourir un à un toutes les feuilles du classeur en cours, ws identifie chacune de ces feuilles
i = 0
For Each ws In twb.Worksheets
' on recherche le texte dans la feuille ws
Set trouve = ws.Cells.Find(resultat, LookIn:=xlValues, LookAt:=xlWhole)
If Not trouve Is Nothing Then
pAddresse = trouve.Address
If i = 0 Then Set nwb = Workbooks.Add
Do
i = i + 1
ws.Rows(trouve.Row).Copy nwb.Sheets(1).Range("A" & i)
Set trouve = ws.Cells.FindNext(trouve)
Loop While Not trouve Is Nothing And trouve.Address <> pAddresse
End If
' on passe au classeur suivant
Next
If i = 0 Then
MsgBox "lio non trouvé"
End If
End Sub
j'ai crée une macro qui marche, qui cherche un mot "CB" mais lorsque je la lance il me trouve rien si il est dans du texte et pas seul dans une colonne
j'espere mettre bien exprime sur mon attente
je vous joint le fichier
Sub Macro1()
'twb fait référence au classeur en cours
Set twb = ThisWorkbook
Dim resultat As String
' on demande le texte"
resultat = InputBox("Entrer le texte :", "mot") 'La variable reçoit la valeur entrée dans l'InputBox
If resultat <> "" Then 'Si la valeur est différente de "" on affiche le résultat
MsgBox "le texte est " & resultat
End If
' on va parcourir un à un toutes les feuilles du classeur en cours, ws identifie chacune de ces feuilles
i = 0
For Each ws In twb.Worksheets
' on recherche le texte dans la feuille ws
Set trouve = ws.Cells.Find(resultat, LookIn:=xlValues, LookAt:=xlWhole)
If Not trouve Is Nothing Then
pAddresse = trouve.Address
If i = 0 Then Set nwb = Workbooks.Add
Do
i = i + 1
ws.Rows(trouve.Row).Copy nwb.Sheets(1).Range("A" & i)
Set trouve = ws.Cells.FindNext(trouve)
Loop While Not trouve Is Nothing And trouve.Address <> pAddresse
End If
' on passe au classeur suivant
Next
If i = 0 Then
MsgBox "lio non trouvé"
End If
End Sub