Macro recherche
Résolu
massimo888
Messages postés
209
Statut
Membre
-
massimo888 Messages postés 209 Statut Membre -
massimo888 Messages postés 209 Statut Membre -
Bonjour,
J'aimerais faire une macro qui effectue une recherche d'une chaîne de caractères précise dans une colonne.
exemple chercher les cellules contenant "oui".
merci d'avance
J'aimerais faire une macro qui effectue une recherche d'une chaîne de caractères précise dans une colonne.
exemple chercher les cellules contenant "oui".
merci d'avance
2 réponses
-
Bonjour,
En supposant que ta recherche s'effectue dans la colonne A
Utilise ce code :
Sub Recherche_Chaine()
Dim Nb_Ligne As Integer, i As Integer
Nb_Ligne = Cells(Rows.Count, 1).End(xlUp).Row
Mot_Recherche = "Oui"
For i = 1 To Nb_Ligne
Resultat = InStr(Cells(i, 1), Mot_Recherche)
If Resultat <> 0 Then
MsgBox ("Le mot a été trouvé en Ligne " & i)
End If
Next i
End Sub-
-
-
-
-
J'ai mis un MSGBOX pour confirmer qu'il avait atrouvé le résultat mais à la place tu mets n'importe quelle action.
Par exemple si tu souhaite qu'il mette un X en colonne B pour Chaque "Oui" de retrouvé tu remplaces la ligne MSGBOX par celle ci :
cells(i,2)="X"
J'ai oublié de préciser une chose il faut que le terme soit noté impérativement de la même manière:
Oui, OUI, oui sont trois termes différent
-
-
Bonjour
rectificationFor L = 1 To Nb_Ligne
If UCase(Cells(L, 1).Value) = "OUI" Then
MsgBox ("Le mot a été trouvé en Ligne " & L)
End If
Next
A+
Maurice
