Discussion :

[eliot.raymond]

Bonjour a toutes et tous, Forum Bonjour,

Juste une question svp:

Est'il possible d'attribuer une variable au code ci-dessous, si oui comment peut'on le faire.

Merci a vous ainsi que de votre temps.

Une bonne journée a tous

Cordialement Ray

Code :

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

1
2
 
Application.Proper(Format(DateSerial(ComboBox1, i, 1), "yyyy"))

[EngueEngue]

Proper c'est un bête pour des chiffres non ?

ComboBox1 et i sont des variables ici

Si tu veux attribuer le résultat à une variable:

Code :

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

x = Application.Proper(Format(DateSerial(ComboBox1, i, 1), "yyyy"))

[eliot.raymond]

Proper c'est un bête pour des chiffres non ?

ComboBox1 et i sont des variables ici

Si tu veux attribuer le résultat à une variable:

Code :

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

x = Application.Proper(Format(DateSerial(ComboBox1, i, 1), "yyyy"))

Salut EngueEngue

Merci pour ta réponse rapide, et comme tu dit effectivement c'est un peu bète

bon en fait, c'est un essai et j'ai oublier de l'enlever, mais je reconnais bien là le coup d'oeil de l'expert

Proper c'est un bête pour des chiffres non ?

Pour la reponse je ne pensais pas aussi simple

je vais essayer ça

je te remercie, bon W-end a toi et bonne journée

Cordialement Raymond

[EngueEngue]

Je ne suis plus expert, je suis provisoirement toléré

[eliot.raymond]

Je ne suis plus expert, je suis provisoirement toléré

Salut EngueEngue

provisoirement toléré, tu es méchant avec toi mème

comprends pas pourquoi tu dit ça ???

Bonne journée

Ray

[eliot.raymond]

Bonjour a tous, forum bonjour

Salut EngueEngue

J'ai fait des essais et ca ne fonctionne pas

mais j'ai sans nul doute mal déclarer

Code :

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

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

Cela devrai m'afficher l'année en cours enfin ce qu'il reste (2013)

dans mon Label43

Merci pour l'aide apporté, bon W-end

Cdlt Ray

Code :

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

1
2
3
4
5
6
7
8
9
10
 
     For i = 2012 To 2030
         ComboBox1.AddItem i
     Next i
         ComboBox1.Text = Year(Now)
 
Dim X As Long
    X = Format(DateSerial(ComboBox1, i, 1), "yyyy")
 
Label43.Caption = X