Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mise à jour des cellules via des TextBox

taze33

XLDnaute Nouveau
Bonjour à tous

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

VB:
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 :
VB:
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

XLDnaute Barbatruc
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.
 

taze33

XLDnaute Nouveau
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…