Question useform/formulaire

  • Initiateur de la discussion Initiateur de la discussion opowa
  • 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 !

opowa

XLDnaute Nouveau
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)
 
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 😉 )
NouvelleDiscuss.jpg
 

Pièces jointes

  • NouvelleDiscuss.jpg
    NouvelleDiscuss.jpg
    38.4 KB · Affichages: 21
  • NouvelleDiscuss.jpg
    NouvelleDiscuss.jpg
    38.4 KB · Affichages: 22
Re : Question useform/formulaire

Bonjour à tous,

Peux-tu essayer avec :

Code:
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
 
- 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
7
Affichages
1 K
H
Réponses
19
Affichages
6 K
Réponses
9
Affichages
3 K
Retour