renvoi onfos d'1 USF vers 1 feuille

Akeya06 · 27 Février 2005

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 · 27 Février 2005

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 · 27 Février 2005

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 · 27 Février 2005

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 · 27 Février 2005

bon essaies peut-être ainsi

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

PascalXLD · 27 Février 2005

oups Thierry

Pas trop mal ???

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

Bonne soirée

Bricofire · 27 Février 2005

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 · 27 Février 2005

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 · 27 Février 2005

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 !!!

Code:

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 · 27 Février 2005

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 · 27 Février 2005

Re Akeya, le Fil, le Forum

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

Code:

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 · 27 Février 2005

🙁 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 · 27 Février 2005

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 · 27 Février 2005

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 · 28 Février 2005

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]

renvoi onfos d'1 USF vers 1 feuille

Akeya06

XLDnaute Occasionnel

PascalXLD

XLDnaute Barbatruc

Akeya06

XLDnaute Occasionnel

_Thierry

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

Bricofire

Guest

Akeya06

XLDnaute Occasionnel

_Thierry

XLDnaute Barbatruc

Akeya06

XLDnaute Occasionnel

_Thierry

XLDnaute Barbatruc

Bricofire

Guest

Akeya06

XLDnaute Occasionnel

Akeya06

XLDnaute Occasionnel

Pièces jointes

PascalXLD

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

renvoi onfos d'1 USF vers 1 feuille

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Bricofire

Guest

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

Bricofire

Guest

XLDnaute Occasionnel

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency