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!

A voir également:

Excel VBA: Comparer de text en section
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Mise en forme conditionnelle excel - Guide

2 réponses

Réponse 1 / 2

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
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

Réponse 2 / 2

Hobbles477
4 août 2011 à 15:29

Merci beaucoup!
Tout va bien la :D

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule

Discussions similaires

Newsletters