recherche mot

[bonbon76]

Bonjour,
Etant débutant je n'arrive pas à choisir une partie d'un texte ou d'un nombre dans une cellule
Par exemple je recherche atl dans une cellule ou il y a dedans atl1234,et le message retourné est "la valeur atl n'est pas enregistrée"
Merçi d'aider un débutant


Option Explicit
Dim countTot As Long
Dim counter As Long
Dim strSearchString As String
Dim Ws As Object
Dim foundCell As Variant
Dim loopAddr As Variant
Dim returnValue As String

strSearchString = InputBox(Prompt:="Saisir la valeur à chercher.", Title:="Recherche")
If strSearchString = "" Then Exit Sub
For Each Ws In Worksheets
countTot = countTot + Application.CountIf(Ws.UsedRange, "=" & strSearchString)
Next Ws
If countTot = 0 Then
returnValue = MsgBox(" La valeur " & strSearchString & " n'est pas enregistrée ", vbOKOnly, " Message ")
Else
counter = 0
For Each Ws In Worksheets
With Ws
.Activate
Set foundCell = .Cells.Find(What:=strSearchString, LookIn:=xlValues, LookAt:=xlWhole)
If Not foundCell Is Nothing Then
loopAddr = foundCell.Address
Do
counter = counter + 1
foundCell.Activate
If countTot = 1 Then
returnValue = MsgBox(" La valeur " & strSearchString & " est enregistrée 1 seule fois ", vbOKOnly, " Message ")
Exit Sub
End If
If counter = countTot Then
returnValue = MsgBox(" La valeur " & strSearchString & " sélectionnée est la dernière !", vbOKOnly, "Message")
Sheets("Feuil1").Activate
Range("A1").Select
Exit Sub
Else
returnValue = MsgBox(" La valeur " & strSearchString & " sélectionnée est la " & counter & " sur " & countTot & " existantes. " & vbLf & _
" Voulez vous continuer la recherche ? ", vbYesNo, "Message")
If returnValue = vbNo Then Exit For
Set foundCell = .Cells.FindNext(After:=foundCell)
End If
Loop While Not foundCell Is Nothing And foundCell.Address <> loopAddr
End If
End With
Next Ws
End If

End Sub

 

[tototiti2008]

Re : recherche mot

Bonjour bonbon76,

je n'ai pas tout lu mais essaye de remplacer

Set foundCell = .Cells.Find(What:=strSearchString, LookIn:=xlValues, LookAt:=xlWhole)

par

Set foundCell = .Cells.Find(What:=strSearchString, LookIn:=xlValues, LookAt:=xlPart)

 

[Pierrot93]

Re : recherche mot

bonsoir bonbon

dans la ligne de code :

.Cells.Find(What:=strSearchString, LookIn:=xlValues, LookAt:=xlWhole)

remplace "xlWhole" par "xlPart"

bonne soirée
@+

Aarf bonsoir tototiti, plus rapide...

 

[bonbon76]

Re : recherche mot

Bonsoir j'ai essayé cela ne marche pas
merçi

 

[bonbon76]

Re : recherche mot

Bonsoir j'ai essayé cela ne marche pas
merçi

 

[Pierrot93]

Re : recherche mot

Re

ca ne fonctionne pas, ca veut dire quoi ? message d'erreur ou pas le résultat attendu ?

@+

 

[bonbon76]

Re : recherche mot

Bonjour,
en effet je me suis mal exprimé,le résultat n'est pas attendu mais il n'y a pas de message d'erreur

Par exemple si je recherche atl dans une cellule ou il y a dedans atl1234
le message retourné est "la valeur atl n'est pas enregistrée"
ou si je recherche 123 le message retourné est "la valeur 123 n'est pas enregistrée"

 

[Pierrot93]

Re : recherche mot

Bonjour bonbon, tototiti

testes le code ci dessous sur la feuille concernée, plage A1:A10 à adapter :

Option Explicit
Sub test()
Dim x As Range, r As String
r = "alt"
Set x = Range("A1:A10").Find(r, , xlValues, xlPart, , , False)
If Not x Is Nothing Then MsgBox "trouvé en " & x.Address
End Sub

bonne journée
@+