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

[Godzestla]

Relis-toi, la faute de syntaxe est grosse comme un camion...

(TIP : compare ton code avec celui que je t'ai donné )

[hawk91]

Encore moi malheureusement mais il ne me sauvegarde rien dans le nouveau classeur enregistré. Voici mon code pour "sauvegarder"

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
Private Sub CommandButton1_Click()
Sheets("sauv").Activate
UserForm1.ComboBox7.Value = Sheets("sauv").Range("A2").Value
UserForm1.DTPicker2.Value = Sheets("sauv").Range("B2").Value
UserForm1.ComboBox2.Value = Sheets("sauv").Range("C2").Value
UserForm1.ComboBox1.Value = Sheets("sauv").Range("D2").Value
UserForm1.ComboBox4.Value = Sheets("sauv").Range("E2").Value
UserForm1.ComboBox5.Value = Sheets("sauv").Range("F2").Value
UserForm1.ComboBox3.Value = Sheets("sauv").Range("G2").Value
UserForm1.TextBox8.Value = Sheets("sauv").Range("H2").Value
UserForm1.ComboBox6.Value = Sheets("sauv").Range("I2").Value
UserForm1.DTPicker1.Value = Sheets("sauv").Range("J2").Value
UserForm1.TextBox11.Value = Sheets("sauv").Range("K2").Value
UserForm1.TextBox13.Value = Sheets("sauv").Range("L2").Value
UserForm1.OptionButton1.Value = Sheets("sauv").Range("M2").Value
UserForm1.TextBox34.Value = Sheets("sauv").Range("N2").Value
UserForm1.TextBox32.Value = Sheets("sauv").Range("O2").Value
UserForm1.TextBox31.Value = Sheets("sauv").Range("P2").Value
 
 
Application.Dialogs(xlDialogSaveAs).Show
End Sub

Et celui pour "recharger"

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
Private Sub CommandButton13_Click()
Selection.Copy
ComboBox7.Value = Sheets("sauv").Range("A2").Value
DTPicker2.Value = Sheets("sauv").Range("B2").Value
ComboBox2.Value = Sheets("sauv").Range("C2").Value
ComboBox1.Value = Sheets("sauv").Range("D2").Value
ComboBox4.Value = Sheets("sauv").Range("E2").Value
ComboBox5.Value = Sheets("sauv").Range("F2").Value
ComboBox3.Value = Sheets("sauv").Range("G2").Value
TextBox8.Value = Sheets("sauv").Range("H2").Value
ComboBox6.Value = Sheets("sauv").Range("I2").Value
DTPicker1.Value = Sheets("sauv").Range("J2").Value
TextBox11.Value = Sheets("sauv").Range("K2").Value
TextBox13.Value = Sheets("sauv").Range("L2").Value
OptionButton1.Value = Sheets("sauv").Range("M2").Value
TextBox34.Value = Sheets("sauv").Range("N2").Value
TextBox32.Value = Sheets("sauv").Range("O2").Value
TextBox31.Value = Sheets("sauv").Range("P2").Value
 
End Sub

Je n'arrive à rien et il me reste peu de temps. Merci

[Godzestla]

Gasp, tu es complètement dans la choucroute

Ton code de sauvegarde fait par exemple ceci :

Code :

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

1
2
 
UserForm1.ComboBox7.Value = Sheets("sauv").Range("A2").Value

Ce n'est pas un code de sauvegarde mais un code de restauration.

Dans un Save (Saveas) seul le contenu des cellules est sauvé, donc le code juste serait plutot l'inverse .

Code :

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

Sheets("sauv").Range("A2").value=UserForm1.ComboBox7.Value

[hawk91]

Merci le voila :

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
Private Sub CommandButton1_Click()
 
Sheets("sauv").Activate
Sheets("sauv").Range("A2").Value = UserForm1.ComboBox7.Value
Sheets("sauv").Range("B2").Value = UserForm1.DTPicker2.Value
Sheets("sauv").Range("C2").Value = UserForm1.ComboBox2.Value
Sheets("sauv").Range("D2").Value = UserForm1.ComboBox1.Value
Sheets("sauv").Range("E2").Value = UserForm1.ComboBox4.Value
Sheets("sauv").Range("F2").Value = UserForm1.ComboBox5.Value
Sheets("sauv").Range("G2").Value = UserForm1.ComboBox3.Value
Sheets("sauv").Range("H2").Value = UserForm1.TextBox8.Value
Sheets("sauv").Range("I2").Value = UserForm1.ComboBox6.Value
Sheets("sauv").Range("J2").Value = UserForm1.TextBox11.Value
Sheets("sauv").Range("K2").Value = UserForm1.DTPicker1.Value
Sheets("sauv").Range("L2").Value = UserForm1.TextBox13.Value
Sheets("sauv").Range("M2").Value = UserForm1.TextBox11.Value
Sheets("sauv").Range("N2").Value = UserForm1.OptionButton1.Value
Sheets("sauv").Range("O2").Value = UserForm1.TextBox34.Value
Sheets("sauv").Range("P2").Value = UserForm1.TextBox31.Value
 
Application.Dialogs(xlDialogSaveAs).Show
End Sub

ai je besoin de ça :

Code :

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

Sheets("sauv").Activate

[Godzestla]

Non, pas besoin de l'activate, et via WITH tu peux même encore simplifier :

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
24
 
Private Sub CommandButton1_Click()
 
with Sheets("sauv")
.Range("A2").Value = UserForm1.ComboBox7.Value
.Range("B2").Value = UserForm1.DTPicker2.Value
.Range("C2").Value = UserForm1.ComboBox2.Value
.Range("D2").Value = UserForm1.ComboBox1.Value
.Range("E2").Value = UserForm1.ComboBox4.Value
.Range("F2").Value = UserForm1.ComboBox5.Value
.Range("G2").Value = UserForm1.ComboBox3.Value
.Range("H2").Value = UserForm1.TextBox8.Value
.Range("I2").Value = UserForm1.ComboBox6.Value
.Range("J2").Value = UserForm1.TextBox11.Value
.Range("K2").Value = UserForm1.DTPicker1.Value
.Range("L2").Value = UserForm1.TextBox13.Value
.Range("M2").Value = UserForm1.TextBox11.Value
.Range("N2").Value = UserForm1.OptionButton1.Value
.Range("O2").Value = UserForm1.TextBox34.Value
.Range("P2").Value = UserForm1.TextBox31.Value
end with
 
Application.Dialogs(xlDialogSaveAs).Show
End Sub

[hawk91]

Merci beaucoup.
Par contre j ai toujours le problème du DatePicker

Code :

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

1
2
3
Private Sub DTPicker2_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
UserForm1.DTPicker2.Value = Date
End Sub

Il ne me donne pas la date du jour mais celle qui est indiqué dans ses propriété "Value"

[Godzestla]

Bonjour,
je ne connais rien au DTpicker. Désolé.