Discussion :

[leosalex]

Bonjour, j'ai une question concernant la recherche de caractère dans une phrase. Est-il possible en code VBA de chercher une série de caractère ( par exemple "Ø012.00") dans une cellule (par exemple "CRR Ø012.00 R00.0 lc020 lu030" ).
Si oui est-il possible que quelqu'un puisse m'aider sur le code ?

Merci d'avance

Alex

[Invité]

Salut,

Avec la chaine de caractère en A1 et la formule en B1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Option Explicit
 
Private Sub Recherche()
  [B1].FormulaR1C1 = _
    "=IF(ISNUMBER(FIND(""Ø012.00"",INDIRECT(""A1""))),""VRAI"",""FAUX"")"
End Sub

[leosalex]

Merci Beaucoup =)

[Thautheme]

Bonjour Velosolex, petite fleur, bonjour le forum,

Une autre proposition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Macro1()
If InStr(1, Range("A1").Value, "Ø012.00", vbTextCompare) <> 0 Then
    MsgBox "ok" 'ICI LE CODE QUI VA BIEN
End If
End Sub

[Invité]

Effectivement c'est beaucoup mieux.

[leosalex]

Parfait, merci pour vos deux réponses =)

[leosalex]

Si je souhaite chercher deux conditions par exemple "Ø006.00" et "H" . Comment écrit-on le ET dans la fonction ?