Excel VBA: Comparer de text en section

Résolu
Hobbles477 -  
Bonjour,

je suis débutant en VBA et j'ai essayé plein de chose mais aucun résultat. J'aimerais cherche des section de text dans une autre colonne avec des mots.

example: Colonne A
Aérodynamic avec "Aéro"

Lors qu'il est present j'aimerais que Colonne B devient OUI

quel fonction je devrais utiliser? InStr ? StrCmp?

merci en avance!

2 réponses

  1.  gbinforme Contributeur
    bonjour

    Tu peux aussi utiliser find qui est prévu pour cela.
    Un petit exemple de macro à lancer avec le texte cherché en paramètre : 

    Public Sub chercher(texte_à_chercher)
Dim lig As Long, deb As Range, sel As Range
Set deb = Range("A1")
Do
    Set sel = Columns(1).Cells.Find(what:=texte_à_chercher, After:=deb, LookIn:=xlValues, LookAt:=xlPart)
    If sel Is Nothing Then Exit Sub
    If sel.Row <= deb.Row Then Exit Sub
    sel.Offset(0, 1).Value = "OUI"
    Set deb = sel
Loop
End Sub
    0
    1. Hobbles477
      Merci beaucoup!
      Tout va bien la :D
      0