Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème débutant VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Sylvain
  • 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 !

S'inscrire
S

Sylvain

Guest
Bonjour à tout le Forum,

Je débute actuellement le code VBA et je rencontre quelques petits problèmes.

J'ai créé un classeur XLS qui appel une Userform dès que je clique sur un CommandButton.

Sur cette Userform se trouvent plusieurs TextBoxsur lesquelles je suis amené à saisir des informations.

Ensuite, à partir du moment ou je clique sur un CommandButton (situé sur ma Userform), mes informations contenues dans mes TextBox se recopient automatiquement dans un tableau préalablement tracé.

A chaque appel et saisie sur ma Userform, les informations de mes TextBox se recopie à la suite du tableau.

Je souhaiterai qu'à partir du moment où je clique sur mon CommandButton de ma Userform, un numéro apparaisse dans la colonne 'A' (et s'incrémente à chaque clique.

Mille merci à ceux qui pourront m'éclairer.

Bonne fin de journée
 
Trier par date Trier par votes
Bonjour Sylvain

tu peux insérer la ligne de code ci dessous à l'évenement Click du Sub CommandButton

Range('A65536').End(xlUp).Offset(1, 0).Value = Range('A65536').End(xlUp).Value + 1

Bonne soirée
@+
 
Vote positif 0 Vote négatif
Bonjour,

Je suis désolé mais cela ne fonctionne pas mais il est certain que le problème vient de moi.

Je te passe le code de mon bouton si ça peut t'éclairer.

Merci encore

Private Sub CommandButton1_Click()
Dim MaLigne As Integer
MaLigne = Range('A65536').End(xlUp).Row + 1
'A mon avis, la meilleure place serait ici
Range('B' & MaLigne) = TextBox1.Value 'Ecrit dans la colonne B la valeur de Textbox1
Range('C' & MaLigne) = TextBox2.Value
Range('D' & MaLigne) = TextBox3.Value
Range('E' & MaLigne) = TextBox4.Value
Range('F' & MaLigne) = TextBox5.Value
Range('G' & MaLigne) = TextBox6.Value
Range('H' & MaLigne) = TextBox7.Value
Range('I' & MaLigne) = TextBox8.Value
Range('J' & MaLigne) = TextBox9.Value
Range('K' & MaLigne) = TextBox10.Value
Range('L' & MaLigne) = TextBox11.Value
Range('M' & MaLigne) = TextBox12.Value
Unload Me 'Vide et ferme le UserForm
End Sub
 
Vote positif 0 Vote négatif
Re Sylvain, bonsoir PierreJean

Bizare, mon code marche pourtant executé à partir d un module, est ce que tu récupère un message d erreur à l'exécution ou tout simplement tu ne récupère pas le résultat attendu ??

quelqu un pourra peut être donner son avis !!

bonne soirée à tous

@+
 
Vote positif 0 Vote négatif
Salut Sylvain
bonsoir pierrejean,pierrot93
peut être aussi peux tu simplifier le code de ta procèdure en mettant ceci (non testé)

Code: 
Cells(Maligne,1)=Cells(Maligne-1,1)+ 1
For C =1 to 12
Cells (Maligne,C+1)= Me.Controls('Textbox'& L).value
next
à la place de :
Code: 
Range('B' & MaLigne) = TextBox1.Value 'Ecrit dans la colonne B la valeur de Textbox1
Range('C'& MaLigne) = TextBox2.Value
Range('D' & MaLigne) = TextBox3.Value
Range('E' & MaLigne) = TextBox4.Value
Range('F' & MaLigne) = TextBox5.Value
Range('G' & MaLigne) = TextBox6.Value
Range('H' & MaLigne) = TextBox7.Value
Range('I' & MaLigne) = TextBox8.Value
Range('J' & MaLigne) = TextBox9.Value
Range('K' & MaLigne) = TextBox10.Value
Range('L' & MaLigne) = TextBox11.Value
Range('M' & MaLigne) = TextBox12.Value
bonne fin de Soirée

Message édité par: Chti160, à: 22/06/2006 19:59
 
Vote positif 0 Vote négatif
Rebonjour à tous,

Pour tous ceux qui souhaitent résoudre mon problème, je viens de créer un nouveau post ce matin (un peu plus haut dans la liste).

Merci et bonne journée à tous
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

B
  • Question Question
XL 2016 Modification dee propriétés d'un fichier externe
Réponses
10
Affichages
349
bernardrustrel
B
  • Résolu(e)
XL 2016 VBA - Problème positionnement UserForm
2 3
Réponses
31
Affichages
669
patricktoulon
  • Résolu(e)
XL 2010 Travail base de données et UserForm
2 3
Réponses
40
Affichages
1 K
ChTi160
M
  • Résolu(e)
Microsoft 365 VBA Bon de commande Combo et Textbox Problème
Réponses
1
Affichages
192
vgendron
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
361
Piment
P
C
  • Question Question
XL 2019 Erreur système &H8000FFFF -2147418113 - Mémoire insuffisante
Réponses
2
Affichages
233
Valtrase
P
  • Question Question
Autres Worksheet before close
Réponses
10
Affichages
423
Rheeem
R
J
  • Question Question
Autres VBA pour Word à partir de VBA pour Excel
Réponses
5
Affichages
381
JLH974
J
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
967
TooFatBoy
M
  • Résolu(e)
Microsoft 365 Impression Userform en format paysage + Envoyer l'imprime écran du Userform par courriel
2
Réponses
17
Affichages
1 K
patricktoulon
R
  • Question Question
Microsoft 365 VBA Excel PowerPoint
Réponses
5
Affichages
550
Rem6610
R
M
  • Question Question
Microsoft 365 Création tableur menus repas
Réponses
8
Affichages
307
mb71
M
  • Résolu(e)
Microsoft 365 Récupération d'une valeur particulière dans un tableau...
Réponses
13
Affichages
413
nightswan
A
  • Question Question
Microsoft 365 récupérer des valeurs après un filtre en VBA (pour envoyer des emails)
Réponses
6
Affichages
326
aurejotrail
A
H
  • Question Question
XL 2019 Masquer des lignes sous condition en vba
Réponses
8
Affichages
297
job75
R
  • Résolu(e)
XL 2010 vba excel : recherche concordance chaine texte dans cellule et données stockées dans un tablo (array)
Réponses
4
Affichages
356
Raynaud.JF
R
G
  • Question Question
Microsoft 365 Lenteur chargement ListView
2 3
Réponses
38
Affichages
1 K
GClaire
G
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
897
picc
P
A
  • Question Question
Microsoft 365 Contrôle sur date
Réponses
8
Affichages
409
patricktoulon
O
  • Question Question
XL 2016 transférer les données d'un tableau brut, dans un autre format pour analyse.
Réponses
12
Affichages
786
ORL
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…