Excel VBA: Comparer de text en section

Résolu
Hobbles477 -  
 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!

A voir également:

2 réponses

Réponse 1 / 2
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 730
 
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
Réponse 2 / 2
Hobbles477
 
Merci beaucoup!
Tout va bien la :D
0