XL 2016 Saisie formulaire dans une autre feuille

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 !

Cendrillon

XLDnaute Nouveau
Bonsoir,
Grâce a ce forum j'ai déjà bien avancé sur mon fichier et il me reste un point que je n'arrive pas faire...
Dans le premier onglet les personnes de l'atelier que j'anime vont pouvoir des indications et des boutons pour accéder à des formulaire. Les éléments saisies, j'aimerais qu'ils soient enregistrés dans l'onglet QA (plus exactement de A3:K3)

Pour le moment j'arrive à les saisir dans le même onglet seulement 😅 Je ne suis pas loin je sais mais là je butte

Quelle est la bonne synthaxe SVP car j'ai essayé pas mal après recherche d'exemples ici mais KO pour le moment.

Private Sub save_Click()

If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox7 = "" Or TextBox8 = "" Or TextBox9 = "" Or TextBox10 = "" Or TextBox11 = "" Then Exit Sub

For k = 1 To 11
Cells(3, k) = Controls("TextBox" & k).Value
Next

End Sub
 

Pièces jointes

Bonsoir,
Grâce a ce forum j'ai déjà bien avancé sur mon fichier et il me reste un point que je n'arrive pas faire...
Dans le premier onglet les personnes de l'atelier que j'anime vont pouvoir des indications et des boutons pour accéder à des formulaire. Les éléments saisies, j'aimerais qu'ils soient enregistrés dans l'onglet QA (plus exactement de A3:K3)

Pour le moment j'arrive à les saisir dans le même onglet seulement 😅 Je ne suis pas loin je sais mais là je butte

Quelle est la bonne synthaxe SVP car j'ai essayé pas mal après recherche d'exemples ici mais KO pour le moment.

Private Sub save_Click()

If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or TextBox5 = "" Or TextBox6 = "" Or TextBox7 = "" Or TextBox8 = "" Or TextBox9 = "" Or TextBox10 = "" Or TextBox11 = "" Then Exit Sub

For k = 1 To 11
Cells(3, k) = Controls("TextBox" & k).Value
Next

End Sub
ici tu avais dit que c'était bon. tu devrais revoir le fichier de l'autre discussion.
 
- 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

Discussions similaires

Réponses
3
Affichages
862
Réponses
7
Affichages
731
Retour