Discussion :

[ananar]

Bonjour à toutes et à tous,

J'ai un classeur "Activité - 2011.xls", qui comprend un onglet par mois.

J'ai créé un Userform permettant aux utilisateurs de remplir ce classeur.

Je suis bloqué sur 1 point dans l'avancement de mon projet :

Si je sélectionne avec le DTPicker le premier jour du mois, je n'arrive pas à extraire les données dans mon tableau ???
A chaque fois la MsgBox "Vérifiez la date" apparaît.

En PJ, vous trouverez mon classeur.

PS :Merci à mercatog pour ses réponses précédentes

A vous lire.

[mayekeul]

bonjour,
dans ce que tu envoie
tout fonctionne normalement chez moi

a noter que je n'ai aucune référence à ton message d'erruer dans le code..
tu as bien envoyé le bon fichier???

[ananar]

mayekeul, bonjour,

En PJ, le bon fichier

Bien cordialement,

[mayekeul]

re

le probleme est que la variable Lig n'est pas bien mise à jour.

si je peux me permettre, voici ce que moi je ferai dans ton cas.

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
Private Sub CommandButton2_Click()
Dim wsMois As Worksheet
Dim j As Byte
Dim shIndex As Integer
 
shIndex = Sheets("janvier").Index + Month(DTPicker1) - 1
On Error GoTo NoMonth
Set wsMois = Worksheets(shIndex)
On Error GoTo 0
Lig = Day(DTPicker1) + 1
 
With wsMois
    For j = 2 To 7
        .Cells(Lig, j).Value = Me.Controls("TextBox" & j - 1).Value
    Next j
    For j = 10 To 13
        .Cells(Lig, j).Value = Me.Controls("TextBox" & j - 3).Value
    Next j
    .Cells(Lig, 15).Value = Me.TextBox11.Value
    For j = 17 To 19
        .Cells(Lig, j).Value = Me.Controls("TextBox" & j - 5).Value
    Next j
 
End With
Unload Me
 
 
Exit Sub
NoMonth:
    MsgBox "Vérifiez la date"
 
End Sub

aussi, tu supprime tout les autres événement excepté ceux des textbox

le combobox, n'est plus utile, car le mois sera directement selectionné grace à la date choisie

[ananar]

Merci beaucoup pour ces éléments de réponses.

Désormais, tout fonctionne parfaitement

Bonne fin de journée, mayekeul.

Bien cordialement,

[mayekeul]

avec plaisir

bonne fin de journée également