Excel VBA: Comparer de text en section

Résolu/Fermé
Hobbles477 - Modifié par Hobbles477 le 3/08/2011 à 16:31
 Hobbles477 - 4 août 2011 à 15:29
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

gbinforme
Messages postés
14935
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 621
4 août 2011 à 09:52
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
Merci beaucoup!
Tout va bien la :D
0