Retrouver Valeurs TextBox à l'initialsation du Formulaire

camarchepas

XLDnaute Barbatruc

• 30 Mars 2015

• #2

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

 

Pièces jointes

• Formulaire.xlsm

  19.7 KB · Affichages: 19
• Formulaire.xlsm

  19.7 KB · Affichages: 24
• Formulaire.xlsm

  19.7 KB · Affichages: 25

Vote positif 0 Vote négatif

A

alain.raphael66@gmail.com

XLDnaute Nouveau

• 30 Mars 2015

• #3

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.... ?

 

Vote positif 0 Vote négatif

A

alain.raphael66@gmail.com

XLDnaute Nouveau

• 30 Mars 2015

• #4

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

 

Vote positif 0 Vote négatif

A

alain.raphael66@gmail.com

XLDnaute Nouveau

• 30 Mars 2015

• #5

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...🙁

 

Dernière édition: 30 Mars 2015

Vote positif 0 Vote négatif

A

alain.raphael66@gmail.com

XLDnaute Nouveau

• 30 Mars 2015

• #6

Re : Retrouver Valeurs TextBox à l'initialsation du Formulaire

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

 

Vote positif 0 Vote négatif