Excel VBA: Comparer de text en section Résolu

Question

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! 

Configuration: Windows XP / Internet Explorer 7.0

gbinforme · Answer

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

Hobbles477 · Answer

Merci beaucoup!
Tout va bien la :D

Excel VBA: Comparer de text en section

2 réponses

Newsletters