Discussion :

[dubdub87]

bonjours,

je vous ai mis la photos du problème les lignes en bleu sont concernées il met une somme erronée à la place de la date. Pourquoi svp ?

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Private Sub cmbvalider_Click()
 
Dim ws As Worksheet
Dim newRow As Integer
 
Set ws = ActiveWorkbook.Worksheets(Feuil15.Range("B18").Value)
 
Select Case Me.ComboBox4.Value
Case "RECETTES divers"
    newRow = 2
    Do
    newRow = newRow + 1
    Loop Until ws.Cells(newRow, 1) = ""
 
    ws.Cells(newRow, 1) = DateSerial(2015, CInt(Feuil15.Range("D18").Value), CInt(Me.ComboBox3.Value)) 'date construite5
    ws.Cells(newRow, 6) = Feuil2.Cells(24, 2).Value
    ws.Cells(newRow, 2) = Feuil2.Cells(19, 2).Value
    '.....
    'suite des affectations de donnŽes
 
Case "Ventes de Tableaux"
    newRow = 7
    Do
    newRow = newRow + 1
    Loop Until ws.Cells(newRow, 1) = ""
    ws.Cells(newRow, 1) = DateSerial(2015, CInt(Feuil15.Range("D18").Value), CInt(Me.ComboBox3.Value))
    ws.Cells(newRow, 2) = Feuil15.Cells(23, 2)
    ws.Cells(newRow, 6) = Feuil15.Cells(24, 2)
    '.....
    'suite des affectations de donnŽes
 
Case "Employer"
    newRow = 22
    Do
    newRow = newRow + 1
    Loop Until ws.Cells(newRow, 1) = ""
    ws.Cells(newRow, 1) = DateSerial(2015, CInt(Feuil15.Range("D18").Value), CInt(Me.ComboBox3.Value))
    ws.Cells(newRow, 2) = Feuil15.Cells(20, 2).Value
    ws.Cells(newRow, 4) = Feuil15.Cells(21, 2).Value
    ws.Cells(newRow, 6) = Feuil15.Cells(24, 2).Value
    ws.Cells(newRow, 5) = Feuil15.Cells(25, 2).Value
 
 
    'Case....   les autres cas
 
End Select
'ws.Cells(newRow, 1).Value = Me.ComboBox1.Value
'ws.Cells(newRow, 2).Value = Me.TextBox4.Value 'objet
'ws.Cells(newRow, 6).Value = Me.TxtSommes.Value
'ws.Cells(newRow, 1).Value = Me.ComboBox3.Value 'jours
End Sub
 
 
Private Sub cmdFermer_Click()
 
Me.Hide
 
End Sub
 
Private Sub ComboBox2_Change()
Worksheets(Me.ComboBox2.Text).Activate
End Sub
 
Private Sub UserForm_Initialize()
ComboBox2.Text = "janvier "
Worksheets(Me.ComboBox2.Text).Activate
'Me.cmdmois.ControlSource = "donnees!D2"
'Me.cmdmois.RowSource = "donnees!A1:A4"

[casefayere]

Bonjour,

1 - A quoi sert de publier ta 1ere image ?
2 - Sur ta feuille, as-tu bien défini les cellules en format Date ?
3 - Quel code utilises-tu ?
4 - j'ai vu 2 combo, 1 pour le jour, l'autre pour le mois, qu'en est-il de l'année ?

[dubdub87]

En ce qui concernent la combobox ou il-y marquer (janvier) celle ci sélectionner la feuille en fonctions de son mois (sa c bon sa marche)

La combobox qui est a coté concerne le jour de la dépense ou de la recette concernée.

Elle doit se mettre dans la colonne de la date où il y a la somme en euro 42000. mais ce chiffre de 42 000 je ne sais pas d'où il vient et pourquoi il rentre dans cette colonne de date

je vous remercie de votre attention et j'espère que je suis assez explicite dans ce que je souhaite réaliser.

[casefayere]

Donc j'insiste

2 - Sur ta feuille, as-tu bien défini les cellules en format Date ?

fais un essai, dans une cellule quelconque d'une feuille quelconque, tape le même chiffre "42005", ensuite =>click droit sur la cellule => format de cellule => choisir Format Date, regardes le résultat
si le problème n'est pas là, je t'ai demandé de publier ton code

3 - Quel code utilises-tu ?

[dubdub87]

Je te remercie car en fait c'était juste le format et qu'il fallait changer et je t'avoue que je n'y ai pas pensé du tout je te remercie encore une fois et pour l'information tout le code que j'utilise pour ce que je souhaite réaliser et en dessous des deux images sur ce je te souhaite une bonne soirée il peut être à une autre fois

[casefayere]

Excuses-moi, je n'ai pas fait gaffe au code car j'aurai aussi pu te proposer

Code :

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

ws.Cells(newRow, 1) = Format(DateSerial(2015, CInt(Feuil15.Range("D18").Value), CInt(Me.ComboBox3.Value)), "dd/mm/yyyy")