Syntaxe code d"un userform

[aubelix]

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.

 

[mécano41]

Re : Syntaxe code d"un userform

Bonjour,

Peut-être le " après "XXX

Cordialement

 

[aubelix]

Re : Syntaxe code d"un userform

Bonjour Mecano41.
Merci pour ta réponse.
C'est un oubli lors de l'envoi du message.
J'ai bien "XXX" dans le code.
j'ai corrigé le Post
Cordialement.

 

[pierrejean]

Re : Syntaxe code d"un userform

Bonjour aubelix
Salut mécano

Je ne connais pas la propriété Subtotal de Application !!!!

 

[mécano41]

Re : Syntaxe code d"un userform

Peut-être ....Label18.Visible=TRUE

Salut Pierre Jean : Subtotal doit être de l'EXCEL 2013...

Cordialement

 

[laetitia90]

Re : Syntaxe code d"un userform

bonjour tous🙂🙂🙂🙂

Application.Subtotal(3, [C:C]) - 1

existe depuis excel97 pas beaucoup utilise

le 3 correspond a nbval

pour moyenne c'est 4 ect...

pour le reste un fichier exemple plus simple🙂

 

[mécano41]

Re : Syntaxe code d"un userform

Salut Laetitia,

...comme quoi la doc. est encore plus pourrie que je le pensais...Si je tape Application dans l'explorateur d'objets, cela ne sort pas Subtotal.. et je suis sur EXCEL 2010... 😡 déjà que les mso, fm, xl et autres finesses ne sont pas documentés (ou alors c'est bien caché)...

Cordialement

 

[laetitia90]

Re : Syntaxe code d"un userform

re tous🙂

tout a fait d'accord avec toi mécano🙂 rien dans l'aide.... billou a pas trop force 😡

 

[pierrejean]

Re : Syntaxe code d"un userform

Re

Quant à moi , je confirme le diagnostic de mécano Label18.Visible=TRUE

 

[aubelix]

Re : Syntaxe code d"un userform

Bonjour à Tous.
Merci de l'intérêt que vous portez à mon problème.
Le souci provient du Label18. Sans la recherche du Label16i, tout fonctionne.
Vous pouvez essayer de modifier le code à votre convenance, je suis preneur.
Cordialement.

P.S; PierreJean, ça ma fait plaisir de tes nouvelles 🙂

 

[laetitia90]

Re : Syntaxe code d"un userform

re tous
effectivement Pierre jean 🙂🙂dans ce contexte

Erreur de compilation
Utilisation incorrecte de la propriété

 

[aubelix]

Re : Syntaxe code d"un userform

Re
En effet, PierreJean et Mecano41, gros pour ne pas être vu !!!
Il fallait bien sûr ajouter Label18.visible = True
Quelle est la syntaxe de la condition pour obtenir le résultat escompté ?
Merci pour votre aide.
Cordialement.

 

[laetitia90]

Re : Syntaxe code d"un userform

re tous 🙂

 Label18 = IIf(Label16 = "XXX", Sheets("BASE").[g4], "")

peut etre comme cela a condition au depart bien visible & vide.. pas de caption

 

[aubelix]

Re : Syntaxe code d"un userform

Bonjour Laetitia90.
Merci pour ta réponse.
Rien ne s'affiche dans le Label18. Il s'affiche mais Vide.
Cordialement.

 

[laetitia90]

Re : Syntaxe code d"un userform

re tous 🙂
comme dit plus haut mettre fichier exemple plus simple

en g4 il y a bien quelque chose???

mais plus le temps de rester sorry