Initialisation texbox en boucle.

pierrejean

XLDnaute Barbatruc

• 31 Mai 2006

• #2

bonjour GG

tu peux t'inspirer de ceci [file name=GG.zip size=10503]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/GG.zip[/file]

Message édité par: pierrejean, à: 31/05/2006 17:39

 

Pièces jointes

• GG.zip

  10.3 KB · Affichages: 23
• GG.zip

  10.3 KB · Affichages: 22
• GG.zip

  10.3 KB · Affichages: 20

Vote positif 0 Vote négatif

G

GG

Guest

• 31 Mai 2006

• #3

Pierrejean
Merci mais je ne vois aucun texte ???

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 31 Mai 2006

• #4

re

excuses le fichier n'etait pas passé

 

Vote positif 0 Vote négatif

G

GG

Guest

• 31 Mai 2006

• #5

Merci PJ
Je testerai demain matin.
A+

 

Vote positif 0 Vote négatif

B

bebere

Guest

• 31 Mai 2006

• #6

bonsoir
écrit comme suit

For i = 24 To 47
With me
.Controls('Textbox' & i).SetFocus
.Controls('Textbox' & i).SetStart = 0
End With
Next i

Private Sub Leon() 'Le Nettoyeur ;-)
Dim CTRL As Control
et un autre pour ta doc
For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.TextBox Then
CTRL = ''
ElseIf TypeOf CTRL Is MSForms.ListBox Or TypeOf CTRL Is MSForms.ComboBox Then
CTRL.Clear
End If
Next

End Sub

à bientôt

 

Vote positif 0 Vote négatif

G

GG

Guest

• 1 Juin 2006

• #7

Salut JP , bebere et le forum

Je devais être saturé hier soir, j’ai interverti les numéros des checkbox et textbox (en fait mon userform est multipage et comprends un peu de toutes les commandes).
Votre aide à été utile voici la syntaxe correcte.

For i = 24 To 47
With Me
.Controls('Checkbox' & i).SetFocus
.Controls('Checkbox' & i) = 0
End With
Next i
Bebere je garde au frais ta méthode plus professionnelle qui me servira certainement un jour.
Merci
A+

 

Vote positif 0 Vote négatif