Fonction rechercher mot contenant un apostrophe avaec %
Bonjour
Est ce que quelq'un connait la facon pour éviter l'arrêt de la fonction rechercher lorsque l mot ä trouver contient un apostrophe et avec %?
Salut le Forum
Merci d'être plus explicite dans ta demande.
Mytå
Donc désolée,
voilà plus précisément ce que je veux dire:
J,ai la fonction suivante, ce sont plusieurs feuilles excel, avec une liste d'aliments, la fonction recherche le mot pour par la suite inscrire les quantités consommées et quel repas .....cependant le problème est que lorsqu'un aliment contient un appostrophe, la foncction s'arrête car il ne reconnait pas l'appostrophe comme un caractère, et les mots avec appostrophe ne sont pas trouvés.... J'ai le même problème avec le signe %....
ex: jus d'orange, jus d'ananas, etc.....
ex: lait 1%, lait 3.25%
Est ce que quelqu'un connait la façon de détourner le problème?
merci d'avance:
Sub RechercheMot()
Dim Depart As String
Dim Cel As Range
Dim ws As Worksheet
Dim Mot As String
Recommence:
Mot = InputBox("Quel est l'aliment ?")
If Mot = "" Then Exit Sub
For Each ws In Sheets(Array("Boissons", "P. Laitiers", "Mets c.", "Lég-Fruits", "Soupes", "Dess-Grignot", "Divers", "MG", "Resto", "Viandes", "P.Céréaliers"))
Set Cel = ws.Cells.Find(What:=Mot, LookIn:=xlValues, lookat:=xlPart)
If Not Cel Is Nothing Then
ws.Select
ws.Unprotect
Depart = Cel.Address
Do
Cel.Interior.ColorIndex = 34
Cel.Select
Select Case MsgBox("Est-ce le bon aliment", vbQuestion + vbYesNoCancel)
Case vbYes
If Cel.Offset(0, 2) <> "" And Cel.Offset(0, 4) <> "" Then
If MsgBox("Colonnes complètes on continue la recherche", vbQuestion + vbYesNo) <> vbYes Then
Cel.Interior.ColorIndex = xlNone
ws.Protect
GoTo FinProgramme
End If
Else
UserForm1.Show
Cel.Interior.ColorIndex = xlNone
ws.Protect
If MsgBox("Une autre recherche ?", vbQuestion + vbYesNo) = vbYes Then GoTo Recommence
GoTo FinProgramme
End If
Case vbNo
Case Else
Cel.Interior.ColorIndex = xlNone
ws.Protect
GoTo FinProgramme
End Select
Cel.Interior.ColorIndex = xlNone
Set Cel = ws.Cells.FindNext(Cel)
Loop While Depart <> Cel.Address
ws.Protect
End If
Next ws
FinProgramme:
Retournerpagedaccueil
End Sub
J,ai finalement remplacer les % et ' par des "" et ca fonctionne
Mot = Replace(Mot, "'", "")
Mot = Replace(Mot, "%", "")