Planning auto dates / cellules coloriées

[dav123]

Bonjour le forum

Lorsque je rempli mon planning et lorsque je colorie des cellules je souhaiterais que les dates de début et fin se remplisse automatiquement
En p.j mon exemple
Avez vous une solution
Par avance merci de votre aide

 

[camarchepas]

Re : Planning auto dates / cellules coloriées

Bonsoir,

Sympa comme exercice ,

Si pas d'aide, je te proposerais une solution en vba bientot

 

[xhudi69]

Re : Planning auto dates / cellules coloriées

Bonsoir le Forum,
dav123, camarchepas

tu peux t'inspirer de ce fichier. Il faut dblclicker dans les cellules où il y a des dates.

@+

 

[dav123]

Re : Planning auto dates / cellules coloriées

Bonjour xhudi69, camarchepas, le forum

xhudi69
Merci pour ta réponse mais elle n'est pas adaptée à mon problème => ce que je souhaite c'est que ce soit les cellules coloriées qui définissent les dates de début et fin et avec le fichier que tu m'as communiqué c'est différent

camarchepas
Si tu as une solution je suis preneur et t'en remercie par avance

 

[camarchepas]

Re : Planning auto dates / cellules coloriées

Bonsoir ,

Un gros problème de dispo , mais voici pour le calcul des dates.

Mode d'emploi , mise en couleur des cellules puis double clic souris pour valider et voilà :

Le code est dans la feuil1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


Dim DateDébut As String, DateFin As String
Dim Cellule As Range, Fin As Range
 
    For Each Cellule In Range("L" & Target.Row & ":IV" & Target.Row)
      If Cellule.Cells.Interior.ColorIndex = 44 And DateDébut = "" Then DateDébut = CDate(Range(Split(Cellule.Cells.Address, "$")(1) & 11).Value)
      If Cellule.Cells.Interior.ColorIndex = 44 And DateDébut <> "" Then DateFin = CDate(Range(Split(Cellule.Cells.Address, "$")(1) & 11).Value)
    Next
   Range("H" & Target.Row) = CDate(DateDébut)
   Range("I" & Target.Row) = CDate(DateFin)
Cancel = True

End Sub

 

[dav123]

Re : Planning auto dates / cellules coloriées

Bonsoir camarchepas, le forum

Merci beaucoup, c'est tout a fait ce que je souhaitais par contre est-il possible d'avoir le choix sur la couleur de remplissage car si j'utilise du orange ça fonctionne mais avec d'autres couleurs c'est Nok
Avez vous une solution ?

 

[camarchepas]

Re : Planning auto dates / cellules coloriées

Ok ,

comme cela il suffit de modifier un pneu l'équation

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


Dim DateDébut As String, DateFin As String
Dim Cellule As Range, Fin As Range
 
    For Each Cellule In Range("L" & Target.Row & ":IV" & Target.Row)
      If Cellule.Cells.Interior.ColorIndex > 0 And DateDébut = "" Then DateDébut = CDate(Range(Split(Cellule.Cells.Address, "$")(1) & 11).Value)
      If Cellule.Cells.Interior.ColorIndex > 0 And DateDébut <> "" Then DateFin = CDate(Range(Split(Cellule.Cells.Address, "$")(1) & 11).Value)
    Next
   Range("H" & Target.Row) = CDate(DateDébut)
   Range("I" & Target.Row) = CDate(DateFin)
Cancel = True

End Sub

 

[Regueiro]

Re : Planning auto dates / cellules coloriées

Bonsoir à Tous.
Je m'introduis dans votre débat, car je suis actuellement dans les planning.
Vous pouvez voir mon Post :
https://www.excel-downloads.com/threads/planning-avec-mfc.195358/
Mon Planning pourras peut-être t'inspirer, tu peux le télécharger
Il est fait par MFC ( Mise en Forme Conditionnelle )

Je vais essayer de m'inspirer du code de CamarchePas pour faire ça en VBA.
En colonne C tu peux Mettre P1 = couleur Rouge ou P2 = Couleur Noire pour les jalons.
Ceci pour l'activité principale.
En suite S1 = Bleu ou S2 = Rouge pour les activités secondaires.
Je travaille actuellement pour rajouter d'autre couleur.
Tu as également une barre d'avancement des travaux à mettre en % en colonne I.

PS Camarchepas auriez-vous éventuellement une idée pour mes problèmes sur Mon Posr

MErci à Vous
A+

 

[dav123]

Re : Planning auto dates / cellules coloriées

Bonjour camarchepas

Merci de ton aide mais j'ai encore un petit soucis
1er point :
La 1ère fois ça fonctionne bien, par contre si j'efface la couleur de la cellule et colorie d'autres cellules les dates ne correspondent pas aux nouvelles cellules coloriées
2ème point :
Est-il possible d'avoir un code qui permet de mettre à jour en une seule fois toutes les dates en fonction des nouvelles cellules coloriés

 

[camarchepas]

Re : Planning auto dates / cellules coloriées

Bonsoir,

Essai avec cette modification :

tu colories tous ce qu'il y a besoin , puis un double clic (l'on pourrait donc y mettre un bouton , peut être plus sympa.

 

[dav123]

Re : Planning auto dates / cellules coloriées

Bonsoir camarchepas, le forum

Merci beaucoup pour ton aide c'est parfait.
Pour le bouton effectivement "cerise sur le gâteau". J'essaie de le faire et si j'ai un problème je solliciterais de nouveau ton aide

 

[dav123]

Re : Planning auto dates / cellules coloriées

Bonsoir camarchepas, le forum

Je reviens vers vous. J'ai essayé de créer 2 boutons.
-1 bouton pour effacer les dates de début, de fin et les cellules coloriées
-1 pour faire la mise à jour du planning en focntion des cellules coloriés (au lieu du double clic)
Mais ça ne fonctionne pas. Peux tu stp m'aider une nouvelle fois
Je te joins ce que j'ai éssayé de faire

 

[camarchepas]

Re : Planning auto dates / cellules coloriées

Bonjour Dave,

Voilà , les boutons sont ok ,

J'ai vu un ptit truc donc corrigé .

 

[dav123]

Re : Planning auto dates / cellules coloriées

Bonjour camarchepas

Vraiment merci ,c'est génial
j'ai encore une dernière demande à vous faire ensuite ce sera parfait
je souhaiterais lors de la mise à jour du planning (avec le bouton) faire apparaitre le commentaire présent dans la colonne C en debut de chaque cellule coloriée
Ceci afin d'avoir une meilleur visibilité à la lecture du planning

 

[dav123]

Re : Planning auto dates / cellules coloriées

Bonsoir camarchepas, le forum

Pouvez vous svp m'aider sur mon post 14
Sans votre aide je suis un peu perdu