effacer un ensemble de labesl en même temps

Pierrot93

XLDnaute Barbatruc

• 29 Février 2012

• #2

Re : effacer un ensemble de labesl en même temps

Bonjour,

peut être décharger / re charger l'userform... un "unload" et et un "show"...

bon après midi
@+

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 29 Février 2012

• #3

Re : effacer un ensemble de labesl en même temps

Bonjour

Le code suivant efface tous les labels

Code:

Dim £Ctrl As Control

For Each £Ctrl In Me.Controls
    If TypeName(£Ctrl) = "Label" Then
            £Ctrl.Caption = ""
     End If
    
Next £Ctrl

JP

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 29 Février 2012

• #4

Re : effacer un ensemble de labesl en même temps

Bonjour le fil ,
Ou en nommant "intelligemment" les Label et en faisant une boucle

Code:

For I = 1 To 5
Controls("Label" & I) = ""
Next I

Bonne suite

 

Vote positif 0 Vote négatif

B

ben_osty

XLDnaute Nouveau

• 29 Février 2012

• #5

Re : effacer un ensemble de labesl en même temps

Merci a vous

La boucle fonctionne bien du fait que j'ai nommé mes labels ainsi label1, label2, label3 etc... Contrat rempli!
Là ou ça se corse un peu pour moi c'est lorsque que je veux attribuer une "valeur" au premier label vide
dans la série. Une autre boucle ferait elle l'affaire?

 

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 29 Février 2012

• #6

Re : effacer un ensemble de labesl en même temps

bonjour à tous,

oui comme ça
i = 1
Do While Controls("label" & i) <> ""
i = i + 1
Loop
Controls("label" & i) = TextBox1

textbox1 à adapter.
Jocelyn

 

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 29 Février 2012

• #7

Re : effacer un ensemble de labesl en même temps

re,

comme ça, c'est mieux
Do While Controls("label" & i) <> "" And i < 5

le reste est inchangé.
Jocelyn

 

Vote positif 0 Vote négatif

B

ben_osty

XLDnaute Nouveau

• 29 Février 2012

• #8

Re : effacer un ensemble de labesl en même temps

Wahou ça fuse! Merci ça fontionne nikel
bonne continuation
Ben_osty

 

Vote positif 0 Vote négatif