XL 2010 VBA

DIDPROJ

XLDnaute Nouveau
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
 

Pièces jointes

  • Classeur1nepaseffacer1 (1).xlsm
    29 KB · Affichages: 7

JBARBE

XLDnaute Barbatruc
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 !
 

Pièces jointes

  • Classeur1nepaseffacer.xlsm
    39 KB · Affichages: 4

DIDPROJ

XLDnaute Nouveau
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
 

Pièces jointes

  • Classeur1nepaseffacer (4).xlsm
    39.5 KB · Affichages: 3

JBARBE

XLDnaute Barbatruc
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 :
VB:
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 !
 

Pièces jointes

  • Classeur1nepaseffacer (4).xlsm
    42.8 KB · Affichages: 7

JBARBE

XLDnaute Barbatruc
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 !
 

Pièces jointes

  • Classeur1nepaseffacer (4).xlsm
    44.4 KB · Affichages: 8

DIDPROJ

XLDnaute Nouveau
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

XLDnaute Barbatruc
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 :
 

Pièces jointes

  • Classeur1nepaseffacer (4).xlsm
    44 KB · Affichages: 5
Dernière édition:

DIDPROJ

XLDnaute Nouveau
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
 

Pièces jointes

  • Classeur1nepaseffacer (4) (8).xlsm
    37.2 KB · Affichages: 4

DIDPROJ

XLDnaute Nouveau
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
 

Pièces jointes

  • Classeur1nepaseffacer (4) (8).xlsm
    39.3 KB · Affichages: 3

JBARBE

XLDnaute Barbatruc
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 !
 

Pièces jointes

  • Classeur1nepaseffacer (4).xlsm
    44.8 KB · Affichages: 4
Dernière édition:

DIDPROJ

XLDnaute Nouveau
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é.
 

Pièces jointes

  • Classeur1nepaseffacer (4) (8).xlsm
    39 KB · Affichages: 3

Discussions similaires

Réponses
1
Affichages
877

Statistiques des forums

Discussions
311 720
Messages
2 081 913
Membres
101 837
dernier inscrit
Ugo