XL 2010 VBA

[DIDPROJ]

Bonjour à tous,

Petite question je vous joins un planning horaire.
dans les cellules G8à12 et H8 à 12 je rentre des horaires.

Par une Macro, des couleurs s'affiche correspondant aux plages horaires renseignées précédemment.

Je voudrais ajouter un bouton pour que lorsque j'appuie dessus, les couleurs des plages horaires, les horaires (G9 à 12 et H9 à 12) et les noms des tâches reviennent à zéro.
J'ai essayé plein de façon mais aucun ne fait quelque chose.

Je voudrais également que lorsque je choisi une personne dans la cellule A9 , la couleur des plages horaires changent en fonction du choix de la personne dans la liste déroulante (1 couleur par personne exp : Fabrice jaune, Stéphane bleu, Christophe orange, Isabelle violet, Françoise rose, Didier Vert)

Savez vous faire cela car moi je sèche complétement.

D'avance merci à tous

 

[JBARBE]

Bonjour à tous,
Peut-être ceci !
Un bouton COULEURS pour remettre les bonne couleurs
Un bouton SUPPRIMER indiquant la personne concernée par la suppression !
Bonne journée !

 

[DIDPROJ]

Merci beaucoup c'est très gentil

serait-il possible d'avoir un bouton qui supprime la totalité des horaires plutôt que un qui supprime un les horaire d'un nom?

Merci beaucoup

 

[JBARBE]

Re,
Voilà c'est fait !
Bonne journée !

 

[DIDPROJ]

jene sais pas comment vous faites pour faire du VBA aussi rapidement.
Moi je galère mais cela à l'air d'être intéressant.

Bravo.

Merci beaucoup en tout cas

 

[DIDPROJ]

par contre encore question je suis désolé je vous en demande beaucoup
mais j'ai un petit soucis
Si je veux rajouter une ligne entre 2 nom, les couleurs ne correspondent plus entre le nom et la plage horaire.

Il faudrait que lorsque le nom Fabrice Fontaine est choisi cela met la couleur jaune pour le nom et la plage horaire et que si sur la ligne suivante je choisi encore Fabrice Fontaine il faudrait que la couleur soit également le jaune.
Et ce principe pour tout les nom.

Merci beaucoup

 

[JBARBE]

Bonsoir à tous,
En cliquant sur le bouton couleur !
La macro tient compte des NOMS tel qu'ils sont inscrit !
De fait, s'il faut modifier ou ajouter des noms, il faudra modifier la macro ci-dessous :

Sub couleurs_noms()
Dim j As Long, k As Long
Application.ScreenUpdating = False
With Sheets("Feuil1")
 For j = 9 To 10000
   For k = 9 To 100
   If .Cells(j, 1) = "" Then Exit Sub
  If .Cells(j, 1) = "Fabrice FONTAINE" And .Cells(j, k).Interior.ColorIndex <> xlNone Then
  .Cells(j, 1).Interior.ColorIndex = 6
  .Range(Cells(j, 7), Cells(j, 8)).Interior.ColorIndex = 6
  .Cells(j, k).Interior.ColorIndex = 6
  ElseIf .Cells(j, 1) = "Stéphane POCHET" And .Cells(j, k).Interior.ColorIndex <> xlNone Then
  .Cells(j, 1).Interior.ColorIndex = 33
  .Range(Cells(j, 7), Cells(j, 8)).Interior.ColorIndex = 33
  .Cells(j, k).Interior.ColorIndex = 33
  ElseIf .Cells(j, 1) = "Christophe ANSELIN" And .Cells(j, k).Interior.ColorIndex <> xlNone Then
  .Cells(j, 1).Interior.ColorIndex = 46
  .Range(Cells(j, 7), Cells(j, 8)).Interior.ColorIndex = 46
  .Cells(j, k).Interior.ColorIndex = 46
  ElseIf .Cells(j, 1) = "Isabelle POCHET" And .Cells(j, k).Interior.ColorIndex <> xlNone Then
  .Cells(j, 1).Interior.ColorIndex = 47
  .Range(Cells(j, 7), Cells(j, 8)).Interior.ColorIndex = 47
  .Cells(j, k).Interior.ColorIndex = 47
  ElseIf .Cells(j, 1) = "Didier MARQUOIS" And .Cells(j, k).Interior.ColorIndex <> xlNone Then
  .Cells(j, 1).Interior.ColorIndex = 22
  .Range(Cells(j, 7), Cells(j, 8)).Interior.ColorIndex = 22
  .Cells(j, k).Interior.ColorIndex = 22
  'ElseIf .Cells(k, 1) = "Fabrice FONTAINE" And .Cells(J, K).Interior.ColorIndex <> xlNone Then
  '.Cells(J, 1).Interior.ColorIndex = 43
  '.Range(Cells(J, 7), Cells(J, 8)).Interior.ColorIndex = 43
  '.Cells(J, K).Interior.ColorIndex = 43
  End If
   Next k
 Next j
End With
Application.ScreenUpdating = True
End Sub

Bonne nuit !

 

[JBARBE]

Bonjour à tous,
Maintenant il suffit d'aller dans la feuille NOMS de mettre les noms correspondant à la Feuil1 et d'y mettre une couleur différente des autres ! Plus simple que précédemment !
Avant de cliquer sur le bouton COULEURS il faut mettre des heures dans les colonnes G et H bien sûr!
Bonne journée !

 

[DIDPROJ]

Merci c'est top.
Est ce qu'il existe des cours ou formation de VBA?

Par conte un dernier petit problème, je voudrais que lorsque je clique sur le bouton suuprimer les horaires que les horaires renseignés reviennent à 0.

Merci beaucoups

 

[JBARBE]

Re,
La macro supprimer les horaires efface maintenant les horaires mais ne permet pas de mettre à 0 car il y a dans la feuil1 une macro indispensable qui agit sur les colonnes G et H lorsqu'il y a un changement de cellules !
Pour la formation VBA, voir ici :

Microsoft 365 - forum vba

Bonjour, pouvez vous me communiquer des sites ou forum sur le VBa ( cour) en français. Merci

www.excel-downloads.com

 

[DIDPROJ]

Merci beaucoup. je commence à comprenrde le raisonnement.

Par contre j'ai légèrement modifié le tableau et lorsque j'appuie sur le bouton supprimé il n'y a que la ligne 9 qui se vide.

Pouvez vous m'aider une dernière fois.

Et un très grand merci à vous

 

[DIDPROJ]

C'est bon j'ai trouvé

par contre est ce qui serait possible de ma dire comment faire pour la couleur du texte de la celluleB21 (cellule fusionné) suivant la personne sélectionné soit la couleur des horaires des lignes 21-22-23-24.

d'avance merci

 

[JBARBE]

Re,
Il ne faut pas modifier un tableau aprés programmation ( il faut reprogrammé ) !
J'ai ajouté la date sans modifier le reste !
Il me semble que tu n'as pas compris ce que j'ai fait ( NOMS dans feuille NOMS )et couleurs !
Bon courage pour l'apprentissage du VBA ( y'a du boulot )!
Bonne journée !

 

[DIDPROJ]

ok merci
Je commence à comprendre petit à petit.
J'ai vu et reprogrammé mon tableau suivant les mises à jousr que j'ai apportés.
Ce n'est peut-être pas catholique mais ca marche.
tu peux y jeter un œil si tu veux

par contreun tout dernier point est ce qui serait possible de ma dire comment faire pour la couleur du texte de la celluleB21 (cellule fusionné) suivant la personne sélectionné soit la couleur des horaires des lignes 21-22-23-24.

Apres cela je te laisse tranquil et dans tout cas merci beaucoup pour tes conseils, solutions et pour le temps passé.

 

[JBARBE]

Re,
Ton fichier ne correspond en rien à ce que j'ai fait !
C'est du n'importe quoi !
Donc, je laisse tomber !
bonne journée !