vba combobox format date

Version imprimable

1 pièce(s) jointe(s)

un petit fichier excel recettes avec un menu + 12 pages j'ai fait un userform avec un listebox avec
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 For i = 2 To 3 ' je modifierai mon i après car je travaille pour le moment sur deux feuilles janvier,fevrier pour alleger le fichier) Me.ListBox1.AddItem ThisWorkbook.Worksheets(i).Name 'mon probleme se situe sur la combobox jours si je rentre 1.2.3 etc cela 'marche nickel avec le code X = .Range("A65536").End(xlUp).Row For i = 5 To X If IsNumeric(.Cells(i, 1)) Then If Val(Me.ComboBox1) = Val(.Cells(i, 1)) Then L = i End If Next If L = 0 Then
mais je souhaite utiliser le format " jjjj jj " ma combobox là commence à faire des siennes puisque cela se sort " 01/01/09 " mon vrai problème se situe ce que je souhaite passer la colonne date en B pour pouvoir utiliser nosemaine.

j'imagine que le range est faux j'ai tenté b65536 mais je pense qu'il faut que j'utilise columm or je connais pas cette commande .et après de multiples essais je n'y arrive pas je cale :calim2:

concernant les textobox ce code s'applique sur la feuille janvier je ferais la modif lorsque mon soucis sera resolu

je joins mon fichier allégé pour plus d'explications

Bonjour,
je me suis permis de changer ton code comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton1_Click()
Dim L As Byte, X As Byte, i As Byte
    If Me.ListBox1.ListIndex = -1 Then
            MsgBox "Veuiller indiquer un mois", vbCritical
    Exit Sub
    End If
     With WS
        L = Me.ComboBox1.ListIndex + 5      
        If Me.ComboBox1.ListIndex = -1 Then
                MsgBox "Veuiller indiquer un jour", vbCritical
            Exit Sub
        End If       
        On Error Resume Next
        .Range("B" & L).Value = CDbl(.Range("B" & L).Value) + CDbl(Me.TextBox1)
        .Range("C" & L).Value = CDbl(.Range("C" & L).Value) + CDbl(Me.TextBox2)
        .Range("D" & L).Value = CDbl(.Range("D" & L).Value) + CDbl(Me.TextBox3)        
    End With
For X = 1 To 3
    Me.Controls("TextBox" & X) = ""
Next
End Sub

Edit: les dates de février sont toujours dans la colonne A
Edit2: si tu veux récupperer dans ta combo les dates de la colonne B il fallait modifier ici

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub ListBox1_Click()
Dim L As Integer
Dim i As Byte
Set WS = ThisWorkbook.Sheets(CStr(Me.ListBox1))
L = WS.Range("B65536").End(xlUp).Row   '<<<<<<---ICI
For i = 5 To L
    Me.ComboBox1.AddItem WS.Cells(i, 2)  '<<<<<<---ICI
Next
WS.Activate
End Sub

ou sans boucle

Code:

1
2
3
4
5
6
7
8
Private Sub ListBox1_Click()
Dim L As Integer
Dim i As Byte
Set WS = ThisWorkbook.Sheets(CStr(Me.ListBox1))
L = WS.Range("B65536").End(xlUp).Row                    '<< ICI colonne B
Me.ComboBox1.RowSource = WS.Name & "!B5:B" & L   '<< ICI colonne B
WS.Activate
End Sub

07/10/2009, 03h16
elgiri

pourquoi aller dans le compliqué lorsque qu'il fallait juste changer la lettre :D j'avais essayer cette option mais pas penser au decalage 2

merci :ccool:

maintenant il faut que je m'attaque aux doubles calculs car je me suis aperçu que si reprenait une date déja saisie, il rajoutais, je pense que IsNumeric me cause ce problème, il va falloir modifier ce code encore de longues nuits en perpectives avec mon autre " problème mineur"" et surtout de confort de vouloir le format jjjj jj mais bon comme cela je redécouvre le vba longtemps délaisser et en partie oublier

Ici tu veux qu'il rajoute les nouveau montant issus de ton userform à ceux existant dans ta feuille (pour le date choisie)

Code:

1
2
3
        .Range("B" & L).Value = CDbl(.Range("B" & L).Value) + CDbl(Me.TextBox1)
        .Range("C" & L).Value = CDbl(.Range("C" & L).Value) + CDbl(Me.TextBox2)
        .Range("D" & L).Value = CDbl(.Range("D" & L).Value) + CDbl(Me.TextBox3)

07/10/2009, 13h37
elgiri

bizarrement, j'ai déjà ce code dès le départ, pensant comme toi mais je me suis aperçu qu' il continu à rajouter les sommes
:koi:
07/10/2009, 13h50
mercatog
Re bonjour,
si tu ne veux pas que les nouvelles valeurs des 3TextBox s'ajoutent aux valeurs existantes dans ta feuille, tu n'as qu'à faire ceci
Code:

1 2 3 .Range("B" & L).Value = CDbl(Me.TextBox1) .Range("C" & L).Value = CDbl(Me.TextBox2) .Range("D" & L).Value = CDbl(Me.TextBox3)
07/10/2009, 14h02
elgiri

Merci je suis vraiment irrécupérable même pas vu le + :oops: et je l'ai mis en plus car avant je voulais voir l'historique des modif, j'ai effacé le code d'un coté mais pas dans l'autre à vouloir trop compliquer :bug: