besoins de beaucoup d'aide en VBA

[ricou69]

Bonjour le Forum,
J j essaye de crée un userform pour faire une feuille d'expédition. Par contre je ne connait rien en VBA il faudrait que les champs de l'user forme ce copie automatiquement sur la feuille visualiser expédition quand ont click sur le bouton crée expédition de l'userform merci d'avance pour votre aide
CDT
Ricou69

 

[Robert]

Re : besoins de beaucoup d'aide en VBA

Bonjour Ricou, bonjour le forum,

Un piste de départ mais il y a trop de contrôles pour que j'écrive tout... :

Private Sub CommandButton1_Click()
With Sheets("visualiser expedition")
    .Range("B3").Value =  Me.TextBox1.Value
    .Range("B4").Value =  Me.TextBox2.Value
    '... une ligne par contrôle...
End With
End Sub

 

[Paritec]

Re : besoins de beaucoup d'aide en VBA

Bonjour Robert ricou le forum
moi j'ai fait autrement en nommant les textbox par la destination
a+
Papou

 

[Robert]

Re : besoins de beaucoup d'aide en VBA

Bonjour Éric, Papou, bonjour le forum,

C'est parce que tu es moins feignasse que moi... Super idée !

 

[ricou69]

Re : besoins de beaucoup d'aide en VBA

Bonjour paritec,
Bon j'ai fait ce que ma demandé Robert je vient de finir d'ecrire le code en entier et je vient de voir ce que tu a fait toi aussi paritec J ai mal au doigts ca marche et j'ai appris un peu en ecrivant lol peut tu me donner des explications Paritec sur ton code et comment ont fait pour nommer les textbox par la destination pour comprendre en + est t'il possible dans le textbox observation de pourvoir allez a la ligne quand ont tape untexte long dans l'userforM
RICOU69

 

[Paritec]

Re : besoins de beaucoup d'aide en VBA

Re Ricou69 le forum
voilà les modifications sont faites
a+
Papou

 

[ricou69]

Re : besoins de beaucoup d'aide en VBA

Re Paritec
merci beaucoup serait t'il possible si je n'abuse pas avoir des explication sur ce que tu as fais car j'aimerai bien apprendre en VBA .
en tout cas merci je vais continué sur mon fichier et je revient vers vous si jt rencontre d'autre probleme sur le mme fil si vous bien sur vous voulez bien
JE joindrai le fichier final sur cette discution quand il seras fini
enore merci
Ricou69

 

[Paritec]

Re : besoins de beaucoup d'aide en VBA

Re Bonjour ricou69 le forum
Bon alors l'explication est simple j'ai renommé les textbox et les checkbox par leurs adresses de destination sur ta feuille
pour les explications je vais te les mettre sur le fichier et je le reposterai
a+
Papou

 

[ricou69]

Re : besoins de beaucoup d'aide en VBA

re Bonjour Paritec,
je vient de mettre un bouton de sauvegarde il fonctionne très bien le seul chose qui cloche l'utilisateur enregistre mais il ne vois pas que la sauvegarde est faite comment il faut faire pour mettre une barre de progression voila le bout de code

Private Sub CommandButton1_Click()
Dim Chemin As String, Fichier As String

Chemin = "J:\MarcylEtoile\DGIndust\Batiment T5\T5-Services Communs\EXPEDITION T5\"
'Ajoute la date du jour et l'heure dans le nom du fichier
Fichier = "Expédition_" & Format(Date, "ddmmyyyy") & "_" & Format(Time, "hhmmss") & ".xls" 'yyyymmdd

ActiveWorkbook.SaveCopyAs Chemin & Fichier

End Sub
Merci bcp a toi et au forum qui ont lus notre discutions j'attend avec impatience les explications
merci d'avance
ricou69

 

[Paritec]

Re : besoins de beaucoup d'aide en VBA

Re Bonjour Ricou69 le forum
tu rajoutes après

ActiveWorkbook.SaveCopyAs Chemin & Fichier
msgbox "Votre fichier a été enregistré sous "& Chemin & Fichier,,"Enregistré"
end sub

a+
Papou

 

[ricou69]

Re : besoins de beaucoup d'aide en VBA

re BJ Paritec et a tous
Merci ca fonctionne tre bien je continu
a+ bientot

 

[laetitia90]

Re : besoins de beaucoup d'aide en VBA

bonjour tous
pour infos pour ricou ... on peut utiliser la proprietée Tag a la place de Name

Dim c As Control
 For Each c In Controls
 If c.Tag <> "" Then
 Feuil2.Range(c.Tag) = c.Value
 If TypeName(c) = "CheckBox" Then Feuil2.Range(c.Tag) = IIf(c, "oui", "")
 End If
 Next

pas fait d'exemple plus fainéante que mon ami papou

 

[Paritec]

Re : besoins de beaucoup d'aide en VBA

Bonjour Laetitia ricou le forum
tu as encore réduit mon code qui n'était déjà pas très long , mais reconnais que l'idée était là ?
pour le tag oui d'accord, mais j'avais envie du name !!!!
Bisous Laetitia
a+
Papou

 

[laetitia90]

Re : besoins de beaucoup d'aide en VBA

re tous

mais reconnais que l'idée était là ?

effectivement super idée ...j'aurais du le dire perso je serais pas parti comme cela...... bravo Papou bisous

 

[ricou69]

Re : besoins de beaucoup d'aide en VBA

Bonjour Laetitia90 bj Paritec le forum
Merci pour le code laetitia90 merci aussi Paritec mais la je me perd complet dans vos code desolé j'ai un QI de poisson rouge a quoi sert la proprietee tag par raport a Name ????
paritec ou laetitia ou le forum et t'il possible apres le message message de sauvegarde de revenir a la feuille 1 (menu expédition) un peu plus haut dans la discutions merci
RICOU69