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

Worksheets cachée

  • Initiateur de la discussion Initiateur de la discussion soluopodapap
  • 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 !

S

soluopodapap

Guest
Bonjour,

J'ai crée un formulaire de saisie. Je cherche à enregistrer les données dans une feuille "BD" dans des colonnes précises lorsque je clique le bouton "ok" du formulaire. J'utilise le code suivant avec le code suivant (qui marche pour un autre formulaire ) :

Private Sub enregistrement()
Worksheets("BD").Cells(2, 12).End(xlDown).Offset(1, 0) = recep.Text
Worksheets("BD").Cells(2, 13).End(xlDown).Offset(1, 0) = trait.Text
Worksheets("BD").Cells(2, 14).End(xlDown).Offset(1, 0) = complet.Text
Worksheets("BD").Cells(2, 15).End(xlDown).Offset(1, 0) = obs.Text
Unload SUIVI
End Sub

Private Sub ok_Click()
Call enregistrement
End Sub

Lorsque je lance le programme j'ai le message d'erreur suivant lorsque je vais dans debogage :
"Impossible d'aller à "Worksheets" qui est cachée".

Je ne comprends pas ce message étant novice en programmation vba.
Pourriez vous m'aider ?
Merci.
 
Re : Worksheets cachée

Bonjour,

Essayez avec votre code modifié
Code:
Private Sub enregistrement()

Worksheets("BD").Visible = True

Worksheets("BD").Cells(2, 12).End(xlDown).Offset(1, 0) = recep.Text
Worksheets("BD").Cells(2, 13).End(xlDown).Offset(1, 0) = trait.Text
Worksheets("BD").Cells(2, 14).End(xlDown).Offset(1, 0) = complet.Text
Worksheets("BD").Cells(2, 15).End(xlDown).Offset(1, 0) = obs.Text

Worksheets("BD").Visible = False

Unload SUIVI
End Sub

Cordialement.

PMO
Patrick Morange
 
Re : Worksheets cachée

Bonjour,

Merci pour ces modifications mais j'obtiens toujours le même message d'erreur...je continue les recherches...
Cordialement.
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
932
Réponses
4
Affichages
597
Réponses
15
Affichages
830
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…