Retrouver Valeurs TextBox à l'initialsation du Formulaire

[alain.raphael66@gmail.com]

Salut à Tous...

J'ai créé un Formulaire possédant entre autres des TextBox, Checkbox, ComboBox.....qui incrémentent des cellules Excel.

Mon Code VBA se termine par "Unload Useform".

Suite à de nombreuses saisies, je cherche lorsque je ré-ouvre le formulaire (sans avoir fermer Excel) à retrouver les valeurs saisies préalablement dans ce formulaire (afin de ne pas ré-écrire sans cesse..), mais seulement des TextBox.

Merci de vos idées..

 

[camarchepas]

Re : Retrouver Valeurs TextBox à l'initialsation du Formulaire

Bonjour et bienvenue sur XLD ,

Peut être comme ceci tout simplement

le formulaire est trés simple juste pour l'exemple

 

[alain.raphael66@gmail.com]

Re : Retrouver Valeurs TextBox à l'initialsation du Formulaire

Merci de votre réponse : à l'initialisation : TextBox1 = Sheets("Saisies").Range("a" & 1)

Par contre, mon formulaire incrémente chaque fois une nouvelle ligne. Comment faire pour que la TextBox reprenne la valeur de la dernière ligne.... ?

 

[alain.raphael66@gmail.com]

Re : Retrouver Valeurs TextBox à l'initialsation du Formulaire

Mince...j'ai cette erreur qui apparait...

Sub Bouton1_Clic()

Nouveau = True
UserForm1.Show vbModeless
End Sub

 

[alain.raphael66@gmail.com]

Re : Retrouver Valeurs TextBox à l'initialsation du Formulaire

En effet, j'avais créé le code ci-dessous...mais je voudrais faire la même chose pour mes 4 autres TextBoxs....😕

Dim DerLig As Long
With Worksheets("Commun")
DerLig = .Range("B65536").End(xlUp).Row
Da.Value = .Range("B" & DerLig)
End With

Ce code marche bien pour ma colonne B mais lorsque je créé le code pour mes autres CheckBox....comme cela :

Dim Derlig2 As Long
With Worksheets("Commun")
DerLig2 = .Range("C65536").End(xlUp).Row
Lieu.Value = .Range("C" & DerLig)
End With

Cela coince avec le message d'erreur...🙁

 

[alain.raphael66@gmail.com]

Re : Retrouver Valeurs TextBox à l'initialsation du Formulaire

Erreur trouvée....Merci de votre lecture...