Comportement incompréensible du code !

Version imprimable

Bonjour à tous

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

Code:

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

14/11/2013, 09h34
EngueEngue

Peux tu zipper ton fichier et le poster pour que l'on regarde ?
14/11/2013, 09h53
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
14/11/2013, 10h06
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..

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:

.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:

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:

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:

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 :(

14/11/2013, 11h04
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:

ColD = .Range(.Cells(2, 5), .Cells(2, 131)).Find(DateD, lookat:=xlWhole).Column
14/11/2013, 15h45
dmoluc

dans le tableau le format de date "lundi 11 novembre 2013" et avec simplement xlwhole ça ne fonctionne pas
j'ai pas mal lutté dans une autre feuille pour trouver la date qui était sous le même format et j'ai due utiliser xlformula pour que ça fonctionne
hélas ça ne fonctionne pas dans cette feuille, mais bon, une boucle de plus ou de moins ça ne dérange pas mon PC ...
14/11/2013, 15h47
EngueEngue

Chez moi, sur ton fichier, ça marche parfaitement.. Vérifie que tu l'as bien recopié.
14/11/2013, 16h40
dmoluc

oui j'avais sans doute fait une erreur de syntaxe, maintenant ça fonctionne mais j'ai quand même garder ma boucle :ccool:

http://qnksb1.1fichier.com/

par contre maintenant j'ai une sommeprod qui ne veut pas fonctionnée :(
les colonnes concernées sont en format perso mais ça n'a pas l'air de venir de là si je fait un essais ailleurs sur la feuille aucun problème, même avec des formats perso. Je reste dans l'expectative

Code:

=SI(SOMME(E39:F45)=0;"";SOMMEPROD(E39:F45;$C$39:$C$45))

je ne vois pas la bêtise que j'ai due faire
14/11/2013, 16h46
EngueEngue

Tes cellules sont fusionnées... F39:F45 n'existe plus donc déclanche une erreur.
=SI(SOMME(E39:E45)=0;"";SOMMEPROD(E39:E45;$C$39:$C$45))
14/11/2013, 16h55
dmoluc

Décidément c'est pas le jour, j'aurais du y penser tous seul, mais avec la crève que je tient j'ai du laisser mon cerveau à la maison ce matin
alors un grand merci pour toute cette aide
A+ :ccool: