MACRO Rechercher chaine et extraire sur place

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 !

Nougatine95

XLDnaute Occasionnel
Bonjour le Forum d'experts

J'ai consulté les antériorités sur ce forum et, sauf erreur, je n'ai rencontré des résultats que pour l'extraction dans une autre feuille.

Je souhaite affecter une macro au bouton
"Rechercher" ---> Rechercher UNE chaîne de caractères de la colonne "Nom"
Le résultat s'afficherait dans cette même colonne
puis affecter une macro au bouton "Afficher tout" pour retrouver la liste initiale

Autre requête: idem avec DEUX chaines distinctes condition: chaine 1 et chaine 2

Si aucun résultat trouvé ---> message: "Aucun résultat"


Mes remerciements pour votre aide.
 

Pièces jointes

Re : MACRO Rechercher chaine et extraire sur place

Bonsoir les Experts,

Suite à votre aide Ô combien précieuse 🙂,
j'ai pu automatiser ce fichier. C'est divin, clap! clap clap 😉

Je suis débutante en MACRO, je reviens donc vers vous 🙁

😕 Ma question:
Est-il possible d'écrire chaîne de texte et pouvoir cliquer directement sur bouton "Rechercher" sans avoir à:
- valider ce texte
ou
- se poser sur une autre cellule
? ...

Merci.
Voir fichier joint.
 

Pièces jointes

Re : MACRO Rechercher chaine et extraire sur place

Bonsoir,

Ci-joint 2 solutions.

Solution 1 :
En saisissant un texte en C2 et en validant, le filtre s'execute automatiquement.

Solution 2 :
En saisissant le texte dans la TextBox (à droite) et en cliquant sur le bouton Rechercher, le filtre s'execute.

A ma connaissance, il n'est pas possible de faire directement ce que tu souhaites.
 

Pièces jointes

Re : MACRO Rechercher chaine et extraire sur place

17/06/09

Bonsoir,
Je reviens vers vous...

Sur fichier joint, avec ce code, j'extrais les lignes où la colonne C contient la chaine inscrite en TextBox

Code:
Private Sub TextBox1_Change()
If Me.TextBox1 <> "" Then
    Range("C4").AutoFilter Field:=3, Criteria1:="=*" & Me.TextBox1 & "*"
Else
    ActiveSheet.ShowAllData
End If
End Sub

Que dois-je modifier pour extraire chaine parmi toute la page?, je suppose qu'il faut modifier uniquement cette ligne:

Code:
Range("A4:E48").AutoFilter Field:=
= ?????

Merci pour votre aide.
 

Pièces jointes

- 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
2
Affichages
1 K
P
  • Question Question
Réponses
1
Affichages
3 K
Patrosso
P
K
Réponses
1
Affichages
1 K
K
Retour