> Tous les forums > Forum Bureautique
 Faire une bouche avec les Labels (Word)
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
matbarns
  Posté le 27/02/2018 @ 13:27 
Aller en bas de la page 
Petit astucien

Bonjour,

sous word ,sur ma page, j'ai une case à cocher qui déclenchera la macro, et 3 labels dont 1 vide. Ce que je souhaite c'est lorsque je coche la case, la macro recherche le Label vide pour y inscrire le "caption" de la case à cocher...

Voici ce que j'ai écrit:

Sub CheckBox1_Click()
Dim i As Integer
If CheckBox1.Value = True Then
For i = 1 To 3
If Controls("Label" & i).Caption = "" Then
Controls("Label" & i).Caption = CheckBox1.Caption
Else
End If
Next
'Label1.Caption = "toto"
'Else
'Label1.Caption = "rien"
Else
End If
End Sub

je comprends pas trop le fonctionnement du "Controls("Label"&i)", je n'ai pas encore trouvé de tuto du coup si qqu'un peut m'éclairer...

Merci d'avance

Publicité
m@rina
 Posté le 27/02/2018 à 17:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Bonjour,

Label" & i c'est le nom du label avec la boucle Each (de 1 à 3), donc Label1, Label2 et Label3.

m@rina

matbarns
 Posté le 28/02/2018 à 09:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

merci pour l'info mais je ne comprends pas comment intégrer cette boucle each, quoique j'écrive il me surligne sans arrêt Controls en me disant Sub ou Function non définie.

J'ai essayé de déclarer Controls, enlever le "s", je nage complet. Et malheureusement je ne trouve pas d'exemple simple pour comprendre le fonctionnement d'une boucle avec ce control. Les quelques exemples que je trouve, utilisent les messagesbox dont je n'ai aucune utilité...

Lien vers une image externe

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Aucun sujet pertinent lié trouvé
 > Tous les forums > Forum Bureautique