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.

 

[pierrejean]

Re : Syntaxe code d"un userform

Re

A tester:

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

 

[Si...]

Re : Syntaxe code d"un userform

salut

...comme quoi la doc. est encore plus pourrie que je le pensais...Si je tape ...

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

Si...le contrôle Label18 à un fond teinté, pour le masquer, essaye

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) !

 

[aubelix]

Re : Syntaxe code d"un userform

Bonsoir.
Le fichier en pièce jointe.
Cordialement.

 

[laetitia90]

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

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

ou

 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??

 

[aubelix]

Re : Syntaxe code d"un userform

Bonjour Laetitia90.
Merci pour ta réponse.
L'Userform7 ne s'affiche pas.
Je n'ai pas de message d'erreur par contre.
Le filtre fonctionne.

Cordialement.