transfert de saisies dans Excel

[hidozo]

Bonjour,

j'ai le code (extrait, car après j'ai les consignes d'effacer la saisie précédente du formulaire)) suivant pour basculer les éléments de mon formulaire dans Excel :

Private Sub NouvelleSaisie_Click()

If TextBox2.Value = "Attention oubli" Or TextBox2.Value = "" Or TextBox2 = "Penser à valider" Or TextBox2.Value = "Saisir le type d'action" Then
MsgBox ("Il faut impérativement cocher le type d'action et/ou valider !!!!")
Exit Sub
End If

Worksheets("feuil2").Select
derlig = [a65000].End(xlUp).Row + 1
'copie le compteur en A1
Cells(derlig, 1) = Me.TextBox4
'transfert toutes les saisie dans Excel et là elles n'y sont pas toutes
Cells(derlig, 13) = IIf(Me.Controls("checkbox1"), 1, "")
Cells(derlig, 14) = IIf(Me.Controls("checkbox2"), 1, "")
Cells(derlig, 15) = IIf(Me.Controls("checkbox3"), 1, "")
Cells(derlig, 16) = IIf(Me.Controls("checkbox4"), 1, "")
Cells(derlig, 17) = IIf(Me.Controls("checkbox5"), 1, "")
Cells(derlig, 18) = IIf(Me.Controls("checkbox6"), 1, "")
Cells(derlig, 19) = IIf(Me.Controls("checkbox7"), 1, "")

J'aimerai beaucoup essayér de regrouper tout ça pour diminuer le nombre de lignes, car mon formulaire est immense.

Comment puis-je faire ?

J'avais une solution :
rivate Sub CommandButton1_Click()
derlig = [A65000].End(xlUp).Row + 1
For i = 1 To 3
Cells(derlig, i) = IIf(Me.Controls("checkbox" & i), 1, 0)
Next i
Cells(derlig, 5) = Me.TextBox1
End Sub

mais elle me copie qu'à partir de la 1ère colonne et je n'arrive pas à décaler celles-ci pour lamettre en colonne 13 par exemple. De plus les checkbox sont numéroté &i et toutes mes texbox ont un nom différent.

Cordialement

 

[gilbert_RGI]

Re : transfert de saisies dans Excel

Bonjour

For i = 1 To 7
Cells(derlig, i+12) = IIf(Me.Controls("checkbox" & i), 1, 0)
Next i

devrait faire la demande

Cdlt

RGI