Macro recherche
Résolu/Fermé
massimo888
Messages postés
203
Date d'inscription
mercredi 11 juin 2014
Statut
Membre
Dernière intervention
7 avril 2017
-
29 juil. 2014 à 10:21
massimo888 Messages postés 203 Date d'inscription mercredi 11 juin 2014 Statut Membre Dernière intervention 7 avril 2017 - 4 août 2014 à 15:24
massimo888 Messages postés 203 Date d'inscription mercredi 11 juin 2014 Statut Membre Dernière intervention 7 avril 2017 - 4 août 2014 à 15:24
A voir également:
- Macro recherche
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Macro word - Guide
- Recherche adresse - Guide
- Recherche musique - Guide
2 réponses
WeaponEDGE
Messages postés
113
Date d'inscription
vendredi 18 juillet 2014
Statut
Membre
Dernière intervention
21 novembre 2014
9
Modifié par pijaku le 29/07/2014 à 13:37
Modifié par pijaku le 29/07/2014 à 13:37
Bonjour,
En supposant que ta recherche s'effectue dans la colonne A
Utilise ce code :
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
Bonjour
rectification
A+
Maurice
rectification
For 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
massimo888
Messages postés
203
Date d'inscription
mercredi 11 juin 2014
Statut
Membre
Dernière intervention
7 avril 2017
29 juil. 2014 à 11:18
29 juil. 2014 à 11:18
Merci beaucoup
29 juil. 2014 à 10:46
le code ne fait rien apparaitre. la MsgBox ne s'affiche pas.
Je vois pas pourquoi.
peut être parce que le mot oui est dans un tableau?
29 juil. 2014 à 10:52
29 juil. 2014 à 10:52
Merci
29 juil. 2014 à 10:54
Modifié par WeaponEDGE le 29/07/2014 à 11:05
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