Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion Roger69
  • 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 !

R

Roger69

Guest
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
 
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
 
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
 
Dernière modification par un modérateur:
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
 
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
 
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
 
Dernière édition:
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
 
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
 
Dernière modification par un modérateur:
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
 
- 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
10
Affichages
633
Réponses
14
Affichages
449
  • Question Question
Réponses
7
Affichages
464
Réponses
4
Affichages
550
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…