Question useform/formulaire

[opowa]

Bonsoir à tous,

Je débute en useform et j'ai crée une fenêtre de saisie sur une de mes feuille Excel qui active mon programme via un bouton.
Le problème c'est que lors de la saisie de mes données dans la fenêtre de saisie , l'affectation de mes valeurs se retrouvent décalées à n+1 et je ne sais pas d'où peut venir le problème.
Auriez vous une idée?
Merci d'avance ,

ci dessous mon programme :

Private Sub Buttonok_Click()
'--- Positionnement dans la base
[A65000].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Value = Application.Proper(Me.TextBox1)
ActiveCell.Offset(0, 6).Value = Me.TextBox1
ActiveCell.Offset(0, 7).Value = Me.TextBox2
ActiveCell.Offset(0, 8).Value = ComboBox1
ActiveCell.Offset(0, 9).Value = Me.TextBox4
ActiveCell.Offset(0, 10).Value = Me.TextBox5
ActiveCell.Offset(0, 11).Value = Me.TextBox7
ActiveCell.Offset(0, 12).Value = Me.TextBox8
ActiveCell.Offset(0, 13).Value = Me.TextBox9
ActiveCell.Offset(0, 14).Value = Me.TextBox10
ActiveCell.Offset(0, 15).Value = Me.TextBox11
ActiveCell.Offset(0, 16).Value = Me.ComboBox2
ActiveCell.Offset(0, 17).Value = Me.ComboBox3
ActiveCell.Offset(0, 18).Value = Me.TextBox18
ActiveCell.Offset(0, 19).Value = Me.TextBox6
ActiveCell.Offset(0, 20).Value = Me.TextBox12
ActiveCell.Offset(0, 21).Value = Me.TextBox13
ActiveCell.Offset(0, 22).Value = Me.TextBox14
ActiveCell.Offset(0, 23).Value = Me.TextBox15
ActiveCell.Offset(0, 24).Value = Me.TextBox16
Unload Me
End Sub


(Les colonnes de 1 à 6 ne participent pas au formulaire)

 

[Staple1600]

Re : Question useform/formulaire

Bonsoir à tous

opowa: (bienvenue sur le forum)
Trouves ce qui manque dans ton premier message, stp
Un indice ci-dessous (cliques sur l'image pour mieux comprendre )

 

[opowa]

Re : Question useform/formulaire

Merci pour votre réponse, ce sera plus simple avec un fichier

Merci d'avance pour vos réponses!

 

[JCGL]

Re : Question useform/formulaire

Bonjour à tous,

Peux-tu essayer avec :

Private Sub Buttonok_Click()
 '--- Positionnement dans la base
  [A65000].End(xlUp).Offset(1, 0).Select
  '--- Transfert Formulaire dans BD
  ActiveCell.Value = Application.Proper(Me.TextBox1)
  ActiveCell.Offset(0, 5).Value = Me.TextBox1
  ActiveCell.Offset(0, 6).Value = Me.TextBox2
  ActiveCell.Offset(0, 7).Value = ComboBox1
  ActiveCell.Offset(0, 8).Value = Me.TextBox4
  ActiveCell.Offset(0, 9).Value = Me.TextBox5
  ActiveCell.Offset(0, 10).Value = Me.TextBox7
  ActiveCell.Offset(0, 11).Value = Me.TextBox8
  ActiveCell.Offset(0, 12).Value = Me.TextBox9
  ActiveCell.Offset(0, 13).Value = Me.TextBox10
  ActiveCell.Offset(0, 14).Value = Me.TextBox11
  ActiveCell.Offset(0, 15).Value = Me.ComboBox2
  ActiveCell.Offset(0, 16).Value = Me.ComboBox3
  ActiveCell.Offset(0, 17).Value = Me.TextBox18
  ActiveCell.Offset(0, 18).Value = Me.TextBox6
  ActiveCell.Offset(0, 19).Value = Me.TextBox12
  ActiveCell.Offset(0, 20).Value = Me.TextBox13
  ActiveCell.Offset(0, 21).Value = Me.TextBox14
  ActiveCell.Offset(0, 22).Value = Me.TextBox15
  ActiveCell.Offset(0, 23).Value = Me.TextBox16
Unload Me
End Sub

A+ à tous

 

[opowa]

Re : Question useform/formulaire

merci pour votre réponse JCGL, je me sens vraiment bête du coup !