Discussion :

[enretard]

bonjour,

J'aimerais savoir s'il est possible de sauvegarder un Userform avec les données affichées ?

je vous envoie le code complet pour une meilleure compréhension de mon projet.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
Option Explicit
 
Private Sub CommandButton1_Click()
    Dim i As Integer
    'deuxième bouton OK
    'feuille contenant la valeur à chercher
    With Sheets("CLIENTS")
        'de la ligne 2 à la dernière ligne utilisée de la colonne A
        For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            'recherche de la ligne en colonne A qui correspond à la sélection du combobox1
            If .Cells(i, 1).Text = Me.ComboBox1 Then
                'si oui ComboBox1 = colonne suivante même ligne
                tbxAdresse1 = .Cells(i, 4).Text
                tbxAdresse2 = .Cells(i, 5).Text
                tbxcp = .Cells(i, 7).Text
                tbxville = .Cells(i, 8).Text
                tbxpays = .Cells(i, 10).Text
                tbxmoyenpaiement = .Cells(i, 21).Text
                tbxAdresse1Livraison = .Cells(i, 13).Text
                tbxAdresse2Livraison = .Cells(i, 14).Text
                tbxcpLivraison = .Cells(i, 16).Text
                tbxvilleLivraison = .Cells(i, 17).Text
                tbxpaysLivraison = .Cells(i, 19).Text
 
                Exit For
            End If
        Next
    End With
End Sub
 
Private Sub CommandButton2_Click()
    UserForm1.Printform
End Sub
 
Private Sub CommandButton3_Click()
    UserForm1
End Sub
 
Private Sub CommandButton4_Click()
    'efface la sélection des texboxs
    tbxproduit.Text = ""
    tbxcontrat.Text = ""
    tbxlieu.Text = ""
    tbxprix.Text = ""
    tbxdestinataire.Text = ""
    tbxClientsFact.Text = ""
    tbxClientsLivr.Text = ""
    tbxAdresse1.Text = ""
    tbxAdresse2.Text = ""
    tbxcp.Text = ""
    tbxville.Text = ""
    tbxpays.Text = ""
    tbxmoyenpaiement.Text = ""
    tbxAdresse1Livraison.Text = ""
    tbxAdresse2Livraison.Text = ""
    tbxcpLivraison.Text = ""
    tbxvilleLivraison.Text = ""
    tbxpaysLivraison.Text = ""
    tbxclient.Text = ""
End Sub
 
Private Sub Effacer_Click()
    Me.Hide
End Sub
 
Private Sub OK_Click()
    Dim i As Integer
 
    'feuille contenant la valeur à chercher
    With Sheets("CONTRATS")
        'de la ligne 2 à la dernière ligne utilisée de la colonne J
        For i = 2 To .Cells(Rows.Count, 10).End(xlUp).Row
            'recherche de la ligne en colonne j qui correspond à la sélection de la Listbox
            If .Cells(i, 10).Text = Me.ListBox1 Then
                'si oui texbox1 = colonne suivante même ligne
                tbxproduit = .Cells(i, 6).Text
                tbxcontrat = .Cells(i, 1).Text
                tbxlieu = .Cells(i, 12).Text
                tbxprix = .Cells(i, 14).Text
                tbxdestinataire = .Cells(i, 8).Text
                tbxClientsFact = .Cells(i, 9).Text
                tbxClientsLivr = .Cells(i, 7).Text
 
                Exit For
            End If
        Next
    End With
End Sub
 
Private Sub UserForm_Initialize()
    With tbxspecifications
        'spécifie que la touche ENTREE ajoutera une nouvelle ligne
        tbxspecifications.EnterKeyBehavior = True        
    End With
End Sub
 
Private Sub UserForm_Activate()
    With Me
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    'sauvegarde le contenu des Textbox lors de la fermeture du Userform
End Sub

Je vous envoie aussi une partie de mon projet en image (moins de place).

Merci si vous avez une idée

[ouskel'n'or]

Non, tu ne peux pas sauvegarder l'userform et ses données affichées, seulement l'image de l'userform. Par contre, tu peux le masquer provisoirement. Quel est ton but ?

[enretard]

Non, tu ne peux pas sauvegarder l'userform et ses données affichées, seulement l'image de l'userform. Par contre, tu peux le masquer provisoirement. Quel est ton but ?

Mon but c'est de garder une trace, par exemple puis je sauvegarder l'image de mon Userform avec ses données affichées ?

Ou de transférer les données sur une feuille masqué d'excel par exemple.

Qu'en penses-tu ?

[ouskel'n'or]

Ça dépend de l'usage que tu veux faire des données de l'userform. Si c'est simplement une visualisation, une image peut suffire mais tu feras quoi de cette image ? Ensuite, la procédure est assez lourde.
Pour ma part, je placerais les données "quelque part" afin, par une option de l'userform (un bouton) de pouvoir les visualiser en les rechargeant.
Mais je ne connais pas ton appli ni la manière utilisée pour renseigner l'userform

[enretard]

Je te remercie pour tous tes conseils, grâce à toi et à d'autres sur le forum, j'ai réussi à faire mon projet.

C'est vraiment un site sérieux. C'est super agréable

je vais démarrer une autre conversation pour finaliser mon projet.

Peut être à plus tard.