effacer un ensemble de labesl en même temps

[ben_osty]

Quelqu'un pourrait il me conseiller sur le code qui, lorsque je clique sur "effacer tout" permet de remettre tout les label = "" de manière groupé (sans écrire pour chaque label : label1 = "" label2 = "" etc...)

Faut-il de creer un groupe de controles?
si oui comment fait on?



thanks you
Ben

 

[Pierrot93]

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
@+

 

[jp14]

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

Bonjour

Le code suivant efface tous les labels

Dim £Ctrl As Control

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

JP

 

[JNP]

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

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

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

Bonne suite

 

[ben_osty]

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?

 

[joss56]

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

 

[joss56]

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

 

[ben_osty]

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

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