Erreur provoquée par SETFOCUS

Bonjour à tous et à toutes,

j'ai un TextBox sur une feuille que je vide avec un CommandButton (RAZ).

jusqu'ici le code fonctionne le clic sur le bouton efface le contenu du TextBox.

Je souhaite après le clic sur le CommandButton (RAZ) revenir en focus sur la TextBox qui est vidée.

Voici le code que j'essai d'utiliser:

'REMISE A ZERO DE LA QUARTO_BRAVO
Private Sub CommandButton_CRE_R_Q_B_Click()
'Je vide la QUARTO_BRAVO
Me.TextBox_CRE_QUARTO_BRAVO = ""
Me.TextBox_CRE_QUARTO_BRAVO.SetFocus
Cancel = True

End Sub

La ligne Me.TextBox_CRE_QUARTO_BRAVO.SetFocus provoque une erreur du type

Erreur d'exécution '438' :

Propriété ou méthode non gérée par cet objet.

Ce dysfonctionnement est il provoqué par le fait que je ne suis pas sur UserForm mais sur une feuille ?

Merci d'avance pour votre aide.

Bonsoir,

A tester.

Cdlt

Option Explicit
Private Sub cmdRAZ_Click()
    With TextBox_CRE_QUARTO_BRAVO
        .Value = ""
        .Activate
    End With
End Sub

Bonjour Jean-Eric,

Merci pour ton aide.

J'ai adopter ton code qui donne le résultat souhaité.

Après un clic avec le bouton "RAZ" le TextBox se met à zéro et reprend le Focus.

Merci encore

Peut on trouver sur ce site des explications complémentaires sur l’utilisation de With et End With.

Merci Jean-Eric

et

bonne journée

Bonjour,

Dans l'éditeur VBA, fais une recherche: