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

Transfert Userform vers tableau Excel: Passage à la ligne

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

stanword

XLDnaute Nouveau
Bonjour à tous et merci de m'accueillir sur le Forum;😎
Petit débutant en VBA, je bloque sur un probleme dont j'aimerais vous faire part:
Voila je cherche, à partir des lignes de commande suivantes, à renvoyer les information d'un userform1 vers un tableau excel. Jusque là les lignes de commandes fonctionnent bien sauf que je remplis toujours la meme ligne (ici la ligne 13). Je souhaiterais simplement que vous m'indiquiez comment faire un passage à la ligne d'apres automatiquement (13, 14, 15.....).
Deuxieme questions, comment faire pour réinitialiser mon userform sans le fermer (comme inscrit dans la commande).
J'espere avoir été le plus clair possible.😕
Merci à tous ceux qui auront quelques minutes à m'accorder.

Private Sub CommandButton1_Click()

Sheets("Feuil1").Cells(13, "A").Value = UserForm1.TextBox1.Value
Sheets("Feuil1").Cells(13, "C").Value = UserForm1.ComboBox1.Value
Sheets("Feuil1").Cells(13, "B").Value = UserForm1.TextBox3.Value
Sheets("Feuil1").Cells(13, "D").Value = UserForm1.TextBox2.Value

Unload UserForm1 'Fermeture du UserForm1
MsgBox ("La référence a bien été ajoutée à la commande.")

Private Sub TextBox3_Change()

End Sub
 
Trier par date Trier par votes
Re : Transfert Userform vers tableau Excel: Passage à la ligne

Bonjour,

regarde ceci si cela peut t'aider :
Code: 
Sheets("Feuil1").Range("A65536").End(xlUp)(2).Value = UserForm1.TextBox1.Value

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : Transfert Userform vers tableau Excel: Passage à la ligne

Re,

pour ta 2ème question, si j'ai bien compris, pas sûr...
Code: 
Private Sub CommandButton1_Click()
Unload Me
UserForm1.Show
End Sub
 
Vote positif 0 Vote négatif
Re : Transfert Userform vers tableau Excel: Passage à la ligne

Hello Pierrot,

merci pour ta réponse "ultra rapide"!
Cela fonctionne bien sauf que je n'arrive pas à le faire partir de la ligne 13, lorsque je valide il prends la premiere ligne vide sous mon tableau de destination....🙁
Pour le deuxieme probleme c'est nickel, petit bémol, le MsgBox ("La référence a bien été ajoutée à la commande.") apparait derriere la fenetre userform. Y a t-il un moyen pour que celle ci apparaisse en premier plan??
Merci pour vos réponses.
 
Vote positif 0 Vote négatif
Re : Transfert Userform vers tableau Excel: Passage à la ligne

Re,

pour l'autre point :
Code: 
Columns(1).Find("", Range("A13"), xlValues, , 1, 1, 0).Value = TextBox1

sous réserve de ton modèle de donnée....
 
Vote positif 0 Vote négatif
Re : Transfert Userform vers tableau Excel: Passage à la ligne

Bonsoir Pierrot,

tu vas dire que je suis vraiment mauvais, mais la derniere ligne de commande que tu m'as donné fonctionne tres bien (Columns(1).Find("", Range("A13"), xlValues, , 1, 1, 0).Value = TextBox1) simplement je n'arrive pas à l'affecter aux autres textbox, cela me renvoi une erreur.
voila ce que je fais:
Columns(1).Find("", Range("A13"), xlValues, , 1, 1, 0).Value = TextBox1
Columns(1).Find("", Range("C13"), xlValues, , 1, 1, 0).Value = ComboBox1
Columns(1).Find("", Range("B13"), xlValues, , 1, 1, 0).Value = TextBox3
Columns(1).Find("", Range("D13"), xlValues, , 1, 1, 0).Value = TextBox2


et ça ne marche pas!
Vos lumières à sur le sujet svp...
Bonne soirée à tous😱
 
Vote positif 0 Vote négatif
Re : Transfert Userform vers tableau Excel: Passage à la ligne

Bonjour à tous,

Effectivement il sera plus simple pour comprendre ma tambouille que vous l'ayez sous les yeux!!😎
Voila c'est chose faites!
Il s'agit donc d'un bon de commande que je souhaites mettre en forme pour etre convivial et facile d'utilisation.
N'hésitez donc pas à apporter vos touches personnelles.
Le probleme actuel est donc que je n'arrive pas à passer à la ligne lorsque je valide une saisie...
Avis aux amateurs....merci à tous.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Transfert Userform vers tableau Excel: Passage à la ligne

Re,

il faut modifier le numéro des colonnes dans laquelle la recherche doit se faire :
Code: 
    Columns(1).Find("", Range("A13"), xlValues, , 1, 1, 0).Value = TextBox1
    Columns(3).Find("", Range("C13"), xlValues, , 1, 1, 0).Value = ComboBox1
    Columns(2).Find("", Range("B13"), xlValues, , 1, 1, 0).Value = TextBox3
    Columns(4).Find("", Range("D13"), xlValues, , 1, 1, 0).Value = TextBox2
 
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

Discussions similaires

E
  • Résolu(e)
Microsoft 365 Textbox heure minute vers tableau en décimal
Réponses
4
Affichages
189
eric72
E
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
569
AtTheOne
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
185
sebastien176
S
S
  • Question Question
XL 2019 Modifications avec Combobox liées
Réponses
7
Affichages
219
Dranreb
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
152
escudo
E
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
45
CDALE
C
X
  • Résolu(e)
XL 2016 Souci pour mettre un nombre dans une cellule en croisant colonne et ligne.
2
Réponses
16
Affichages
964
Xender
X
T
  • Résolu(e)
XL 2021 Incompatibilité de type avec un userform
2
Réponses
19
Affichages
795
Bernard38
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
261
NONO14
N
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
481
Dranreb
F
  • Question Question
XL 2019 l'indice n'appartient pas à la sélection
Réponses
9
Affichages
767
job75
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
1 K
Vermithor
V
R
  • Question Question
XL 2019 Demande à la macro de chercher et de remplir automatiquement jusqu'à la dernière valeur
Réponses
1
Affichages
460
Aya_flo
A
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
S
  • Résolu(e)
XL 2016 Comment faire ressortir la ligne sélectionnée dans un tableau
Réponses
2
Affichages
486
Stéphane_1
S
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
311
sylvanu
S
  • Résolu(e)
Microsoft 365 Récupérer la date dans un calendrier
Réponses
2
Affichages
390
sebastien176
S
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
338
jeff1494
G
  • Question Question
Microsoft 365 Transfert de données
Réponses
7
Affichages
704
GClaire
G
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
989
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…