Variable dans un label?

Résolu
Bonjour,
Je ne comprend pas pourquoi ce code ne fonctionne pas
 Option Explicit
Dim Money As Integer
Private Sub UserForm3_Initialize()
 Set Money = 5000
 Z.Caption = Money 


Sachant que Z est un label
On ne peut pas mettre de variable dans un label??

5 réponses

  1. Modérateur
    "Set" ne s'applique qu'aux objets, pas aux type simples (numériques, string)
    Retires-le.
    0
    1. Ok c'est fait, mais ca marche toujours pas x(
      0
      1. Modérateur
        "ca marche toujours pas" ne veut rien dire.
        Pas le résultat attendu ? Erreur ? Autre ?

        As-tu essayé en pas à pas en regardant le contenu des variables ?
        Y-a-t-il du code qui peut interférer ?
        0
      2. @NHenryCest a dire qu'il ne se passe tout simplement rien, pas de rapport de debogage, juste le label n'a rien d'ecrit dedans une fois le userform lancé.
        Ca marche si je le met dans une procédure tel que le click d'un bouton de commande, mais pas dans le userform initialize.
        Le code que jai envoyé est tout ce qu'il y a dans le classeur, donc pas d'interference
        0
      3. Modérateur
        ok, as-tu essayé de faire un :
        MsgBox "test"
        dans userform initialize ?
        Si il ne s'affiche pas, c'est que l'event n'est pas appelé.
        0
      4. En effet la msgbox ne s'affiche pas non plus dans le initialize.
        Comment je fais pour l'appeler donc?
        0
      5. Modérateur
        Il y a d'autres événements qui sont disponible, normalement.
        0
    2. Donc je ne peux rien faire dans mon initialize alors :/ Le probleme c que si je dois attribuer une valeur a une variable dans la procédure ou elle est utilisée les changements de valeur par differentes fonctions ne seront pas gardé en memoire et tout repart de zero a chaque fois...
      Par ex
      Variable = 5000
      Des if font que la variable perd 100
      elle vaut 4900
      Quand je relance la procedure ca repart donc de 5000
      Il faudrait que je puisse affecter une valeur avant afin d'eviter ce pb
      (jai aussi essaye de mettre dans userform mousemove mais meme probleme)
      0
      1. Contributeur
        Bonjour,

        quelque soit le nom du userform c'est :
        Private Sub UserForm_Initialize()
        eric

        1
        1. OMG MERCI CETAIT CA

          Javais du le changer en pensant que c'etait la cause d'un bug je retiens la lecon merci bcp
          0