Worksheets cachée

[soluopodapap]

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.

 

[PMO2]

Re : Worksheets cachée

Bonjour,

Essayez avec votre code modifié

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

 

[soluopodapap]

Re : Worksheets cachée

Bonjour,

Merci pour ces modifications mais j'obtiens toujours le même message d'erreur...je continue les recherches...
Cordialement.