Créer une boîte de dialogue sous excel permettant de rentrer des données dans une tableau

VPK21 · 01/07/2009, 17h59

Bonjour à tous, je suis une nouvelle venue sur le forum, et je débute tout juste en vba. Voilà j'ai crée une boite de dialogue sous excel, et j'ai un tableau, je soushaite que lorsque je remplie les textbox de ma boîte de dilogue et que je clique sur OK, que celà me créer une ligne dans mon tableau, et que les différentes colonnes (nom; prénom; adresse;CP; Ville) soient remplies. Je ne trouve pas le code approprié, pouvez-vous m'aider?
merci d'avance

laetitia · 01/07/2009, 18h17

bonjour VPK21 le forum boite de dialogue tu parles d' un userform ?

cafeine · 01/07/2009, 19h53

Hello,

exemple rapide pour écrire en mode séquentiel (ligne par ligne)
code dans le formulaire sur un événement clic bouton

Code :

Thisworkbook.Sheets("MaFeuille").Range("A65536").End(xlup).Offset(1,0).Value  = Me.txtboxCodePostal

VPK21 · 02/07/2009, 18h05

Laëtitia:Oui c'était bien un USERFORM
Cafeine: merci je vais essayer ça ...et je te dis

VPK21 · 03/07/2009, 09h09

je tourne en rond donc du coup je redémarre à zéro.
Mon code de départ dans user form; est

Code :

Private Sub OK_Click()
thisworkbook.sheets("feuil1")

mais là je suis bloquée...

S'il vous plait aidez moi, je suis desespérée.

Krovax · 03/07/2009, 09h18

A oui c'est vraiment le départ

premièrement quand tu donne un code utilise les balise code (regarde le premier message du forum pour savoir comment)

Code :

thisworkbook.sheets("feuil1").range("A1")=Me.Textbox1

remplace A1 par la cellule
et Textbox1 par le nom du textebox, combobox..... dont tu veux mettre la valeur sur la feuille

Mais si tu veux mon avis et surtout si tu peu te le permettre met ton projet de coté pendant deux ou trois jours, prend un tuto (ce de ce site son très bien) et fait des exemple des exercice,... et ensuite quand tu maitrisera un peu plus reprend ton projet plus sereinement

CRACOS38 · 03/07/2009, 09h25

Salut, soit plus precise.

Citation:

Bonjour à tous, je suis une nouvelle venue sur le forum, et je débute tout juste en vba. Voilà j'ai crée une boite de dialogue sous excel, et j'ai un tableau, je soushaite que lorsque je remplie les textbox de ma boîte de dilogue et que je clique sur OK, que celà me créer une ligne dans mon tableau ( où, dans une autre feuille, sur une ligne paticulière etc..) , et que les différentes colonnes (nom; prénom; adresse;CP; Ville) soient remplies. Je ne trouve pas le code approprié, pouvez-vous m'aider?
merci d'avance

laetitia · 03/07/2009, 09h37

bonjour le fil le forum un bouton 5 textbox copy en feuile 2 a la suite a adapter

Code :

Option Explicit
Private Sub CommandButton1_Click()
Dim x As Variant, i As Byte
With Sheets("feuil2")
x = .Range("a65536").End(xlUp).Row + 1
For i = 1 To 5
.Cells(x, i) = Controls("Textbox" & i).Value
 Next i: End With
End Sub

01/07/2009, 17h59	#1
VPK21 Invité de passage Date d'inscription: juillet 2009 Messages: 3	Créer une boîte de dialogue sous excel permettant de rentrer des données dans une tableau Bonjour à tous, je suis une nouvelle venue sur le forum, et je débute tout juste en vba. Voilà j'ai crée une boite de dialogue sous excel, et j'ai un tableau, je soushaite que lorsque je remplie les textbox de ma boîte de dilogue et que je clique sur OK, que celà me créer une ligne dans mon tableau, et que les différentes colonnes (nom; prénom; adresse;CP; Ville) soient remplies. Je ne trouve pas le code approprié, pouvez-vous m'aider? merci d'avance

01/07/2009, 18h17	#2
laetitia Membre Expert Date d'inscription: décembre 2002 Localisation: 38 Âge: 20 Messages: 1 162	bonjour VPK21 le forum boite de dialogue tu parles d' un userform ? __________________ SALUTATIONS

01/07/2009, 19h53	#3
cafeine Rédacteur/Modérateur Date d'inscription: juin 2002 Localisation: derrière le moniteur Messages: 3 874	Hello, exemple rapide pour écrire en mode séquentiel (ligne par ligne) code dans le formulaire sur un événement clic bouton Code : Thisworkbook.Sheets("MaFeuille").Range("A65536").End(xlup).Offset(1,0).Value = Me.txtboxCodePostal __________________ Ne mettez pas "Problème" dans vos titres, par définition derrière toute question se cache un problème Développez une application de gestion des comptes bancaires dans Access de A à Z Déjà 12 tutoriels, le dernier en date : Comment faire un TextBox auto-extensible dans un formulaire ?

02/07/2009, 18h05	#4
VPK21 Invité de passage Date d'inscription: juillet 2009 Messages: 3	Merci de vous interesser à mon souci Laëtitia:Oui c'était bien un USERFORM Cafeine: merci je vais essayer ça ...et je te dis

03/07/2009, 09h09	#5
VPK21 Invité de passage Date d'inscription: juillet 2009 Messages: 3	je ne comprend rien!!! je tourne en rond donc du coup je redémarre à zéro. Mon code de départ dans user form; est Code : Private Sub OK_Click() thisworkbook.sheets("feuil1") mais là je suis bloquée... S'il vous plait aidez moi, je suis desespérée. Dernière modification par AlainTech ; 06/07/2009 à 18h13. Motif: Balises [code]

03/07/2009, 09h18	#6
Krovax Expert Confirmé Date d'inscription: juillet 2008 Localisation: Elsass Âge: 24 Messages: 1 887	A oui c'est vraiment le départ premièrement quand tu donne un code utilise les balise code (regarde le premier message du forum pour savoir comment) Code : thisworkbook.sheets("feuil1").range("A1")=Me.Textbox1 remplace A1 par la cellule et Textbox1 par le nom du textebox, combobox..... dont tu veux mettre la valeur sur la feuille Mais si tu veux mon avis et surtout si tu peu te le permettre met ton projet de coté pendant deux ou trois jours, prend un tuto (ce de ce site son très bien) et fait des exemple des exercice,... et ensuite quand tu maitrisera un peu plus reprend ton projet plus sereinement

03/07/2009, 09h37	#8
laetitia Membre Expert Date d'inscription: décembre 2002 Localisation: 38 Âge: 20 Messages: 1 162	bonjour le fil le forum un bouton 5 textbox copy en feuile 2 a la suite a adapter Code : Option Explicit Private Sub CommandButton1_Click() Dim x As Variant, i As Byte With Sheets("feuil2") x = .Range("a65536").End(xlUp).Row + 1 For i = 1 To 5 .Cells(x, i) = Controls("Textbox" & i).Value Next i: End With End Sub __________________ SALUTATIONS

		Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Créer une boîte de dialogue sous excel permettant de rentrer des données dans une tableau

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email