critere de recherche dans cellule

  • Initiateur de la discussion Initiateur de la discussion phil7540
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

phil7540

XLDnaute Nouveau
bonsoir a tous
j'ai un souci avec mon critere de recherche dans une macro
j'aimerai faire une recherche dans une colonne mais mon critere c est juste le debut d un mot
ex: j ai dans A1 =P123456
dans A2 =P456456
j ai crée une macro qui recherche dans la colonne mais dans ma recherche je voudrai lui dir que je veux qu elle s arrete quand elle me trouve le debut du contenu c'est a dir le P...

aidez moi svp
merci d avance a tous

phil
 
Bonsoir

Je pense que le mieux est de créer une boucle (chose que tu as du faire j'imagine ) qui descend la colonne

ça donnerait un code dans ce genre :

Sub Macro_Recherche()
Dim Cellule_Depart As Range
Dim Critere As String
Dim Chaine As String
'On indique le critère de recherche
Critere = Application.InputBox('Tapez le critère de recherche', 'Titre')

Set Cellule_Depart = Application.InputBox('Sélectionnez la première cellule de la colonne', Titre, , , , , , 8)
'Le dernier paramètre (chiffre 8) indique que 'l'objet inputbox récupère l'adresse d'une cellule
a = 0
Do Until Cellule_Depart.Offset(a) = ''
Chaine = Cellule_Depart.Offset(a)
Debug.Print Chaine
If Left(Chaine, Len(Critere)) = Critere Then
Cellule_Depart.Offset(a).Select
Reponse = MsgBox('Cette cellule contient votre critère de recherche.Voulez - vous quitter la recherche ?', vbInformation + vbYesNo, 'Cellule trouvée')
If Reponse = 6 Then Exit Sub
End If
a = a + 1
Loop
End Sub
 
Ave,

''...je voudrai lui dir que je veux qu elle s arrete quand elle me trouve le debut du contenu c'est a dir le P...''

La ligne de la 1° cellule de la colonne A contenant 'P' (pas de respect de la cassse)

x = [A:A].Find(What:='P', lookAt:=xlPart).Row

AV [aaa]
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
99
Réponses
6
Affichages
217
Réponses
5
Affichages
290
Réponses
7
Affichages
876
Retour