Control et recharge de Donnée

Version imprimable

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:

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:

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:

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

08/04/2009, 15h28
Godzestla
Bonjour,

si tu utilises ceci pour sauver :

Code:

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

Pour recharger, c'est juste l'inverse.

Code:

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

à installer par exemple dans
Code:

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:

1 2 3 4 5 6 7 Private Sub UserForm_Initialize() with sheets(1) UserForm1.DTPicker2.Value=.range("B2") end with '..... End Sub
08/04/2009, 15h45
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:

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
08/04/2009, 16h01
Godzestla
Re,

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

Fais un effort, merci.

Citation:

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

Code:

(UserForm1.DTPicker2.Value=date

Citation:

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

1 2 3 4 5 Application.Dialogs(xlDialogSaveAs).Show lenom = thisworkbook.name Workbooks(lenom).SendMail Recipients:="xpe.com", _ '...
08/04/2009, 16h24
hawk91
Pardon pour les balises
Je ne comprends pas ce code ne change rien

Code:

UserForm1.DTPicker2.Value=date

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

Mais génial merci pour celui la
Code:

1 2 3 4 Application.Dialogs(xlDialogSaveAs).Show lenom = thisworkbook.name Workbooks(lenom).SendMail Recipients:="xpe.com", _ '...
Il fonctionne nickel
09/04/2009, 09h51
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:

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
09/04/2009, 10h31
Godzestla

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

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

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

Code:

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:

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

09/04/2009, 12h06
Godzestla
:aie: Gasp, tu es complètement dans la choucroute

Ton code de sauvegarde fait par exemple ceci :
Code:

1 2 UserForm1.ComboBox7.Value = Sheets("sauv").Range("A2").Value
Ce n'est pas un code de sauvegarde mais un code de restauration. :aie::aie::aie:

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

Code:

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

Merci le voila :

Code:

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:

Sheets("sauv").Activate

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

Code:

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

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

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"

10/04/2009, 09h15
Godzestla

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