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

Syntaxe code d"un userform

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion aubelix
  • 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

aubelix

XLDnaute Impliqué
Bonjour à tous les Amis du Forum.

Une fois de plus, je sollicite votre aide.
Mon problème est le suivant:

Dans un userform, j'affiche un sous-total dans le label17. C'est OK
J'affiche une valeur dans le label16 qui se situe dans la feuille BASE
Ca a marché jusqu'à ce que j'ajoute une condition. Si la valeur du Label16 est XXX alors afficher le Label18
qui aura pour valeur G4 de la feuille BASE.
J'ai un message d'erreur:
Erreur de compilation
Utilisation incorrecte de la propriété
Mon code ci-dessous

Sub UserForm_Initialize()
Label17 = Application.Subtotal(3, [C:C]) - 1
Label16 = Sheets("BASE").Range("F3")
If Label16.Caption = "XXX" Then Label18.Visible
Label18 = Sheets("BASE").Range("G4")
End Sub

Merci pour votre aide.
Cordialement.
 
Dernière édition:
Trier par date Trier par votes
Re : Syntaxe code d"un userform

salut

mécano41 à dit:
...comme quoi la doc. est encore plus pourrie que je le pensais...Si je tape ...
Cliquez pour agrandir...

tape "=sou" dans une cellule de la feuille (F1 sera plus prolixe).

Si...le contrôle Label18 à un fond teinté, pour le masquer, essaye
Code: 
Option Compare Text 'attention à la casse
Sub UserForm_Initialize()
  Label16 = Sheets("BASE").[F3]
  Label17 = Application.Subtotal(3, [C:C]) - 1 'ou Application.CountA([C:C]) - 1
  Label18 = Sheets("BASE").[G4]
  Label18.Visible = (Sheets("BASE").[F3] = "XXX") 
End Sub

sinon, avec le Label18 visible, tu as les autres propositions 😉


Bien entendu on ne peut voir que ce qui est visible (G4 non vide) !
 
Vote positif 0 Vote négatif
Re : Syntaxe code d"un userform

re tous🙂🙂🙂

tu as pas de XXX dans ta plage pour avoir quelques chose en g4 il faut au mois 3 lignes renseignée

on pourrait ecrire

Code: 
Label17 = Application.Subtotal(3, [C:C]) - 1
   Label16 = Feuil2.[f2]
   Label18 = IIf(Left(Label16, 3) = "XXX", Feuil2.[G2], "")

ou

Code: 
 Label17 = Application.Subtotal(3, [C:C]) - 1
   Label16 = Feuil2.[f2]
   Label18 = IIf(Label16 Like "XXX*", Feuil2.[G2], "")

mais la on resoud pas le pb...
on prend seulement la premiere ligne dans destination tu peus en avoir plusieurs
peut être a la place du label18 une listbox la tu auras tous

pourquoi 2 users un seul serait suffisant??
 
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

  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
580
tactic6
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
912
ChTi160
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
809
Liner77
L
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
969
Oneida
  • Résolu(e)
XL 2013 Userform recherche - Listbox double clic renvoi vers cellule
Réponses
7
Affichages
1 K
CGU2022.
  • Question Question
XL 2019 Ajouter un " aperçu avant impression " à ce code
Réponses
7
Affichages
937
Yann71
A
  • Résolu(e)
XL 2013 Utilisation de plusieurs conditions
Réponses
7
Affichages
1 K
AnjyD
A
T
  • Question Question
Microsoft 365 Problème affichage multipage dans un tabstrip
Réponses
1
Affichages
641
troki74
T
M
  • Question Question
Microsoft 365 VBA - Suppresion ligne en fonction d'un critère
Réponses
5
Affichages
1 K
melinavy
M
R
  • Question Question
XL 2019 Affichage dynamique dans un Label d'un UserForm
Réponses
2
Affichages
2 K
re4
R
S
  • Résolu(e)
XL 2010 non fonctionnement du code VBA sur un autre pc
Réponses
13
Affichages
2 K
Stedemart
S
T
  • Question Question
XL 2016 Modification de données sur 2 feuilles différentes via UserForm
Réponses
14
Affichages
2 K
tontonboulii
T
F
  • Résolu(e)
Microsoft 365 Récupérer la valeur d'une cellule dans un userform
3 4 5
Réponses
70
Affichages
10 K
soan
S
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
  • Question Question
XL 2019 "Améliorer" un code VBA
Réponses
13
Affichages
2 K
bambi
J
  • Question Question
XL 2013 Comment attribuer une valeur relative à "value" d'un "TextBox" dans un "Userform" en VBA ?
Réponses
2
Affichages
2 K
JM W-S-P
J
D
  • Résolu(e)
XL 2016 CODE VBA POUR DETERMINER LA DERNIERE LIGNE DE LA FEUILLE ACTIVE
Réponses
4
Affichages
3 K
didou78
D
L
  • Question Question
XL 2016 Problème aléatoire de range dans un userform
Réponses
3
Affichages
834
Laurent97310
L
  • Question Question
XL 2016 Renommer Bouton commande sur Userform
Réponses
2
Affichages
994
KTM
D
  • Résolu(e)
Userform Initialise : Affecter la valeur d'une cellule variable à un label
Réponses
8
Affichages
3 K
Deb2708
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…