Déclarer un tout petit code en variable

Bonjour a toutes et tous, forum bonjour



sous Excel 2007 VBA

Je n'arrive pas a déclarer le code ci-dessous correctement

sous une variable (normale)

et sous une variable Public

et afficher dans mon Label43 le résultat de la variable devrai etre "2013"

Format(DateSerial(ComboBox1, i, 1), "yyyy")

Merci a vous et de votre temps

Bon W-end

Cdlt Ray

6 réponses

  1. Re Salut

    J'ai réussi a adapter a mon programme et là cela a l'air de fonctionner

    je verrai bien dans le temps et a l'usage.

    Passe un bon W-end et je remercie pour ton aide ainsi que pour les infos
    qui sont toujours bonnes a prendre.

    Bye bye encore merci

    Cordialement Ray
    1. Là, tel que tu exposes le problème, il semblerai que la variable ne soit pas déclarée au bon endroit.

      Pour faire vite :

      - Variable globale déclarée au début d'un module

      Option Explicit
      
      Public maVarpublic As String 'Visible par tous les modules du code
      Private maVarPrivee As String 'Visible uniquement dans le module


      - Variable locale déclarée dans une méthode, procédure, fonction.

      Function Test()
      Dim maVar As String 'Visible que dans cette fonction
      
           maVar = "Coucou"
           MsgBox maVar
      
      End Function
      

      1. Salut

        Non je ne connais pas

        par contre j'ai lu de la doc sur les variables sur un forum bien connu mais a comprendre comme ça ce n'ai pas forcément évident

        parfois un prof ne serai pas de trop, mais bon les profs a 62 ans LOL quoique

        Ray
        1. Ta variable est déclarée où ?

          Si je fais :

          Sub Test
          Dim x As String
          
                x = Format(ComboBox1.Text, "yyyy")
                Label43.Caption = x
          
          End Sub


          Chez moi ça fonctionne.
          1. Re

            declarer dans initialize userform

            moi j'ai comme réponse X= 2182

            ray
        2. Salut Polux31

          Merci pour ta réponse

          je souhaite déclarer "Format(ComboBox1.Text, "yyyy")"

          sous une variable exploitable Exemple

          Dim X As String

          X= Format(ComboBox1.Text, "yyyy")

          Label43.Caption = X

          Mais ca marche pas

          Bon app

          Ray