Autres Réinitialiser valeur TextBox

[AIXELS]

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".

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

Merci pour votre aide.
Bien cordialement.

 

[wDog66]

Bonjour Aixels

Peut-être ainsi, mais il faudra dégrouper les objets 🥴

Sub Reinitialiser_Recherche()
  With Sheets("BASE_DE_DONNEES")
    .TextBox3.Activate
    .Range("O2").ClearContents
  End With
End Sub

A+

 

[AIXELS]

Bonsoir @wDog66
Merci pour ton aide.
Ça fonctionne très bien.
Bonne soirée.
Bien cordialement.