renvoi onfos d'1 USF vers 1 feuille

[Akeya06]

Bonsoir à toutes et tous,

Je voudrais renvoyer des infos d'1 USF vers ma feuille 'infos'. En sachant que dans la colonne A vient se mettre la Qte, la B reste vide, dans la C la désignation et la D le prix. Voici donc le code :

Private Sub Cvalid_Click()

Dim derlgn As Integer
With Worksheets('infos')
derlgn = .Range('A65536').End(xlUp).Row + 1

.Cells(derlgn, 1) = Textqte.Value
.Cells(derlgn, 3) = maliste.List(maliste.ListIndex, 0)
.Cells(derlgn, 4) = Format(.Cells(derlgn, 4), '# ##0.00', '€')
.Cells(derlgn, 4) = Textprix2.Value
End With

End Sub

Et là, problème car lorsque je valide j'ai le message : erreur d'exécution '13' et la ligne de code qui ne va pas est :

.Cells(derlgn, 4) = Format(.Cells(derlgn, 4), '# ##0.00', '€')

Si je la supprime, dans la colonne D de ma feuille le prix s'affiche bien mais avec un chiffre après le symbole € apparait. Pourquoi ?

D'avance merci...
Akeya06 😉

 

[Akeya06]

Bonjour Pascal76, le fil, le forum


Je ne sais pas si c'est moi mais ton zip me renvoie sur une autre page du forum. Rst ce normal ?

Merci à toi...
Akeya06 😉

 

[PascalXLD]

Bah non perso je le telecharge normalement

Essaies peut-êtr clic droit sur le zip et 'enregistrer la cible du lien sous'

Message édité par: Pascal76, à: 28/02/2005 15:47

 

[Akeya06]

RE Pascal76,

Ca ne marcha pas non plus, il m'enregistre le lien de la page sur laquel ton zip me renvoie...

Bizarre non ? :unsure: Can'arrive qu'a moi des trucs pareil....

Akeya06 😉

 

[PascalXLD]

donne moi ton mail si tu veux je te l'envoie dans ta boite

 

[Akeya06]

Le voici : akeya06@yahoo.fr

Merci de ta patience...
Akeya06 😉

 

[PascalXLD]

c'est parti

Bon courage

 

[Akeya06]

Re Pascal76,

J'ai bien reçu ton mail et c'est parfait. Merci, merci, merci....

A+ sur le forum...
Akeya06 😉