Discussion :

[flo1411]

Bonjour à tous,
Dans la pièce jointe ci-dessous, vous trouverez un exemple de planning avec un userform. Ce que je veux faire, c'est permettre de rentrer les congés d'un technicien. En gros, je choisis le technicien, les dates de début et fin de ses congés, je clique sur "ok" et les cellules correspondant à ses congés se remplissent. Mais mon code ne fonctionne pas tout à fait... Il remplit toutes les lignes du technicien sans se préoccuper des dates. Le voici :

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
 
Private Sub BT_Arrets_Conges_Click()
 
    If Not IsDate(TB_Dbt.Value) Or Not IsDate(TB_Fin.Value) Then
 
        LB_Attention.Visible = True
 
    Else
 
        LB_Attention.Visible = False
        Form_Eric_2.Hide
 
        Dim dbt, fin As Date
        Dim i, j, DernLigne As Integer
 
        dbt = TB_Dbt.Value
        fin = TB_Fin.Value
        DernLigne = Range("B" & Rows.Count).End(xlUp).Row
 
        For i = 6 To DernLigne Step 1
            If Cells(i, 4).NumberFormat = "d-mmm" Then
                For j = 4 To 8 Step 1
                    If dbt <= Cells(i, j).Value <= fin Then
                        Dim k As Integer
                        k = i + 1
                        While Cells(k, 2).Value <> CB_Collaborateur.Value
                            k = k + 1
                        Wend
                        With Cells(k, j)
                            .Value = CB_Type.Value
                            .Interior.Color = vbBlue
                        End With
                        With Cells(k + 1, j)
                            .Value = CB_Type.Value
                            .Interior.Color = vbBlue
                        End With
                    End If
                Next
            End If
        Next
 
    End If
 
End Sub

Voyez vous ce qui ne va pas ? Merci de votre aide !

[tedo01]

Bonjour,
Ce qui coince, c'est le test sur les dates. Il est mal interprété par VBA.
La syntaxe correcte est

Code :

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

If dbt <= Cells(i, j).Value And Cells(i, j).Value <= fin Then

[flo1411]

Bonjour,
J'ai modifié le code suite à votre remarque mais là, plus rien ne s'affiche...
Y aurait-il une autre erreur ???

[78chris]

Bonjour

Code :

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

If dbt >= Cells(i, j).Value And Cells(i, j).Value <= fin Then

Pour compris entre

Edit : erreur de ma part c'est

Code :

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

Cells(i, j).Value >= dbt And Cells(i, j).Value <= fin

Ce qui revient à la proposition de tedo01

[flo1411]

Avec ce code, il ne considère pas la date de début...

[78chris]

Bonjour

le Code de tedo01 est le bon : tu peux aussi écrire

Code :

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

Cells(i, j).Value >= dbt And Cells(i, j).Value <= fin

[tedo01]

Bonjour,
J'ai testé mon code

Code :

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

If dbt <= Cells(i, j).Value And Cells(i, j).Value <= fin Then

avec des valeurs en dur comme suit :

Code :

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

1
2
3
4
        'dbt = TB_Dbt.Value
        dbt = DateSerial(2013, 4, 3)
        'fin = TB_Fin.Value
        fin = DateSerial(2013, 4, 5)

et ça fonctionne.
Par contre, il y a peut-être un problème de format avec le contenu des TB qui serait mal converti.
Comment sont alimentées les TB ?