Colorer cellules&onglets sous conditions
Bonjour,
J'ai un classeur qui comporte une feuille nommé Planning et 31 pages nommées de 1 à 31 (correspondant a la date du jour).
Dand la plage de cellule A6:A36 de la page planning est saisie manuellement( saisie du jour dans la 1ere cellule puis clic sur le + en bas a droite de la cellule pour saisir jusqu'a la cellule A36) les jours du "lundi au samedi" qui peuvent différés d'emplacement selon le mois.
Je voudrai coloré en rouge les onglets des pages correspondant au samedi et dimanche selon la saisie de la plage de cellule A6:A36
Je voudrai également coloré en rouge la ligne correspondant au samedi et dimanche de la colonne A jusqu'a W
Je met un exemple en PJ qui sera certainement plus explicite.
Merci pour vos réponses.
Bonjour
Ta colonne C pose un problème de cohérence et de compréhension.
Voudrais-tu controler s'il te plait?
Cordialement
Bonjour,
Effectivement j'ai fait mon exemple un peu trop rapidement, le voila corrigé!
Merci d'avance.
Bonjour
Avec une fonction personnalisée et une formule sur chaque Feuille.
Cordialement
Merci Amadéus, je n'en demandais pas tant! excellent ce que tu a créé.
Le seul petit hic, étant débutant j'ai du mal à saisir pourquoi cela ne fonctione pas sur mon classeur,
j'ai insérer toutes les formules enfin je pense:
en A6 =DATE(An;MOIS("1/"&B2);1)
ensuite en A7et jusqu'en bas =A6+1
En B6 =A6
j'ai également créer la liste déroulante
dans les cellule A6 et B6 s'affiche #NOM?
et je ne comprends pas comment l'année est prise en compte la cellule B1 n'apparait pas dans la formule
Merci encore une fois pour ton aide
Bonjour
J'ai nommé An la cellule B1
et J'ai nommé Mois la formule
=MOIS("1/"&Planning!$B$2)Cordialement
Bonjour Amadéus,
Quand tu dis nommé c'est juste insérer le texte An et Mois ou il y a une façon de faire? et je ne vois pas quelle cellule contient la formule =MOIS("1/"&Planning!$B$2)
J'ai aussi une erreur de macro suite à l'insertion des formules:
cette ligne se met en jaune: If Target.Column = 14 And UCase(Target) = "X" Then
ci-dessous les macros:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Name <> "Vk" Then
If Target.Column = 14 Then
Cancel = True
Target = "X"
End If
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "Vk" Then
If Target.Count = 1 Then
If Target.Column = 14 And UCase(Target) = "X" Then
Application.Goto Sheets("Vk").Range("A1"), Scroll:=True
End If
End If
End If
End Sub
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.WindowState = xlNormal
End Sub
Merci d'avance
Bonjour
Pour définir un Nom avec Excel 2007
Pour le VBA, ce n'est pas mon truc, je fais place aux spécialistes
cordialement
Un grand Merci Amadéus, cela fonctionne à merveille!!!
-- 28 Juin 2011, 22:48 --
Bonsoir,
Sans vouloir abuser, est-il possible d'executer les mêmes conditions des samedi et dimanche au jours fériés.
Merci d'avance.
Bonsoir
Nouvelle MFC et surtout nouvelle formule en A1 (ou ailleurs, n'importe où, sur chaque Feuille jour)
Voir la liste des formules donnant les jours fériés sous le planning.
Cordialement
Trop top Amadéus, cela fonctionne à merveille.
Une nouvelle fois Merci pour ton aide précieuse.