Excel VBA: Comparer de text en section

[Résolu/Fermé]
Signaler
-
 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

Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 478
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
Merci beaucoup!
Tout va bien la :D