erreur 1004

[Roger69]

bonjour

j'ai un petit soucis ou je n'arrive pas a corriger l'erreur!

quand je met ma feuille en protéger j'ai une erreur débogage quand je veut remplir le formulaire de la feuille.

le débogage me souligne en jaune l'erreur,
Private Sub TextBox1_Change()
[A2] = TextBox1
End Sub

 

[camarchepas]

Re : erreur 1004

Bonjour ,

Comment protéges tu ta feuille ?

J'ai des erreurs sur des bibliothéques embarquées inexistantes sous XL2010 et sur mon poste .

un fois ces références désactivées , cela fonctionne pour moi

 

[Roger69]

Re : erreur 1004

bonjour camarchepas et le forum
bizar je n'ai plus le ruban excel ya un hic la je regarde sa je te tien au courant

 

[Roger69]

Re : erreur 1004

bonjour
bon voila ses rétablie je vais dans révision est dans modification je clic sur protéger la feuille

 

[camarchepas]

Re : erreur 1004

Et oui car dans la feuille , on trouve le code :

Sub ProtegeFeuillle()
Worksheets("TRAVAUX").Protect _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True, _
AllowSorting:=True, _
AllowFiltering:=True
End Sub


et donc tu n'utilises pas celui ci pour protéger .
Dommage car , il permet au code d'avoir accés au feuilles même si bloqué pour l'utilisateur.


Sinon , voici comment faire , mais il faudra le faire à chaque fois qu'il y a écriture .

Private Sub TextBox1_Change()
Worksheets("TRAVAUX").unprotect
[A2] = TextBox1
Worksheets("TRAVAUX").protect
End Sub

 

[Roger69]

Re : erreur 1004

donc le code que tu ma doner je l'ai bien mis, mais le probleme quand je clic sur le formulaire de saisie pour rentree les element de la feuille sa me met toujours la même erreur
e débogage me souligne en jaune l'erreur,
Private Sub TextBox1_Change()
[A2] = TextBox1
End Sub

 

[gosselien]

Re : erreur 1004

Bonjour,

textbox1.value ?

P.

 

[Roger69]

Re : erreur 1004

bonjour gosselien
même avec le textbox1. value rien n'y fait

 

[gosselien]

Re : erreur 1004

va voir dans l'éditeur VBA dans Outils/références, il te manque peut être qq chose ?

en fait, je vois 2 choses: (mais je peux me tromper)

tu ne sélectionnes pas l'ensemble des données à valider en FIN de remplissage du userform mais tu écris en direct dans la feuille...

et surtout il me semble que tu ne sélectionnes pas la feuille ad 'hoc avant d'aller y écrire l'ensemble des données du usf

 

[Roger69]

Re : erreur 1004

non tout ai dans l'odre je ne vois pas le probleme le pourquoi et le comment sa me met un débogage quand j'utilise le formulaire de saisie

 

[camarchepas]

Re : erreur 1004

Re

@ Gosselien : Bonjour

@ Roger , A oui , tu n'as pas mis de mot de passe lors de la protection ?

Peut-tu essayer comme ceci ?

Private Sub TextBox1_Change()
with Worksheets("TRAVAUX")
.unprotect
.range("A2") = TextBox1
.protect
end with
End Sub

 

[Roger69]

Re : erreur 1004

non pas de mot de pass juste protéger la feuille, mais le formulaire ne fonctionne toujours pas en feuille protéger

 

[camarchepas]

Re : erreur 1004

Bon , le truc est qu'il faut donner la main au code donc protéger avec :

Sub ProtegeFeuillle()
Worksheets("TRAVAUX").Protect _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True, _
AllowSorting:=True, _
AllowFiltering:=True
End Sub

et idem pour animateurs .

Ensuite , cela ne sert à rien de sauvegarder les infos en dynamique, simplement sur bouton de validation tu sauvegardes l'ensemble de tes données , le plus est d'ailleurs de sauvegarder le fichier en même temps .

Là , c'est un peu usine à gaz

 

[camarchepas]

Re : erreur 1004

Roger ,

Voici comment faire , mais j'insiste , ta méthode de sauvegarde en dynamique ne peut t'emmener que des ennuis :

 

[Roger69]

Re : erreur 1004

merci a toi camarchepass bonne soiré