Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres Réinitialiser valeur TextBox

AIXELS

XLDnaute Occasionnel
Supporter XLD
Bonjour à tous les Amis du Forum.
De retour vers vous, pour vous demander votre aide.
Mon problème est le suivant : (voir fichier joint)
Formule FILTRE en "L5" pour recherches multicritères.
Tout fonctionne très bien, mais j'aurais voulu effacer le
critère de recherche du TextBox1 et positionner le curseur
dessus pour une nouvelle recherche.

"LinkedCell en O2".

VB:
Sub Reinitialiser_Recherche()
    Sheets("BASE_DE_DONNEES").Activate
    Range("O2").Select
    Range("O2").ClearComments
End Sub

Merci pour votre aide.
Bien cordialement.
 

Pièces jointes

  • EFFACER SAISIE TEXTBOX DE RECHERCHE.xlsm
    71.1 KB · Affichages: 3

wDog66

XLDnaute Occasionnel
Bonjour Aixels

Peut-être ainsi, mais il faudra dégrouper les objets
VB:
Sub Reinitialiser_Recherche()
  With Sheets("BASE_DE_DONNEES")
    .TextBox3.Activate
    .Range("O2").ClearContents
  End With
End Sub

A+
 
Dernière édition:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…