Discussion :

[casefayere]

Bonjour,

Après avoir utilisé vba avec excel 2003 pour mon fichier, j'utilise ce meme fichier sur excel 2007 mais il ne reconnait plus le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  With REFCHOISIE
    .Clear
    For Each cel In plage
      .AddItem cel(1, 0)
      .Column(1, .ListCount - 1) = cel(1, 1)
      .Column(2, .ListCount - 1) = Format(cel(1, 2), "#,##0.00 €")
      .Column(3, .ListCount - 1) = Format(cel(1, 3), "#0.00 %")
      .Column(4, .ListCount - 1) = cel(1, 5)
      .Column(5, .ListCount - 1) = Format(cel(1, 6), "#0.00")
      .Column(6, .ListCount - 1) = Format(cel(1, 8), "# ##0.00 €")
      .Column(7, .ListCount - 1) = Format(cel(1, 9), "##0")
      .BoundColumn = 1
    Next cel
 
    End With

j'ai le message "bibliotheque introuvable" à la ligne :

Code :

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

.Column(2, .ListCount - 1) = Format(cel(1, 2), "#,##0.00 €")

avec le mot "format" surligné, pouvez-vous m'aider

Merci d'avance

[SilkyRoad]

bonjour

Vérifie si tu as une référence indiquée absente:
Menu Outils
References
Si oui décoche la et clique sur le bouton OK pour valider


sinon, tu peux tester :

Code :

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

VBA.Format(...

bon après midi
michel

[casefayere]

A silkyroad,

Merci pour ta réponse et à cette heure ci, je te souhaite une bonne soirée,

J'ai voulu vérifier chez moi ce que tu me propose car le problème était chez mon copain (là je suis chez moi) mais je n'ai pu rien vérifier car sur mon PC avec office 2007, le même code fonctionne parfaitement.

Je vérifierai demain chez mon copain, merci encore