Probleme de code

[Jean-Luc]

bonjour le forum,


Sur le fichier j'ai probleme de code sur la feuil (AA).
peux t'on faire dans le tableau pour que le montant s'affiche en €,
et qui classes a la fin de la saisie le total par ordre croissant.
merci [file name=vacations Benfeld_20050508173250.zip size=36363]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/vacations Benfeld_20050508173250.zip[/file]

 

[FabriceLeManuzien]

Bonjour,

Je ne trouve pas la feuille AA.

Il y a, je pense, une erreur dans la formule de la cellule H8 de chaque feuille.

Quel est le tableau où afficher les montants en € ?

Personnelement j'ai du mal à comprendre la question.

 

[Rai]

Bonsoir,

Une petite correction d'une partie du code de ton USF devrait convenir.

Private Sub cmdEnvoi_Click()
Dim AA As Integer
AA = Month(tctDate) 'N° du mois de la date choisie
Dim i As Integer
Dim WSR As Worksheet

Set WSR = Sheets(AA)

i = WSR.Range('A65536').End(xlUp).Row + 1

WSR.Range('A' & i) = txtDate
WSR.Range('B' & i) = ComboBox1
' Format(xxxxxx,'# ##0,00 €') met la valeur saisie au format Euro
WSR.Range('C' & i) = Format(txtProduit, '# ##0,00 €')
WSR.Range('D' & i) = Format(txtNumC, '# ##0,00 €')
WSR.Range('E' & i) = Format(txtNumL, '# ##0,00 €')
WSR.Range('F' & i) = Format(txtNumB, '# ##0,00 €')
WSR.Range('G' & i) = Format(TextBox1, '# ##0,00 €')

' Tri par montan total
WSR.Range('A2:H' & i).Sort Key1:=Range('C2')
Clean
End Sub

Bonne soirée

 

[Jean-Luc]

Salut Rai,Fabrice

Merci pour la reponse il y a une erreur sur la ligne

AA = Month(tctDate) 'N° du mois de la date choisie

 

[Rai]

salut,

faute de frappe ...

si tu remplaces le c par un x, ça devrait le faire.
AA = Month(txtDate)

 

[Jean-Luc]

Salut Rai,

Quand je saisi et que j'envoie les donner ne vont pas dans le tableau.