Date avec image + Jour férier

[ExcelDow]

Bonjour à tous,

Si quelqu'un pourrais me donner un petit coup de main, merci d'avance

Voilà, j'ai un petit soucis lorsque je change de date Feuil1 en "A1", je voudrais que les jours fériés se trouvant en feuille 'Images" correspondent a la date indiquée sur la ligne 5 de la feuille 1.
Merci
A+++++

 

[Papou-net]

Re : Date avec image + Jour férier

Bonsoir Exceldow,

Peut-être n'ai pas compris ta question, mais ta macro semble fonctionner. En tout cas, chez moi, si je change de date l'image se positionne bien au bon endroit.

Par contre, je relève un oubli dans ton code:

Tu désactives le rafraîchissement d'écran mais tu oublies de le rétablir:

Private Sub Worksheet_Calculate()
If ActiveSheet.Name <> Me.Name Then Exit Sub
Dim sel As Range, c As Range
Application.ScreenUpdating = False
ActiveCell.Activate
Set sel = Selection
DrawingObjects.Delete 'RAZ
Feuil2.DrawingObjects("Image 1").Copy 'noms à adapter
For Each c In [B5:H5] 'plage à adapter
  If Application.CountIf([fériés], c) Then
    c(3).Select
    Me.Paste
    Selection.Width = c.Width
  End If
Next
Application.ScreenUpdating = True '<--- Ligne à ajouter
sel.Select
End Sub

Cordialement.

 

[ExcelDow]

Re : Date avec image + Jour férier

Bonjour Papou-net,
OK, et merci pour la ptite correction du code. Sa marche .....
Aurais-tu une idée Papou-net pour afficher le nom du jour férié en sur la ligne en jaune
Bonne journée

 

[DL_13]

Re : Date avec image + Jour férier

Bonjour,

peut être comme cela

en B4

=INDEX(Images!$C$2:$C$12;EQUIV(A1;Images!$D$2:$D$12;0);1)

Bonne journée

 

[Papou-net]

Re : Date avec image + Jour férier

Bonjour ExcelDow, DL_13,

Aurais-tu une idée Papou-net pour afficher le nom du jour férié en sur la ligne en jaune

Modifie le code comme suit:

Private Sub Worksheet_Calculate()
If ActiveSheet.Name <> Me.Name Then Exit Sub
Dim sel As Range, c As Range
Application.ScreenUpdating = False
Range("B5:H5").Interior.ColorIndex = xlAutomatic
Set sel = Selection
DrawingObjects.Delete 'RAZ
For Each c In [B5:H5] 'plage à adapter
  If Application.CountIf([fériés], c) Then
    Feuil2.DrawingObjects("Image 1").Copy 'noms à adapter
    c(3).Select
    Me.Paste
    Selection.Width = c.Width
    c.Interior.ColorIndex = c.Offset(-1, 0).Interior.ColorIndex
  End If
Next
Application.ScreenUpdating = True
sel.Select
End Sub

Cordialement.

 

[ExcelDow]

Re : Date avec image + Jour férier

Bonsoir Papou-net,
Alors désolé, et merci de ton aide pour le code, mais ayant mis ton nouveau code, il ne réagit pas.

 

[Papou-net]

Re : Date avec image + Jour férier

RE:

Chez moi, ça fonctionne: la cellule de la date fériée date se met bien en jaune.

Je te joins une copie en PJ pour tester.

Cordialement.

 

[libellule85]

Re : Date avec image + Jour férier

Bonsoir à vous tous,

Cela fait drôle de voir une demande qui a été faite avec un fichier que Job75 a envoyé suite à ma demande !
[h=2]Mettre image automatiquement suivant date[/h]

 

[ExcelDow]

Re : Date avec image + Jour férier

Bonsoir Papou-net,
Alors, c'est pas de mettre une cellule en jaune que je voudrais,
mais afficher le jour férié qui se trouve dans la feuille "image" et qui suit l'image
Voilà, voilà
Merci pour ton aide

 

[JCGL]

Re : Date avec image + Jour férier

Bonjour à tous,

Avec les solutions proposées...
Utilisation de SIERREUR() pas forcément compatible avec XL 2007.

A+ à tous

 

[ExcelDow]

Re : Date avec image + Jour férier

Salut JCGL,
Effectivement avec Excel 2007, ça péclote, l'image ne suit pas sur toutes les dates férié.
Merci de ton aide

 

[JCGL]

Re : Date avec image + Jour férier

Bonjour à tous,

Peux-tu essayer ?

A+ à tous

 

[ExcelDow]

Re : Date avec image + Jour férier

Bonjour JCGL,
Super, ça fonctionne bien
On pourrais ajouter peut être une barre de défilement, et ainsi faire défiler les dates de la cellule "A1" plus facilement
Merci JCGL

 

[JCGL]

Re : Date avec image + Jour férier

Bonjour à tous,

Avec un bouton.


A+ à tous

 

[ExcelDow]

Re : Date avec image + Jour férier

bonsoir JCGL,
Alors ça, c'est super gentil de ta par
C'est plus confortable pour l'utilisation, merci beaucoup JCGL et bonne soirée
(Problème résolut)