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 😉

 

[PascalXLD]

Bonjour

essaies ceci

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(Textprix2.Value, '# ##0.00', '€')

End With

End Sub

Bonne soirée

 

[Akeya06]

Bonsoir Pascal76 et le forum,

Décidement, merci encore pour ton aide, mais ca ne passe toujours pas. J'ai toujours le meme souci. Il me sélectionne cette ligne avec le meme message.

:unsure:
Akeya06 😉

 

[_Thierry]

Bonjour, enfin plutot bonsoir Akeya, Pascal, le Forum

En fait, je ne me préoccupe que très rarement du format des cellules dans la feuille Excel... (je formatte la colonne adéquate recevant les données, ce que l'on peut aussi faire par VBA au cas où, avec la propriété 'NumberFormat ')

Ce dont je m'assure par contre c'est bien d'avoir une valeur numérique dans ma TextBox avec par exemple :

.Cells(derlgn, 4) = Cdbl(Textprix2.Value)

Evidemment si on a un Utilisateur qui tape n'importe quoi il faut appliquer un gestionnaire d'erreur...

Bonne soirée
@+Thierry

Message édité par: _Thierry, à: 27/02/2005 20:09

 

[PascalXLD]

bon essaies peut-être ainsi

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

 

[PascalXLD]

oups Thierry

Pas trop mal ???

Mais à peu près même résultat

Bonne soirée

 

[Bricofire]

Bonsoir le fil,

Si tu essayais avec cette syntaxe dans ta ligne qui pose pb ?

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

selon ton premier post... ?

codialement,

Bfr 🙂

 

[Akeya06]

Bonsoir à vous 2, et au forum,

Une fois de plus merci à vous 2, car vous venez souvent à mon aide, sans oublier ChTi160 qui m'a bien aider aussi.

Ton code @+Thierry marche très bien, le second de Pascal76 ne marche pas chez moi, sans vouloir t'offenser, car vu mon niveau, je ne me le permettrai pas. Une petite précision pour @+Thierry, si je m'interresse au format de la feuille, c'est que je dois effectuer un calcul à partir de la cellule.

Voilà, voilà....
Merci et bonne soirée à tous....
Akeya06 😉

 

[_Thierry]

Re bonsoir tout le Monde,

Alors pour le Format essaies comme ceci, Akeya, ça te coûtera l'apéro dans un café monégasque !!!

Sub FormattingNumeric()
Dim TheAmount As Double

If Not IsNumeric(TextPrix2) Then Exit Sub

TheAmount = TextPrix2

    With Cells(derlgn, 4)
    .Value = TheAmount
    .NumberFormat = '#,##0.00 [$€-2];[Red]-#,##0.00[$€-2]'
    End With
End Sub

Bonne soirée (Spy Game sur la 1)
@+Thierry

 

[Akeya06]

Re @+Thierry,

Pour ce qui est de ton 1er code, celui ci marche très bien. Et pour ce qui est de l'apéro, il faudra donc convenir d'une date et ce sera avec grand plaisir...

Et puisque je te tiens, oui je sais, j'abuse, comment puis faire pour, créer une nouvelle feuille dans mon classeur et la renommer à partir d'1 USF ?

Merci...
Akeya06 😉

 

[_Thierry]

Re Akeya, le Fil, le Forum

Vite fait en regardant le films et sans gestion d'erreur...

Sub SheetsAdd()
Dim TheSheet As String

TheSheet = InputBox('Indiquez le nom de feuille')

Worksheets.Add after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = TheSheet
End Sub

Bonne soirée et bon film
@+Thierry

 

[Bricofire]

🙁 Oups !
Bonsoir & excuses à tous,

on m'appelait pour dînet et j'ai fait un copier coller un peu rapide, essayes en changeant la ligne de ton premier post avec celle-ci bien sûr... :
.Cells(derlgn, 4).NumberFormat = ('#,##0.00 €')

Juste pour le fun, car sinon je ne vois pas pourquoi ça ne marcherai pas et qu'il n'est pas question de rivaliser avec the best _Thierry, sauf que pour les conseils de films, vaut peut-être mieux éviter de signaler les apparitions de Robert R. sur l'écran, car s'il se défend de savoir pourquoi ces dames le trouvent toujours séduisant, les XLDiennes, Elles, elles savent et il faudra pas mal de lignes de code pour remonter la pente après (surtout qu'il y a Brad P.aussi).. 🙂
Bon, pour échapper au nouveau Zop, je conclue avec un supplément ...

Bonne soirée multi-tâche (film & XLD)

Bfr
C'est l'histoire du gars qui forme un jeune débutant dans un supermarché
Un premier client arrive... ' Regarde-moi bien aller ', dit le senior en s'avançant vers le client:
Le senior : ' Puis-je vous aider ? '
Le client : ' Certainement. Je voudrais un tuyau d'arrosage, s.v.p. '
Le senior : ' Pas de problème. 5, 10 ou 15 mètres? '
Le client : ' Hmmm. 15 mètres.
Le senior : ' Parfait. Une tondeuse avec ça ?
Le client : ' Heuh ? '
Le senior : ' Ben oui ! Vous allez arroser votre gazon, il va pousser. Il va bien falloir le tondre ! '
Le client : ' Ah oui ! Alors je l'achète '.

Le junior est impressionné par son collègue.
Un deuxième client arrive... Le senior : ' On peut vous aider ? '
Le client : ' Oui. Je voudrais de l'engrais. '
Le senior : ' Pas de problème. 2, 5 ou 10 kgs ? '
Le client : ' Je vais prendre 10 kgs.'
Le senior : ' Parfait. Une tondeuse avec ça ?'
Le client : ' Pardon? '
Le senior : ' Ben oui ! Vous allez engraisser votre gazon. Il va pousser et il va bien falloir le tondre! '
Le client : ' Ça a du bon sens. Je vais la prendre. '
Le jeune est en grande admiration envers son collègue.
Un troisième client arrive... Le senior dit au jeune :
' Il y a un autre client qui arrive. Je te laisse celui-là. Vas-y petit !'
Le junior se précipite vers le client.
Le junior : ' Bonjour monsieur. Je peux vous aider ? '
Le client : ' Je cherche des serviettes hygiéniques pour ma femme.
Le junior : ' Pas de problème. Une boîte de 10, 20 ou 30 ? '
Le client : ' Hmmm. Elle va en avoir besoin de 30.
Le junior : ' Parfait ! Une tondeuse avec ça ?
Le client : ' Quoi ? '
Le junior : ' Ben oui ! De toute façon, ta fin de semaine est foutue. T'es bon pour t'occuper à tondre le gazon!
---------------------------------------------

 

[Akeya06]

Bonsoir Bricofore et re à tous,

Merci pour le code, je le bien au chaud et quand à l'histoire, elle est excellente...

A+ sur le forum...
Akeya06 😉

 

[Akeya06]

Re le fil, le forum

Juste pour finioler, comment faut il faire pour que lorsque je crée un onglet à partir d'un USF, la combolist qui est dedans se mette à jour sans avoir besoin de fermer l'USF. Ci joint mon petit fichier.

Merci à vous....
Akeya06 😉


[file name=création onglet_20050227234311.zip size=12997]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/création onglet_20050227234311.zip[/file]

 

[PascalXLD]

Bonjour

Voilà ton fichier modifié

Je t'ai rajouté un test d'erreur si tu essaies de créer une feuille avec un nom d'onglet existant.

Bonne journée

[file name=création onglet_20050228080958.zip size=12679]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/création onglet_20050228080958.zip[/file]