Comment réaliser un planning opérationnel en VBA

Bonjour,

J'ai réalisé ce planning opérationnel pour m'aider dans ma gestion de projet. Le HIC c'est que je le trouve lent et le MFC n'aime pas spécialement l'insertion de ligne ou le copier/coller de cellule. En effet, la mise en forme n'est pas appliquée et le copier/coller rajoute des règles de MFC ce qui peut vite devenir lourd à gérer quand le fichier devient collaboratif.

Du coup, je parcours internet depuis 2 jours et j'ai remarqué que le code VBA pourrait simplifier et optimiser le MFC. Le problème, c'est que je ne connais pas grand chose en VBA et n'arrive pas à trouver un code VBA qui s'applique à mon tableau. Alors j'ai commencé à regarder ce que l'on trouvait sur les sites et les tutos. Mais je n'y arrive pas...
Pourtant pas sur que ce soit si compliqué que celà...

Mon objectif :
Sur un séléction de C10:MN61 je souhaiterais appliquer une couleur de cellule+texte aux cellules contenant les mots indiqués dans la colonne B (DIAG, DCE, Passation de marché, mise en ligne...)

Avec le MFC, je dois rédigé une régle par condition alors qu'avec le VBA cela me parait plus approprié.

Exception : Je souhaiterais que les colonnes grisées (WE et jours fériés) soient prioritaires sur les conditions de la colonne B. C'est une MFC avec formule.

Donc si quelqu'un peut prendre un peu de temps et m'expliquer, cela serait vraiment simpa.

:D

Pièce jointe 326849

J'ai réalisé un outil planning a mon travail

pour répondre a la partie jour fériés ceci peut être utiliser

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub jours()   For colonne = 6 To 256 jour = Application.WorksheetFunction.Weekday(Cells(1, colonne)) If jour = 1 Or jour = 2 Then Range(Cells(10, colonne), Cells(61, colonne)).Interior.ColorIndex = 15 Else Range(Cells(10, colonne), Cells(61, colonne)).Interior.ColorIndex = xlNone End If Next End Sub

---

Je suis parti du principe que ton planning est figé en nombre de lignes et de colonnes.

Ceci devrait pouvoir de débloquer, je saurais faire le reste également

redit moi si tu veux que j'approfondisse.

J'ai été un peu plus loin

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

Sub jours() Range("C10:IV61").Interior.ColorIndex = xlNone 'efface les formats dans le planning For ligne = 10 To 61 travail = Cells(ligne, 3).Value Select Case travail Case "DIAG" couleur = 22 Case "Passation du marché" couleur = 23 Case "mise en ligne" couleur = 24 Case "mise en ligne" couleur = 25 Case Else couleur = 0 End Select If couleur =<> 0 Then 'pour chaque ligne colorie la ligne en fonction du travail selectionné Range(Cells(ligne, 6), Cells(ligne, 256)).Interior.ColorIndex = couleur End If Next For colonne = 6 To 256 'colorie en gris les jours fériés. jour = Application.WorksheetFunction.Weekday(Cells(1, colonne)) If jour = 1 Or jour = 2 Then Range(Cells(10, colonne), Cells(61, colonne)).Interior.ColorIndex = 15 End If Next End Sub

---

tu peux ajouter autant de case que nécessaire.

ça m'étonnerais que ça réponde exactement à ton besoin

mais ça peut peut être t'aider à démarrer.

Bonne journée.

Merci pour l'aide apporté mais je n'arrive pas à inserer le code dans le VBA.

Il me marque "Erreur syntaxe"

Pièce jointe 326889

Citation:

---

Envoyé par Tartalonion

Donc si quelqu'un peut prendre un peu de temps et m'expliquer, cela serait vraiment simpa.

---

Citation:

---

Envoyé par Tartalonion

Il me marque "Erreur syntaxe"

---

Si tu ne peut pas corriger cette erreur très simple, je pense que ta demande va au delà de simples "explications".

Citation:

---

Envoyé par Menhir

Si tu ne peut pas corriger cette erreur très simple, je pense que ta demande va au delà de simples "explications".

---

En effet, je ne connais pas grand chose en VBA et je souhaiterais apprendre.

Merci pour l'aide apporté

Citation:

---

Envoyé par Tartalonion

En effet, je ne connais pas grand chose en VBA et je souhaiterais apprendre.

---

Dans ce cas, je te conseille de commencer par les bases : http://bidou.developpez.com/article/VBA/