OVH Cloud OVH Cloud

créer une userform

5 réponses
Avatar
stef
bonsoir a tous

je debute dans le vba et voici ce que j'essai de faire
j'ai créer mon objet avec un textbox pour la date et un combox pour
l'expediteur et je voudrait envoyer ces donner date en a1 et expediteur en
b1 sauf si a1 et b1 sont deja utiliser que cela soit envoyer en a2 et b2 et
ainsi de suite .

je vous remercie de toute l'aide que vous pourrez m'apporter.

5 réponses

Avatar
Bidouille
Bonsoir
Pour ma part, je recherche la dernière ligne vide (en partant du bas)
Sheets("Feuil1").Range("A" & _
Range("A65536").End(xlUp).Row + 1) = UserForm.TextBox

En espérant avoir répondu à ton attente


"stef" a écrit dans le message de news:
cnr6f5$d70$
bonsoir a tous

je debute dans le vba et voici ce que j'essai de faire
j'ai créer mon objet avec un textbox pour la date et un combox pour
l'expediteur et je voudrait envoyer ces donner date en a1 et expediteur en
b1 sauf si a1 et b1 sont deja utiliser que cela soit envoyer en a2 et b2
et
ainsi de suite .

je vous remercie de toute l'aide que vous pourrez m'apporter.





Avatar
Pierre Archambault
Salut Stef

Je travaille beaucoup avec les userforms

Pour ma part voici ma solution.

Crée un nom de plage ("Plage") dans ta feuille qui contiendra toutes les
colonnes et toutes les lignes ou veux mettre tes données. Cependant, mets
une ligne vide de plus.
Pour ajouter des données à ta plage, initialise un compteur pour savoir sur
quelle ligne de données ton pointeur se situe par exemple:

Dim NoRecord as Integer

NoRecord = 1 'Pour la première ligne de la plage qui en compte un
minimum de deux.

Puis quand tu veux écrire le contenu de tes TextBox dans la plage, tu fais
comme ceci:

Range("Plage").Cells(NoRecord, 1) = textBoxDate 'Première
colonne
Range("Plage").Cells(NoRecord, 2) = textBoxExpéditeur 'Deuxème colonne

Ajoute toujours une nouvelle ligne vide à la suite des nouvelles données:
NoRecord = NoRecord +1
Range("Plage").Rows(NoRecord).Insert shift : = xlDown

Voilà

Bonne chance.


"stef" a écrit dans le message de
news:cnr6f5$d70$
bonsoir a tous

je debute dans le vba et voici ce que j'essai de faire
j'ai créer mon objet avec un textbox pour la date et un combox pour
l'expediteur et je voudrait envoyer ces donner date en a1 et expediteur en
b1 sauf si a1 et b1 sont deja utiliser que cela soit envoyer en a2 et b2
et

ainsi de suite .

je vous remercie de toute l'aide que vous pourrez m'apporter.





Avatar
Misange
Bonjour,

Tu trouveras sur excelabo rubrique débuter/fiches pas à pas/userforms un
tutoriel pour répondre à ce genre de questions et également page
xl/userforms et xl/controles deux pages avec de nombreuses astuces pour
les userforms,avec des classeurs exemples à télécharger.

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 21/11/2004 23:56:
bonsoir a tous

je debute dans le vba et voici ce que j'essai de faire
j'ai créer mon objet avec un textbox pour la date et un combox pour
l'expediteur et je voudrait envoyer ces donner date en a1 et expediteur en
b1 sauf si a1 et b1 sont deja utiliser que cela soit envoyer en a2 et b2 et
ainsi de suite .

je vous remercie de toute l'aide que vous pourrez m'apporter.





Avatar
stef
merci bidouille

cela fonctionne sur une feuille normal mais le souci c'est que mes cellules
dans a ; b ; d ; e et f sont fusionner en 4 lignes et dans ce cas cela ne
fonctionne pas.
alors si tu a une autre idée je suis preneur

merci

"Bidouille" a écrit dans le message de
news:41a12494$0$8175$
Bonsoir
Pour ma part, je recherche la dernière ligne vide (en partant du bas)
Sheets("Feuil1").Range("A" & _
Range("A65536").End(xlUp).Row + 1) = UserForm.TextBox

En espérant avoir répondu à ton attente


"stef" a écrit dans le message de news:
cnr6f5$d70$
bonsoir a tous

je debute dans le vba et voici ce que j'essai de faire
j'ai créer mon objet avec un textbox pour la date et un combox pour
l'expediteur et je voudrait envoyer ces donner date en a1 et expediteur
en


b1 sauf si a1 et b1 sont deja utiliser que cela soit envoyer en a2 et b2
et
ainsi de suite .

je vous remercie de toute l'aide que vous pourrez m'apporter.









Avatar
stef
excuse moi mais comme je l'est signaler je debute et la je ne comprend rien

merci tout de meme


"Pierre Archambault" a écrit dans le
message de news:Yfaod.8449$
Salut Stef

Je travaille beaucoup avec les userforms

Pour ma part voici ma solution.

Crée un nom de plage ("Plage") dans ta feuille qui contiendra toutes les
colonnes et toutes les lignes ou veux mettre tes données. Cependant, mets
une ligne vide de plus.
Pour ajouter des données à ta plage, initialise un compteur pour savoir
sur

quelle ligne de données ton pointeur se situe par exemple:

Dim NoRecord as Integer

NoRecord = 1 'Pour la première ligne de la plage qui en compte un
minimum de deux.

Puis quand tu veux écrire le contenu de tes TextBox dans la plage, tu fais
comme ceci:

Range("Plage").Cells(NoRecord, 1) = textBoxDate 'Première
colonne
Range("Plage").Cells(NoRecord, 2) = textBoxExpéditeur 'Deuxème colonne

Ajoute toujours une nouvelle ligne vide à la suite des nouvelles données:
NoRecord = NoRecord +1
Range("Plage").Rows(NoRecord).Insert shift : = xlDown

Voilà

Bonne chance.


"stef" a écrit dans le message de
news:cnr6f5$d70$
bonsoir a tous

je debute dans le vba et voici ce que j'essai de faire
j'ai créer mon objet avec un textbox pour la date et un combox pour
l'expediteur et je voudrait envoyer ces donner date en a1 et expediteur
en


b1 sauf si a1 et b1 sont deja utiliser que cela soit envoyer en a2 et b2
et

ainsi de suite .

je vous remercie de toute l'aide que vous pourrez m'apporter.