Problème dans boucle for et if

**flo1411** · 12/04/2013, 17h05

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** · 12/04/2013, 19h11

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** · 15/04/2013, 10h07

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

**78chris** · 15/04/2013, 10h19

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** · 15/04/2013, 10h24

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

**78chris** · 15/04/2013, 10h57

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

**flo1411** · 15/04/2013, 11h13

Pareil avec ton code 78chris, rien ne s'affiche... Je vois vraiment pas où j'ai pu faire une erreur...

**tedo01** · 15/04/2013, 11h22

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 ?

**flo1411** · 15/04/2013, 12h10

Comme tu peux le voir, je ne fais que vérifier le contenu de chaque TB à la première ligne. C'est l'utilisateur qui rentre à la main les dates d'où cette vérification.

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
 
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 Cells(i, j).Value >= dbt And 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
                        Dim z As Integer
                        For z = 0 To 1 Step 1
                            With Cells(k + z, j)
                                .Value = CB_Type.Value
                                .Interior.Color = vbBlue
                            End With
                        Next
                    End If
                Next
            End If
        Next
 
    End If
 
End Sub

**tedo01** · 15/04/2013, 13h21

Re,
Dans quel format la date est-elle saisie par l'utilisateur ?
Si c'est avec des /, il peut y avoir mauvaise interprétation (par exemple, l'utilisateur saisit 5/4/2013 et c'est compris comme le 4 mai...)

**flo1411** · 15/04/2013, 13h33

Ben il n'y a pas de restriction pour le format de date saisi par l'utilisateur...

De plus, les TB ne disposent pas de la propriété .NumberFormat...

**tedo01** · 15/04/2013, 13h44

Re,
Ce pourait être une piste d'amélioration :-) Si l'utilisateur saisit autre chose qu'une date, le code plante.
Pour être sur de ramener la bonne date, je vois plusieurs possibilités :

Choisir un format de saisie sans les /, par exemple AAAAMMJJ ou JJMMAAAA et tranformer le nombre en date dans le code
Faire saisir la date dans 3 TB pour le jour, le mois, l'année et transformer ces 3 valeurs en date dans le code
Faire saisir la date par un contrôle calendrier

**flo1411** · 15/04/2013, 14h04

J'ai trouvé !!!
J'ai rajouté une synthaxe pour le format comme tu peux le voir ci-dessous

Merci pour ton aide ça m'a beaucoup aidé.

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
 
If TB_Dbt.Value <> Format(TB_Dbt.Value, "dd/mm/yy") And TB_Fin.Value <> Format(TB_Fin.Value, "dd/mm/yy") 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 Format(Cells(i, j).Value, "dd/mm/yy") >= dbt And Format(Cells(i, j).Value, "dd/mm/yy") <= fin Then
                        Dim k As Integer
                        k = i + 1
                        While Cells(k, 2).Value <> CB_Collaborateur.Value
                            k = k + 1
                        Wend
                        Dim z As Integer
                        For z = 0 To 1 Step 1
                            With Cells(k + z, j)
                                .Value = CB_Type.Value
                                .Interior.Color = vbBlue
                            End With
                        Next
                    End If
                Next
            End If
        Next
 
End If

Problème dans boucle for et if [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager