ComboBox dates

Version imprimable

2 pièce(s) jointe(s)

ComboBox dates

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 ?

Pièce jointe 167167 Pièce jointe 167168

Code:

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"

24/01/2015, 17h34
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 ?
24/01/2015, 20h32
dubdub87

Réponse à votre question ?

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.
24/01/2015, 20h42
casefayere

Donc j'insiste

Citation:

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

Citation:

3 - Quel code utilises-tu ?
24/01/2015, 21h08
dubdub87

Réponse

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
24/01/2015, 21h19
casefayere

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

Code:

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