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