Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Actualiser un label dans un USF en permanence depuis une feuille excel

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion seby93
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

seby93

XLDnaute Nouveau
bonjour,

je cherche à faire un petit programme tout simple mais je suis débutant en VBA.

j'ai un USF avec un label (Label1) qui est visible en permanence sur un deuxième écran.

j'aimerais que, quand par exemple je note le no "1" dans ma cellule "A1" que mon label1 s'actualise en permanence sur mon deuxième écran. Donc mon label1 devra indiquer le no "1" et si possible que mon label s'affiche en vert dès qu'il y a une valeur (en arrière plan).

merci pour vos réponses
 
Trier par date Trier par votes
Bonsoir Seby,
Avec un petit fichier test, la réponse eût été plus précise.
En PJ un essai avec dans Thisworkbook pour l'init de l'userform :
VB: 
Private Sub Workbook_Open()
    If [A1] = "" Then
        UserForm1.Label1 = "?"
        UserForm1.Label1.TextAlign = 2
        UserForm1.Label1.BackColor = vbRed
        UserForm1.Label1.ForeColor = vbWhite
    Else
        UserForm1.Label1 = "N°" & [A1]
        UserForm1.Label1.TextAlign = 2
        UserForm1.Label1.BackColor = vbGreen
        UserForm1.Label1.ForeColor = vbBlack
    End If
    UserForm1.Show 0
End Sub
et en feuille 1 pour la gestion :
Code: 
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A1]) Is Nothing Then
        If Target = "" Then
            UserForm1.Label1 = "?"                  ' Texte
            UserForm1.Label1.BackColor = vbRed      ' Couleur de fonc
            UserForm1.Label1.ForeColor = vbWhite    ' Couleur caractères
        Else
            UserForm1.Label1 = "N°" & Target
            UserForm1.Label1.BackColor = vbGreen
            UserForm1.Label1.ForeColor = vbBlack
        End If
    End If
Fin:
Application.ScreenUpdating = True
End Sub

Il suffit de modifier la valeur en A1 pour modifier l'userform.
Si A1 est vide le label se met en rouge.
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir à tous 🙂,

On abandonne le label. On le remplace par un textbox à qui :
  • on va donner l'apparence d'un label
  • on va affecter "A1" à la propriété "ControlSource". Ainsi le textbox1 aura toujours la valeur de la cellule A1 sans programmation
  • l'évènement "change "de la textbox détermine la couleur
En pièces jointes le classeur démo et les propriétés de la textbox1.

Le code du userform1 :
VB: 
Private Sub TextBox1_Change()
   If TextBox1 <> "" Then
      TextBox1.BackStyle = fmBackStyleOpaque
      TextBox1.BackColor = &HC0FFC0    'vbGreen
   Else
      TextBox1.BackStyle = fmBackStyleTransparent
   End If
End Sub

Private Sub UserForm_Initialize()
   TextBox1_Change
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour,

sylvanu à dit:
Avec un petit fichier test, la réponse eût été plus précise.
Cliquez pour agrandir...
Ledit fichier est dans son fil de discussion précédent. 😉

Mais je crois que le problème est plus important que ça où il faut intercepter le changement de valeur dans une colonne.
À mon avis c'est tout le concept qu'il faut revoir pour que le fichier soit beaucoup plus simple à utiliser.
 
Vote positif 0 Vote négatif
Bonjour @TooFatBoy🙂,
S'il faut parcourir tous les messages de @seby93 pour :
  • disposer d'un fichier
  • interpréter correctement la question
alors autant consulter ma voyante Mme IRMA.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Résolu(e)
XL 2019 Actualisation de label dans un Userform en lien avec une cellule
Réponses
2
Affichages
497
Flnte
F
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
119
Phil69970
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
759
bérylion
B
F
  • Question Question
XL 2016 Présence dans un intervalle
Réponses
7
Affichages
304
chris
B
  • Question Question
XL 2016 recherche dans une colonne depuis un autre onglet
Réponses
5
Affichages
411
boguinette
B
D
  • Question Question
Microsoft 365 Comment exporter certaines feuilles d'un classeur dans un nouveau classeur.
Réponses
2
Affichages
287
Jacky67
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
609
Nico2978
M
  • Question Question
XL 2021 Créer une liste d'informations en colonne dans des cellules différentes
Réponses
3
Affichages
462
djidji59430
  • Résolu(e)
XL 2016 Passer un label en paramètre à une macro
Réponses
6
Affichages
1 K
Dranreb
B
  • Résolu(e)
Autres Colorer une cellule en un clic
2
Réponses
18
Affichages
2 K
baguihome
B
L
  • Question Question
Microsoft 365 Comment reporter une valeur dans un onglet sans la répéter
Réponses
2
Affichages
512
L_PE
L
B
  • Question Question
XL 2016 Créer un 2ème fichier excel en fonction de colonnes prises dans un autre fichier
Réponses
8
Affichages
556
Cousinhub
A
  • Résolu(e)
Microsoft 365 Formule Excel pour modifier la "référence" dans une colonne
Réponses
2
Affichages
702
AlexiaC
A
P
  • Question Question
XL 2013 Copier une formule dans un cellule depuis une cellule d'un onglet nouvellement crée en macro VBA
Réponses
8
Affichages
765
pascalou1
P
  • Question Question
Microsoft 365 VBA Copie de la concaténation d'une plage variable dans un textbox
Réponses
11
Affichages
812
patricktoulon
T
  • Résolu(e)
XL 2010 VBA - Insérer un PDF en tant qu'image dans une feuille Excel
2
Réponses
26
Affichages
4 K
Dudu2
  • Résolu(e)
XL 2010 Ranger différentes valeurs dans une cellule
Réponses
13
Affichages
1 K
Eric C
E
  • Question Question
XL 2019 Transposer le texte d'une TextBox à un Label
Réponses
2
Affichages
816
Edoliie
E
R
  • Question Question
XL 2019 Objet : Copier/coller des valeurs d'une plage de cellules colorées avec MFC dans une deuxième feuille
2
Réponses
15
Affichages
2 K
Rom1-51
R
W
  • Résolu(e)
Microsoft 365 VBA : Déplacer une sélection de feuilles dans un nouveau classeur
Réponses
4
Affichages
3 K
WhatIsVBA
W
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…