Discussion :

[elgiri]

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

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

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