Discussion :

[PierrotMfff]

Bonjour à tous!

Dans une fiche Infos, j'ai une liste de postes, qui peuvent être changés selon l'utilisateur.

Les valeurs de cette liste vont permettre dans la fiche Menu, de faire apparaître un Label. La somme des Labels me permettent sur appui d'un boutton de mettre en place un filtre.

Sur ouverture du fichier excel, voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
For i = 1 To 16 'Car 16 labels disponibles qui de base sont en Visible = False
If Sheets("Infos").Cells(i + 1, 1) <> "" Then 'Si valeur dans la fiche info, colone Postes
    Me.Controls("Label" & i).Visible = True 'Alors mon label s'affiche...
    Me.Controls("Label" & i).Caption = Sheets("Infos").Cells(i, 1).Value 'Et prends la valeur de ma cellule
Else
    Sheets("Menu").Me.Controls("Label" & i).Visible = False 'Sinon elle reste cachée
End If
Next i

J'ai déjà utilisé Me.Controls("CommandButton" & i) dans un autre fichier, cela marchait...
Mais l'utilisation de Controls ici apparemment n'est pas gérée... (Excel le surligne en débogage avec message d'erreur)
-Faut-il être dans un userform?
-Ca ne marche pas pour les labels?
-Y a-t-il une erreur de syntaxe?
-Y a-t-il une autre méthode?

En espèrant avoir été clair, bonne journée, PierrotMfff

[Marc-L]

Bonjour,

faudrait donc faire appel à une cartomancienne pour deviner le message d'erreur ‼

Sinon un début de piste : curseur dans le code sur Me puis appuyer sur la touche !

Donc après la lecture de son aide, cette instruction est-elle judicieuse ?

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[PierrotMfff]

Merci pour cette réponse rapide et ludique,

je ne savais pas ce que voulais dire Me... mais ça ne sert à rien ici...

Si je mets juste Controls("Label" & i) ça ne fonctionne pas non plus

J'essaie toutes les syntaxes qu'il m'ait été donné de rencontrer, ça passe pas...

peut être parceque la procédure est sur l'événement Worksheet_Activate?

[Marc-L]

Non au contraire si le contrôle est bien sur cette feuille de calculs
car l'instruction Me représente bien la feuille de calculs liée au module.

Astuce : grâce au Générateur de macros en sélectionnant le contrôle vérifier le code ainsi généré …

[PierrotMfff]

J'ai ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Shapes.Range(Array("Label" & i)).Select

je l'incorpore dans mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Shapes.Range(Array("Label" & i)) = Sheets("Infos").Cells(i , 1).Value

pareil méthode non gérée par cet objet

[Marc-L]

Normal car avant le signe = il n'y a pas de propriété indiquée dans l'objet ! …


Sinon effectuer donc une manipulation complète avec le Générateur de macros livrera la solution …

[PierrotMfff]

Même avec le .Caption (qui est la propriété par défault) ça ne fonctionne pas...

Le générateur de Macro? En enregistrant une macro?