Mise à jour des cellules via des TextBox

[taze33]

Bonjour à tous

J’ai un Classeur Excel, à l’ouverture un UserForm s’ouvre et le classeur est minimaliser :

Private Sub Workbook_Open()
Application.WindowState = xlMinimized
UserForm1.Show
End Sub

Dans mon Userform j’ai une ComboBox et un multipage.

Les TextBox des différentes pages prennent les valeurs des cellules correspondant à la ligne de la ComboBox.

Après la mise à jour des TextBox d’une des pages je click sur un bouton modifier :

Private Sub CommandButton2_Click()
Dim l As Long
Dim i As Integer
Dim LL As Long
    If MsgBox("Etes-vous certain de vouloir MODIFIER ce dossier ?", vbYesNo, "Demande de confirmation") = vbNo Then Exit Sub
      l = Me.ComboBox1.ListIndex + 2
    Range("K" & l).Value = CDate(TextBox10)
    Range("L" & l).Value = TextBox11
    Range("M" & l).Value = TextBox12
    Range("N" & l).Value = TextBox13
    Range("O" & l).Value = TextBox14
    Range("P" & l).Value = TextBox15
    Range("Q" & l).Value = TextBox16
    Range("R" & l).Value = TextBox17
    Range("S" & l).Value = TextBox18
    Range("T" & l).Value = TextBox19

ActiveWorkbook.Save
End Sub

Mon souci :

La mise à jour de la feuil1 du classeur ne se fait pas après le click sur Modifier.

Je dois fermer le Userform pour que la mise à jour soit faite.

Mais cela ne me plait pas, je souhaite que la feuil1 soit mise à jour de suite.

Auriez-vous une autre solution SVP.

Merci, cordialement.

 

[Papou-net]

Bonjour taze33,

Tu peux essayer ceci:

Private Sub CommandButton2_Click()
Dim l As Long
Dim i As Integer
Dim LL As Long
If MsgBox("Etes-vous certain de vouloir MODIFIER ce dossier ?", vbYesNo, "Demande de confirmation") = vbNo Then Exit Sub
l = Me.ComboBox1.ListIndex + 2
TextBox10.ControlSource = Range("K" & l) : TextBox10.ControlSource = ""
TextBox11.ControlSource = Range("L" & l) : TextBox11.ControlSource = ""
...et ainsi de suite...

ActiveWorkbook.Save
End Sub

C'eût été mieux de joindre une copie de fichier afin de pouvoir tester avant de répondre.

Cordialement.

 

[Staple1600]

Bonsoir le fil, le forum

@taze33
Avant d'ouvrir une nouvelle discussion, ce serait sympa de donner suite à la précédente, non ?
https://www.excel-downloads.com/threads/problème-de-date-si-jour-inférieur-à-12.20021257/

 

[taze33]

Bonjour Papou-net
Désolé mais en déplacement et pas d'ordi ce qui explique ma réponse très tardive.
Je viens de tester la procédure, elle ne fonctionne pas.
J'ai trouvé une parade en mettant mon fichier en mode normal et ça fonctionne.
Merci