Problème de planning

[breitzou]

Bonjour le forum,🙂
je cherche une solution pour creer des emplois du temps hebdomadaires personnels que je peux ensuite synthétiser sur un seul planning (une sorte de récapitulatif en somme).
J'ai cherché des fichiers excel déjà existants sur Excel Downloads mais ils ne sont pas adaptés à ce que je recherche même s'ils sont très intéressants. J'ai mis en pièce jointe le fichier avec toutes l'explication.
Ah oui j'allais oublier, je suis sur excel 2003.😀

Merci de votre aide😉

Breitzou

 

[breitzou]

Re : Problème de planning

Re🙂

merci JNP. J'essaie de suite.

Si j'ai toujours le problème sur la couleur de fond, j'essaie de voir ce qui ne va pas et je te tiens au courant.
Merci encore.🙂

Breitzou

 

[breitzou]

Re : Problème de planning

Re🙂

Cette fois-ci, la couleur de fond de cellule est bien prise en compte donc pas de pb à ce niveau là.😀
en revanche, l'appelle de la mise à jour fonctionne mais une seule fois.😕 L'erreur relevée apparaît au niveau de ".Merge" en rouge ci-dessous.

Private Sub Worksheet_Deactivate()
Call MàJ_Patrick
End Sub

Sub MàJ_Patrick()
Dim I As Integer, Plage As Range, J As Integer
For J = 4 To 8
I = 90
Feuil5.Select
Cells(I, J).Select
While I < 223
Selection.Offset(1, 0).Select
If Selection.Rows.Count > 1 Then 'cellule fusionnée
With Feuil3
Set Plage = .Range(.Cells(4 + (J - 4) * 9, I - 86), .Cells(4 + (J - 4) * 9, I - 87 + Selection.Rows.Count))
End With
With Plage
.Merge.Value = Selection.Value
.Interior.Color = Selection.Interior.Color
.Font.Color = Selection.Font.Color
End With
End If
I = Selection.Row
Wend
Next J
End Sub



Je ne vois pas ce qui ne va pas puisque le code fonctionne la première fois.
C'est uniquement lorsque je rentre un autre créneaux que l'erreur est relevée.😕

Merci de ton aide JNP

Breitzou

 

[breitzou]

Re : Problème de planning

Re🙂
correctif de la copie du code😀

Sub MàJ_Patrick()
Dim I As Integer, Plage As Range, J As Integer
For J = 4 To 8
I = 90
Feuil5.Select
Cells(I, J).Select
While I < 223
Selection.Offset(1, 0).Select
If Selection.Rows.Count > 1 Then 'cellule fusionnée
With Feuil3
Set Plage = .Range(.Cells(4 + (J - 4) * 9, I - 86), .Cells(4 + (J - 4) * 9, I - 87 + Selection.Rows.Count))
End With
With Plage
.Merge
.Value = Selection.Value
.Interior.Color = Selection.Interior.Color
.Font.Color = Selection.Font.Color
End With
End If
I = Selection.Row
Wend
Next J
End Sub

Breitzou

 

[leenco12]

Re : Problème de planning

Merci JNP

Je ne connaissais pas cette fonction (et oui connaissance très limitées sur excel 😀).
J'essaie tout de suite.😉
Merci encore et bonne soirée

A+

Breitzou

Bonjour Breitzou, JNP,

Je m’excuse par avance pour mon intrusion sur ce fil.
J’ai réalisé un planning sur une seule feuille, mais je ne sais pas si mon idée peut vous convenir.
Cordialement,

 

[breitzou]

Re : Problème de planning

Re

Cette fois-ci, la couleur de fond de cellule est bien prise en compte donc pas de pb à ce niveau là.
en revanche, la mise à jour fonctionne mais une seule fois. L'erreur relevée apparaît au niveau de ".Merge" en rouge ci-dessous. Puis impossible de revenir sur l'onglet "Bilan".

Private Sub Worksheet_Deactivate()
Call MàJ_Patrick
End Sub

Sub MàJ_Patrick()
Dim I As Integer, Plage As Range, J As Integer
For J = 4 To 8
I = 90
Feuil5.Select
Cells(I, J).Select
While I < 223
Selection.Offset(1, 0).Select
If Selection.Rows.Count > 1 Then 'cellule fusionnée
With Feuil3
Set Plage = .Range(.Cells(4 + (J - 4) * 9, I - 86), .Cells(4 + (J - 4) * 9, I - 87 + Selection.Rows.Count))
End With
With Plage
.Merge
.Value = Selection.Value
.Interior.Color = Selection.Interior.Color
.Font.Color = Selection.Font.Color
End With
End If
I = Selection.Row
Wend
Next J
End Sub



Je ne vois pas ce qui ne va pas puisque le code fonctionne la première fois.
C'est uniquement lorsque je rentre un autre créneaux que l'erreur est relevée.

Sinon, Leenco12, je te remercie, mais je crois que tu as oublié la pièce jointe.😉

Merci de votre aide

Breitzou

 

[JNP]

Re : Problème de planning

Re 🙂,
Comme dit précédement, il n'y a pas d'effacement préalable, donc la fusion d'une fusion ne doit pas passer...
Donc il faudrait défusionner, effacer le contenu des cellules et les repasser en fond blanc avant d'appliquer les MàJ 😉.
Le but de mon code était de te montrer que c'était faisable, pas d'avoir tout fini 😛...
Quand j'ai travaillé sur le fichier, je me suis pris la tête avec des macros qui reprotégeaient les feuilles, des lignes tellement proches qu'on pouvait pas voir leur numéro, d'ailleurs il y a fallu que fasse réafficher les lignes et colonnes... Bref, j'attends que tu repartes sur un fichier neuf avant d'aller plus loin 😀.
Bon courage 😎

 

[breitzou]

Re : Problème de planning

Re🙂

désolé JNP, je n'avais pas compris le fait qu'il fallait défusionner avant de refaire les MaJ😛. Merci en tout cas pour le temps passé à m'aider. A priori, pour reprendre ton expression, tu t'es effectivement bien pris la tête afin de m'apporter une solution!!! Merci encore.😉

A+

Breitzou