Discussion :

[Ben_kom]

Bonjour à tous,

Dans mon projet, j'effectue un filtre sur deux colonnes.
lorsque j'obtiens plusieurs lignes, je voudrais récupérer la valeur de la 10 et 11ième colonne et les afficher dans deux dtpickers (7 et 8).
Le filtre est déclenché par le changement de valeur d'une combobox.
une fois le filtre effectué toutes les dates de la colonnes J et K sont identiques. (cela correspond à ma date et heure de panne initiale)


Dans le cas où le filtre est vide, les deux Dtpicker sont masqués et je voudrais afficher Label13, checkbox2. J'y suis parvenu mais le résultat ne me satisfait pas complètement, vu que ces deux objets s'affichent fugitivement dans le cas ou je veux afficher les dtpickers.

un grand merci à tous.
Ben

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
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
69
70
Sub combobox3_change()
 
    CheckBox2.Visible = False
    CheckBox2.Value = False
    Label13.Visible = False
    Label11.Visible = False
    Label12.Visible = False
    DTPicker7.Visible = False
    DTPicker8.Visible = False
 
With ComboBox1
        .Clear
        .AddItem "Panne"
        .AddItem "Planifié"
        .AddItem "graissage"
        .AddItem "appoint"
        .AddItem "remplissage fût"
 
End With
 
 With Sheets("or_sup")
        .AutoFilterMode = False
        L = .Cells(.Rows.Count, "E").End(xlUp).Row
        .Range("A1:O" & L).AutoFilter Field:=5, Criteria1:=ComboBox3
        .Range("A1:O" & L).AutoFilter Field:=8, Criteria1:="", Operator:=xlOr, Criteria2:="P"
        'code de mon pote Ben :ccool:
    On Error Resume Next
    NbCells = .Range("E2:E" & L).SpecialCells(xlCellTypeVisible).Count
    If Err.Number <> 0 Then Erreur = True 'And checkb = True
    CheckBox2.Visible = True
    CheckBox2.Value = True
    Label13.Visible = True
    On Error GoTo 0
    If NbCells > 0 And Not Erreur Then
 
    result = MsgBox("La machine est déjà arrêtée.", vbOK + vbInformation, "KSigma")
   'ligne = ActiveCell.Row
 
 
    With ComboBox1
        .Clear '= True
        .AddItem "Planifié"
        .AddItem "graissage"
        .AddItem "appoint"
        .AddItem "remplissage fût"
 
    End With
     OptionButton31.Value = True
 
    'If checkb = True Then
    'CheckBox2.Visible = True
    'CheckBox2.Value = True
    'Label13.Visible = True
    'End If
 
    If Erreur = False Then
    CheckBox2.Visible = False
    CheckBox2.Value = False
    Label13.Visible = False
    Label11.Visible = True
    Label12.Visible = True
    DTPicker7.Visible = True
    DTPicker8.Visible = True
 
   'DTPicker7.Value = Sheets("or_sup").Range("j2:j" & Range("S65536").End(xlUp)).SpecialCells(xlCellTypeVisible)
    End If
    End If
End With
 
End Sub

[Daniel.C]

Bonjour,

Pour remplir les dtpickers, adapte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Dim Plage As Range
    Set Plage = .AutoFilter.Range.Offset(1).Resize(, 1)
    If Erreur = False Then
        Set Plage = Plage.Resize(Plage.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
        dtpicker7.Value = Plage.Offset(, 9)(1)
        dtpicker8.Value = Plage.Offset(, 10)(1)
    End If

Pour le clignotement, je n'arrive pas à reproduire.

[Ben_kom]

Merci Daniel
5 étoiles, c'est la classe
ça marche super
Ben