Discussion :

[hawk91]

Bonsoir,

J ai a peu près réussis a sauvegarder les données mais comment les "recharger" à l ouvertur pour la personne qui controle?
voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton9_Click()
Sheets("sauv").Activate
[A2].Value = (UserForm1.ComboBox7.Value)
[B2].Value = (UserForm1.DTPicker2.Value)
[C2].Value = (UserForm1.ComboBox2.Value)
[D2].Value = (UserForm1.ComboBox1.Value)
[E2].Value = (UserForm1.ComboBox4.Value)
[F2].Value = (UserForm1.ComboBox5.Value)
[G2].Value = (UserForm1.ComboBox3.Value)
[H2].Value = (UserForm1.TextBox8.Value)
[I2].Value = (UserForm1.ComboBox6.Value)
[J2].Value = (UserForm1.TextBox11.Value)
[K2].Value = (UserForm1.DTPicker1.Value)
[L2].Value = (UserForm1.TextBox13.Value)
[M2].Value = (UserForm1.TextBox11.Value)
[N2].Value = (UserForm1.OptionButton1.Value)
[O2].Value = (UserForm1.TextBox34.Value)
[P2].Value = (UserForm1.TextBox35.Value)
[Q2].Value = (UserForm1.TextBox32.Value)
[R2].Value = (UserForm1.TextBox31.Value)
Application.Dialogs(xlDialogSave

Et en N2 j ai un Radio button, j aimerai pouvoir sauver le Textbox qui l accompagne exemple butoon radio coché pour facture radio = radio1 et facture textbox10, j ai essaye "N2].Value = (UserForm1.OptionButton1= TextBox.Value mais il ne veux pas et je voudrai inclure un "If" car il y a 3 Radio.

Et pour recharger avec les données j'ai vu ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Bouton1_QuandClic()
 
Dim LigneActive As String
LigneActive = Selection.Row 'LigneAcive est égale au numéro de ligne de la cellule active
 
 
Load UserForm1 'On charge dans le formulaire les données suivantes
 
'Le contact de la ligne active
UserForm1.TextBox1.Value = Sheets("Feuil1").Cells(LigneActive, "A").Value
'Le téléphone de la ligne active
UserForm1.TextBox2.Value = Sheets("Feuil1").Cells(LigneActive, "B").Value
'Etc...
UserForm1.TextBox3.Value = Sheets("Feuil1").Cells(LigneActive, "C").Value
UserForm1.TextBox4.Value = Sheets("Feuil1").Cells(LigneActive, "D").Value
UserForm1.TextBox5.Value = Sheets("Feuil1").Cells(LigneActive, "E").Value
UserForm1.TextBox6.Value = Sheets("Feuil1").Cells(LigneActive, "F").Value
UserForm1.TextBox7.Value = Sheets("Feuil1").Cells(LigneActive, "G").Value
'Ici on charge le numéro de ligne dans la case référence
UserForm1.TextBox8.Value = LigneActive
 
UserForm1.Show 'Maintenant que tout est chargé, on peut afficher le formulaire
End Sub

Mais j'arrive pas trop a l adapter j ai pensé a ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton10_Click()
[UserForm1.ComboBox7].Value = [A2]
[UserForm1.DTPicker2].Value = [B2]
 
End Sub

Mais rien de térrible.

Merci à tous

[Godzestla]

Bonjour,

si tu utilises ceci pour sauver :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[B2].Value = (UserForm1.DTPicker2.Value)

Pour recharger, c'est juste l'inverse.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(UserForm1.DTPicker2.Value=[B2].Value

à installer par exemple dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Sub UserForm_Initialize()
End Sub

en n'oubliant pas de référencer la feuille ou se trouve [B2], via par exemple with

Ex complet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub UserForm_Initialize()
with sheets(1)
  UserForm1.DTPicker2.Value=.range("B2")
end with
'.....
End Sub

[hawk91]

Merci j'ai trouver la solution mais il me reste quelques problèmes

1- Mon DTpicker veux pas me mettre la date du jour mais celle qui la dans "Value"
2-J'utilise cette méthode pour envoyer un mail

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton3_Click()
Workbooks("Formulaire").SendMail Recipients:="xpe.com", _
                          Subject:="Eng", _
                          ReturnReceipt:=True

Mais cela ne conviens plus car j'utilise ça pour sauvegarder avant sous un autre nom
Application.Dialogs(xlDialogSaveAs).Show

et du coup le Workbooks s'appele plus "Formulaire" mais autrement

Comment récuperer son nom? Ou alors en attribuer un par rapport à un Textbox, merci de votre aide

[Godzestla]

Re,

d'abord, les balises codes c'est OBLIGATOIRE.

Fais un effort, merci.

1- Mon DTpicker veux pas me mettre la date du jour mais celle qui la dans "Value"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(UserForm1.DTPicker2.Value=date

2 - le Workbooks s'appele plus "Formulaire" mais autrement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Application.Dialogs(xlDialogSaveAs).Show
lenom = thisworkbook.name
Workbooks(lenom).SendMail Recipients:="xpe.com", _
'...

[hawk91]

Pardon pour les balises
Je ne comprends pas ce code ne change rien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.DTPicker2.Value=date

Il garde toujours la propriété de son "Value"

Mais génial merci pour celui la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Application.Dialogs(xlDialogSaveAs).Show
lenom = thisworkbook.name
Workbooks(lenom).SendMail Recipients:="xpe.com", _
'...

Il fonctionne nickel

[hawk91]

j ai de nouveau un soucis, j ai créer un UserForm 2 ou j ai mis 3 boutons, 1 pour imprimer, sauvegarder et envoyer le UserForm1, enfin le classeur, les 2 premiers marchent mais pas "envoyer" il me met une erreur voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton3_Click()
Workbooks.(lenom).SendMailRecipients:="ope.com",
                          Subject:="er",
                          ReturnReceipt:=True

Erreur de compilation, erreur de syntaxe??

le code "lenom" agis bien de telle sorte qu'il prends le nom du classeur?
car mon bouton sauvegarder permets d'enregistrer sous un autre nom.
Merci de votre aide