deux boucle VBA

Version imprimable

deux boucle VBA

Bonjour,

J'ai un fichier planning avec les dates de l'année de J à CO
les dates de début de tâches de E12 à E(fin des tâches) et les dates de fin de tâches de F12 à F(fin des tâches).

Je veux que le fichier me colore en vert les cases comprises entre la date de début et la date de fin sans prendre en compte les samedi, dimanche et jour férié.
Puis je passe à la ligne suivante et ainsi de suite.

J'arrive à le faire sur une ligne mais je ne sais pas comment passer à la ligne suivante. (j'ai mis en noire les samedi, dimanche et jour férié)

pouvez vous m'aider ?

voila mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Worksheet_Change(ByVal target As Range) For c = 10 To 50 '(50 pour le test mais j'irai ensuite jusqu'à la case qui contient 31/12/2018) If Cells(3, c) >= Cells(12, 5) And Cells(3, c) <= Cells(12, 6) And Cells(12, c).Interior.Color <> RGB(0, 0, 0) Then Cells(12, c).Interior.Color = RGB(0, 255, 0) Else If Cells(12, c).Interior.Color <> RGB(0, 0, 0) Then Cells(12, c).Interior.Color = RGB(255, 255, 255) Else End If End If Next End Sub
Merci !

09/04/2018, 15h55
a_diard

il te suffit d'ajouter un

for ligne = x to y

next

avant le for c

Merci a_diard !

Du coup j'ai mis :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub Worksheet_Change(ByVal target As Range) For l = 12 To 100 For c = 10 To 374 If Cells(3, c) >= Cells(l, 5) And Cells(3, c) <= Cells(l, 6) And Cells(l, c).Interior.Color <> RGB(217, 217, 217) Then Cells(l, c).Interior.Color = RGB(146, 208, 80) Else If Cells(l, c).Interior.Color <> RGB(217, 217, 217) Then Cells(l, c).Interior.Color = RGB(255, 255, 255) Else End If End If Next c Next l End End Sub
le code marche très bien, par contre c'est devenu très lent à chaque fois que je modifie une case.

Est ce qu'il y a une méthode pour optimiser la formule ou alors ne faire le calcul que si je modifie les case en E ?

Merci.

10/04/2018, 09h14
Menhir

Citation:

Envoyé par Drukam

le code marche très bien, par contre c'est devenu très lent à chaque fois que je modifie une case.

C'est un peu logique vu qu'à chaque changement ta macro fait environ 1,5 millions de tests.

Citation:

Est ce qu'il y a une méthode pour optimiser la formule ou alors ne faire le calcul que si je modifie les case en E ?

Tu ne mets pas ton code dans une macro évènementielle mais dans une macro classique que tu lances manuellement quand tu as terminé tes modifications.

Ou tu ne traites que la ligne concernée par la modification en utilisant le paramètre target de l'évènement.
Tu vires For l = 12 To 100 et tu le remplaces par l = target.Row.
10/04/2018, 10h04
Drukam

c'est parfait ça marche très bien, j'ai gardé mon code d'origine à l'ouverture du classeur et ensuite j'ai mis l = target.row à chaque changement.

Merci !!
10/04/2018, 10h12
Menhir

Citation:

Envoyé par Drukam

j'ai gardé mon code d'origine à l'ouverture du classeur

Je n'en comprends pas l'intérêt...
11/04/2018, 13h31
Drukam

La première fois que je l'ai créé j'ai du faire tout d'un coup car les dates étaient déja rentrées mais c'est vrai que sur un fichier vierge le planning sera mis à jour au fur et à mesure que je créé les dates.

Donc je n'aurai pas besoin du calcul à l'ouverture.
12/04/2018, 09h47
Menhir

Citation:

Envoyé par Drukam

La première fois que je l'ai créé j'ai du faire tout d'un coup car les dates étaient déja rentrées mais c'est vrai que sur un fichier vierge le planning sera mis à jour au fur et à mesure que je créé les dates.

Donc je n'aurai pas besoin du calcul à l'ouverture.

Je ne suis pas vraiment de ton avis.
Il suffit de mettre la macro dans un module standard et de le lancer une fois.
Inutile de le relancer à chaque ouverture du fichier puisque, après la première mise en forme, le fichier est remis à jour à chaque modification.
Le lancer à chaque ouverture ne fera qu'alourdir inutilement ton fichier.
13/04/2018, 11h08
Drukam

Oui tu as raison je l'ai enlevé et en plus ca m'évite d'avoir des lignes de code partout !

Par contre j'ai un autre problème, j'ai un bouton sur la feuille 2 qui copie une ligne de la feuille 2 et la colle dans la feuille 1 puis supprime les lignes.

Elle marche très bien si je n'ai que cette macro. Mais sur ma feuille 1 j'ai un

Code:

Private Sub worksheet_change(ByVal target As Range)

du coup ma macro bouton se lance et dès qu'elle copie la ligne dans la feuille 1, elle s'arrête et passe sur le private sub.

Comment faire pour l'obliger à se terminer avant de passer au private sub ?
13/04/2018, 12h04
a_diard
au début de ta macro liée au bouton sur la feuille 2

tu peux ajouter
Code:

1 2 3 4 5 Application.EnableEvents = True puis Application.EnableEvents = false
en fin de code

ceci désactive les macros événementielles

bonjour
je sais pas pour vous mais perso il y a un truc qui me gene
Code:

1 2 3 4 5 If Cells(3, c) >= Cells(l, 5) And Cells(3, c) <= Cells(l, 6) And Cells(l, c).Interior.Color <> RGB(217, 217, 217) Then Cells(l, c).Interior.Color = RGB(146, 208, 80) Else If Cells(l, c).Interior.Color <> RGB(217, 217, 217) Then Cells(l, c).Interior.Color = RGB(255, 255, 255)
la derniere condition es le rgb (217,217,217) et dans le else le 217 devient 255
ma question est donc pourquoi ne pas mettre 255 dans la condition

Code:

Cells(l, c).Interior.Color = iif( Cells(3, c) >= Cells(l, 5) And Cells(3, c) <= Cells(l, 6) And Cells(l, c).Interior.Color <> RGB(255, 255, 255),RGB(146, 208, 80), RGB(255, 255, 255))

15/04/2018, 16h14
Drukam

a_diard

merci à toi ca marche par contre j'ai mis :

Application.EnableEvents = False en début de code et Application.EnableEvents = True en fin de code.

patricktoulon

Ma formule c'est si ma case est comprise entre deux dates et que la couleur de ma case n'est pas grise (weekend et férié) alors la colorier en vert sinon la mettre en blanc sauf si celle ci est grise.

si je comprend bien ta formule, elle ferai si ma case est comprise entre deux dates et que la couleur de ma case n'est pas verte, grise ou blanche alors la colorier.
Mais je dois colorier les cases blanche en verte si elles sont entre mes deux dates.

Je ne sais pas si je suis super claire :lol: