userform

[MASSJIPE]

Bonjour à tous
J'ai un userform avec des listbox et combobox
une fois mon user validé quant je l'ouvre à nouveau si je modifie une seule cellule quant je valide tous c’efface y à t-l une soluton pour ne pas tout effacé
Merci

 

[Pierrot93]

Re : userform

Bonjour,

un petit fichier, sans données confidentielles, avec le code utilisé serait plus facile pour t'aider...

bonne journée
@+

 

[MASSJIPE]

Re : userform

Bonjour
Ci joint ficjier
Cijoint.fr - Service gratuit de dépôt de fichiers
Merci

 

[Pierrot93]

Re : userform

Re

désolé mais perso, ne peuxacceder à ton fichier, problème de proxy... Le mieux est tout de même un tout petit fichier zippé déposé sur ce forum...

 

[MASSJIPE]

Re : userform

Ci ca peut aider
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub Qualité_Initialize()
DTPicker1.Value = Now
End Sub
Private Sub CommandButton2_Click()
Dim IMAGE As Variant
Dim L As Single, T As Single, W As Single, H As Single

L = Range("A12😀12").Left
T = Range("A12😀12").Top
W = Range("A12😀12").Width
H = Range("A12😀12").Height

IMAGE = Application.GetOpenFilename
If IMAGE <> False Then
Feuil2.Shapes.AddPicture IMAGE, True, True, L, T, W, H
End If
End Sub
Private Sub CommandButton3_Click()
Dim IMAGE As Variant
Dim L As Single, T As Single, W As Single, H As Single

L = Range("E12:H12").Left
T = Range("E12:H12").Top
W = Range("E12:H12").Width
H = Range("E12:H12").Height

IMAGE = Application.GetOpenFilename
If IMAGE <> False Then
Feuil2.Shapes.AddPicture IMAGE, True, True, L, T, W, H
End If
End Sub
Private Sub CommandButton4_Click()
Dim IMAGE As Variant
Dim L As Single, T As Single, W As Single, H As Single

L = Range("A13😀13").Left
T = Range("A13😀13").Top
W = Range("A13😀13").Width
H = Range("A13😀13").Height

IMAGE = Application.GetOpenFilename
If IMAGE <> False Then
Feuil2.Shapes.AddPicture IMAGE, True, True, L, T, W, H
End If
End Sub
Private Sub CommandButton5_Click()
Dim IMAGE As Variant
Dim L As Single, T As Single, W As Single, H As Single

L = Range("E13:H13").Left
T = Range("E13:H13").Top
W = Range("E13:H13").Width
H = Range("E13:H13").Height

IMAGE = Application.GetOpenFilename
If IMAGE <> False Then
Feuil2.Shapes.AddPicture IMAGE, True, True, L, T, W, H
End If
End Sub
Private Sub CommandButton6_Click()
Dim IMAGE As Variant
Dim L As Single, T As Single, W As Single, H As Single

L = Range("A14:H14").Left
T = Range("A14😀14").Top
W = Range("A14😀14").Width
H = Range("A14😀14").Height

IMAGE = Application.GetOpenFilename
If IMAGE <> False Then
Feuil2.Shapes.AddPicture IMAGE, True, True, L, T, W, H
End If
End Sub
Private Sub CommandButton7_Click()
Dim IMAGE As Variant
Dim L As Single, T As Single, W As Single, H As Single

L = Range("E14:H14").Left
T = Range("E14:H14").Top
W = Range("E14:H14").Width
H = Range("E14:H14").Height

IMAGE = Application.GetOpenFilename
If IMAGE <> False Then
Feuil2.Shapes.AddPicture IMAGE, True, True, L, T, W, H
End If
End Sub



Private Sub CommandButton8_Click()
With Sheets("Qualité")
If Not IsDate(TextBox1) Then
End If
Sheets("Qualité").Range("F3").Value = CDate(Format(DTPicker1, "dd/mm/yy"))
Sheets("Qualité").Range("C6").Value = Me.TextBox2.Text
Sheets("Qualité").Range("E6").Value = Me.TextBox3.Text
Sheets("Qualité").Range("A8").Value = Me.TextBox4.Text
Sheets("Qualité").Range("A10").Value = Me.TextBox5.Text
Sheets("Qualité").Range("F2").Value = Me.ComboBox1
Sheets("Qualité").Range("C3").Value = Me.ComboBox2
Sheets("Qualité").Range("C4").Value = Me.ComboBox3
Sheets("Qualité").Range("F4").Value = Me.ComboBox4
Sheets("Qualité").Range("C5").Value = Me.ComboBox5
Sheets("Qualité").Range("F5").Value = Me.ComboBox6
Sheets("Qualité").Range("C2").Value = Me.ComboBox7
Unload Me
End With
End Sub

Private Sub CommandButton9_Click()
Range("C2😀2,C3,C4,C5,C6,F2,F3:H3,F4,F5,E6,A8:H8,A10:H10").Select
Range("A10").Activate
Selection.ClearContents
End Sub

Private Sub UserForm_Activate()
' Définir la date affichée par défaut dans chaque contrôle DTPicker
Me.DTPicker1.Value = Now
End Sub

 

[JNP]

Re : userform

Bonjour le forum 🙂,
Vu que tu utilises dans command bouton 8

Unload Me

tu décharges ton USF. Si tu veux conserver tes données, c'est

Qualité.Hide

qu'il faut utiliser.
Bonne journée 😎

 

[MASSJIPE]

Re : userform

Bonjour
Merci à vous deux
Bonne journée