Discussion :

[dmoluc]

Bonjour à tous

voici le code d'une listbox située sur un userform

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
 
Private Sub Box1_Change()
 
Dim col As Integer, dateDeb As String, dateFin As Date, compteur As Integer, Durée As Integer, DateD As Date, ColD As Integer
 
    With Sheets("Planning")
 
        dateDeb = Box1.Value
        DateD = CDate(dateDeb)
        Durée = CLng(Me.TextBox2.Text)
 
            For ColD = 5 To 131
 
                If DateD = .Cells(2, ColD) Then
                GoTo suite
                End If
 
            Next ColD
 
suite:
        col = ColD
        Durée = Durée * 2
 
            For col = ColD To 131
 
                If .Cells(2, col).Interior.Color = &HFFFFFF And compteur < Durée Then
 
                    compteur = compteur + 1
 
                ElseIf Durée = compteur Then
 
 'Lechapitre qui pêche!!!!!
 
                    If .Cells(2, col - 1) = "" Then
                        Me.TextBox1.Text = .Cells(2, col - 2) & " " & "AM"
                    ElseIf .Cells(2, col - 1) <> "" Then
                        Me.TextBox1 = .Cells(2, col - 1) & " " & "PM"
                    End If
 
                End If
 
            Next col
 
    End With
 
End Sub

si je contrôle le code pas à pas, aucun problème : la valeur de la cellule .Cells(2,col ou col - 1) est bien inscrite dans la textbox1 avec AM ou PM selon le cas, mais si j'exécute le code normalement, seul AM ou PM sont inscrit dans la textbox1

Je n'y comprend vraiment rien ; quelqu'un aurait une piste ??????

merci d'avance

[EngueEngue]

Peux tu zipper ton fichier et le poster pour que l'on regarde ?

[dmoluc]

http://mhfi0u.1fichier.com/
j'ai mis le fichier en ligne à l'adresse ci-dessus
pour lancer la macro concernée if faut aller sur la feuille planning et modifier une valeur dans la colonne Durée
sinon le code est sur l'userform "CouleurA"
encore merci pour votre aide

[EngueEngue]

Alors c'est simple il va faire l'opération de col = colD à col = 131
En pas par pas ça va te le faire avec tous.
En continu ça le fait tellement vite que tu ne vois que le 131 et en col 131 la ligne 2 est vide.. donc vide + "AM" = "AM"

Je ne comprends pas ce que tu veux faire... Mais ton code n'est pas top..

[dmoluc]

En fait au début j'ai essayé de trouver la colonne de début avec la méthode find grace à la date choisie dans la box1 mais je n'y suis pas arrivé alors je me suis rabatue vers une boucle

Code :

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

.range(.cells(2, 5),.cells(2,131)).find(DateD, lookat:=xlwhole, looking:=xlformula)

ce code fonctionne parfaitement dans une autre feuille mais est ne donne rien dans la feuille "Planning"


donc j'ai fait la boucle qui remplace la méthode Find pour trouver la colonne de départ (ColD)

Code :

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

1
2
3
4
5
6
7
8
9
For ColD = 5 To 131
 
                If DateD = .Cells(2, ColD) Then
                GoTo suite
                End If
 
            Next ColD
 
suite:

La seconde boucle me sert pour l'instant qu'a trouver la date de fin de la tache en tenant compte des jour férié qui sont en gris, donc tant que le compteur n'est pas égale à la durée je passe en revue les colonne et j'incrémente le compteur que si la cellule est de couleur blanche

Code :

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

1
2
3
If .Cells(2, col).Interior.Color = &HFFFFFF And compteur < Durée Then
 
                    compteur = compteur + 1

lorsque la durée = compteur je renseigne la textbox1 et grace à toi, je vois bien le problème et j'ai corrigé provisoirement le code en rajoutant un exit sub

Code :

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

1
2
3
4
5
6
7
8
9
ElseIf Durée = compteur Then
 
                    If .Cells(2, col - 1) = "" Then
                        Me.TextBox1.Text = .Cells(2, col - 2) & " " & "AM"
                    ElseIf .Cells(2, col - 1) <> "" Then
                        Me.TextBox1 = .Cells(2, col - 1) & " " & "PM"
                    End If
                    Exit Sub
                End If

domage que je n'arrive pas à faire fonctionner la méthode find mais par expérience je sais que les dates compliquent toujours les choses

enfin encore merci, comme d'à mon habitude l'erreur était si grosse que je ne la voyais pas

[EngueEngue]

Quand on ne sait pas ce que l'on fait ça ne marche pas... Pourquoi tu regardes dans des formules alors que c'est une donnée ?

Code :

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

ColD = .Range(.Cells(2, 5), .Cells(2, 131)).Find(DateD, lookat:=xlWhole).Column