Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
Vieux 01/07/2009, 17h59   #1
Invité de passage
 
Inscription : juillet 2009
Messages : 3
Détails du profil
Informations forums :
Inscription : juillet 2009
Messages : 3
Points : 0
Points : 0
Par défaut 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
VPK21 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 01/07/2009, 18h17   #2
Membre Expert
 
Avatar de laetitia
 
Inscription : décembre 2002
Messages : 1 281
Détails du profil
Informations personnelles :
Âge : 21

Informations forums :
Inscription : décembre 2002
Messages : 1 281
Points : 1 363
Points : 1 363
bonjour VPK21 le forum boite de dialogue tu parles d' un userform ?
__________________
SALUTATIONS
laetitia est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 01/07/2009, 19h53   #3
Expert Confirmé Sénior

 
Avatar de cafeine
 
Inscription : juin 2002
Messages : 3 880
Détails du profil
Informations forums :
Inscription : juin 2002
Messages : 3 880
Points : 4 489
Points : 4 489
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 ?


cafeine est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 02/07/2009, 18h05   #4
Invité de passage
 
Inscription : juillet 2009
Messages : 3
Détails du profil
Informations forums :
Inscription : juillet 2009
Messages : 3
Points : 0
Points : 0
Par défaut Merci de vous interesser à mon souci

Laëtitia:Oui c'était bien un USERFORM
Cafeine: merci je vais essayer ça ...et je te dis
VPK21 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/07/2009, 09h09   #5
Invité de passage
 
Inscription : juillet 2009
Messages : 3
Détails du profil
Informations forums :
Inscription : juillet 2009
Messages : 3
Points : 0
Points : 0
Par défaut 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 :
1
2
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]
VPK21 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/07/2009, 09h18   #6
Membre Expert
 
Avatar de Krovax
 
Inscription : juillet 2008
Messages : 1 889
Détails du profil
Informations personnelles :
Âge : 26

Informations forums :
Inscription : juillet 2008
Messages : 1 889
Points : 1 937
Points : 1 937
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
Krovax est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/07/2009, 09h25   #7
Membre du Club
 
Inscription : juin 2009
Messages : 48
Détails du profil
Informations forums :
Inscription : juin 2009
Messages : 48
Points : 53
Points : 53
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

Dernière modification par AlainTech ; 06/07/2009 à 18h16. Motif: Balises [quote]
CRACOS38 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/07/2009, 09h37   #8
Membre Expert
 
Avatar de laetitia
 
Inscription : décembre 2002
Messages : 1 281
Détails du profil
Informations personnelles :
Âge : 21

Informations forums :
Inscription : décembre 2002
Messages : 1 281
Points : 1 363
Points : 1 363
bonjour le fil le forum un bouton 5 textbox copy en feuile 2 a la suite a adapter

Code :
1
2
3
4
5
6
7
8
9
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
laetitia est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +1. Il est actuellement 20h49.


 
 
 
 
Partenaires

Hébergement Web