XL 2010 image qui disparait avec une contrainte + garde le format date dans une formule

[306255]

Bonjour à tous

Sur l'onglet interface , je souhaiterais que l'image "ATTENTION" disparaisse quand C7 correspond à temps complet

Sur l'onglet CDD la date apparait en chiffre au lieu de la date, comment est il possible de la garder en date

Merci de votre aide

PS : je ne sais pas si il fallait que je fasse 2 demandes ou une seule ... veuillez m'en excuser

 

[Bernard_XLD]

Bonjour 306255, le forum

pour votre formule :

=interface!C10&" "&interface!C11&" est embauché"&SI(interface!C12="feminin";"e";"")&" en remplacement"&SI(interface!C24="oui (si statut ou horaire différent)";" partiel";"")&" de "&interface!C23&" employé"&SI(interface!C12="feminin";"e";"")&" en qualité d'"&interface!C25&", actuellement absent"&SI(interface!C12="feminin";"e";"")&" pour "&interface!C28&" du "&TEXTE(interface!C26;"jjjj jj mmmm aaaa")&" au "&TEXTE(interface!C27;"jjjj jj mmmm aaaa")

pour votre image, parlez vous du panneau danger ?
devez vous rester en Xlsx pour votre fichier ?

Bien cordialement, @+

 

[306255]

merci beaucoup pour la formule

Non je peux mettre en format macro sans souci

 

[Bernard_XLD]

re,

Voila votre fichier avec une événementielle dans le module de la feuille interface

Bien cordialement,@+

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C7")) Is Nothing Then
    If UCase(Range("C7").Value) = "TEMPS COMPLET" Then
        ActiveSheet.Shapes("Picture 1").Visible = False
    Else
        ActiveSheet.Shapes("Picture 1").Visible = True
    End If
End If
End Sub

 

[Jocelyn]

Bonjour le Forum,
Bonjour 306255, Yeahou ,

bon alors je l'ai fait donc je le poste d'autant plus qu'il est fait sans VBA une autre solution donc

Cordialement

EDIT : Après sans vba chez moi cela n'étonnera personne bien en une seule ligne Yeahou un jour je ferais aussi bien

 

[Bernard_XLD]

Re,
Salut Jocelyn
pour le fun, l'événementielle en condensé sur une seule ligne
pas sûr à 100 % que cela passe sur Excel 2010

Bien cordialement, @+

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C7]) Is Nothing Then Shapes(1).Visible = Not [C7] = "TEMPS COMPLET"
End Sub

 

[Bernard_XLD]

Après sans vba chez moi cela n'étonnera personne

c'est justement cela qui est génial, d'arriver à le faire sans vba, alors ne change rien !

Bien amicalement, @+
Bernard

 

[306255]

Merci à vous 2 pour votre aide ... vous êtes géniaux

merci encore

 

[Bernard_XLD]

re,

pour le fun, l'événementielle en condensé sur une seule ligne
pas sûr à 100 % que cela passe sur Excel 2010

@306255 , tu peux tu me dire si le code du post 7 fonctionne sur Excel 2010 ?
c'est juste pour ma culture personnelle !

Bien amicalement, @+
Bernard

 

[306255]

pas de souci ... Merci encore