Discussion :

[GhislainG]

Bonjour,

J'ai besoin d'aide car je suis bloqué :

Détail :
J'ai une base de donnée dans une feuille appelé Data
La première colonne contient une date en format 01/01/2017
Les autres sont des infos sur nos produits (ex : référence de la pièce, date de fabrication, sur quels postes la pièce a été fabriquée....)

J'ai ensuite une autre feuille excel appelé Bilanq
L'objectif est lorsque je sélectionne une date à partir du DTPicker1 de mon userform, je copie toutes les lignes contenant la date sélectionner de la feuille Data pour les coller dans la feuille Bilanq.

Pour activer la macro, j'ai un bouton CommandButton1 /

Il doit me manquer quelque chose mais je ne vois pas quoi.... (je suis autodidacte en vba depuis quelques mois donc je ne suis pas expert^^)

Merci de votre aide,
voici le code ci-dessous

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
Private Sub CommandButton1_Click()
Dim K
Dim j
Dim i
j = 2
 
K = Worksheets("Data").Range("A100000").End(xlUp).Row
 
 
 
Worksheets("bilanq").Range("A2:M1000").Clear
 
    For i = 2 To K
            If Worksheets("Data").Cells(i, 1) = TextBox3.Value Then  'la textbox3 renvoie la valeur de la date car si je met DTPicker1.Value cela ne marche pas...
 
           Worksheets("bilanq").Cells(j, 2) = Worksheets("Data").Cells(i, 5).Value
           Worksheets("bilan").Cells(j, 3) = Worksheets("Data").Cells(i, 6).Value
           Worksheets("bilan").Cells(j, 4) = Worksheets("Data").Cells(i, 10).Value
           Worksheets("bilan").Cells(j, 5) = Worksheets("Data").Cells(i, 11).Value
           Worksheets("bilan").Cells(j, 6) = Worksheets("Data").Cells(i, 12).Value
           Worksheets("bilan").Cells(j, 7) = Worksheets("Data").Cells(i, 13).Value
           Worksheets("bilan").Cells(j, 8) = Worksheets("Data").Cells(i, 14).Value
           Worksheets("bilan").Cells(j, 9) = Worksheets("Data").Cells(i, 15).Value
           Worksheets("bilan").Cells(j, 10) = Worksheets("Data").Cells(i, 16).Value
           Worksheets("bilan").Cells(j, 11) = Worksheets("Data").Cells(i, 17).Value
 
            j = j + 1
            End If
    Next
 
Worksheets("Bilanq").Activate
End Sub
 
 
Private Sub DTPicker1_change()
TextBox3 = DTPicker1.Value
 
End Sub