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
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
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
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