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

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 30 Juin 2021

• #2

Bonjour 306255, le forum

pour votre formule :

VB:

=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, @+

 

Vote positif 0 Vote négatif

3

306255

XLDnaute Occasionnel

• 30 Juin 2021

• #3

merci beaucoup pour la formule

Non je peux mettre en format macro sans souci

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 30 Juin 2021

• #4

re,

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

Bien cordialement,@+

VB:

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

 

Pièces jointes

• contrat de travail auto.xlsm

  44.2 KB · Affichages: 4

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 30 Juin 2021

• #5

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 😉

 

Pièces jointes

• contrat de travail auto-2.xlsx

  205.4 KB · Affichages: 5

Dernière édition: 30 Juin 2021

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 30 Juin 2021

• #6

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, @+

VB:

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

 

Vote positif 0 Vote négatif

Solution

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 30 Juin 2021

• #7

Jocelyn à dit:

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

Cliquez pour agrandir...

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

Bien amicalement, @+
Bernard

 

Vote positif 0 Vote négatif

3

306255

XLDnaute Occasionnel

• 30 Juin 2021

• #8

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

merci encore

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 30 Juin 2021

• #9

re,

Yeahou à dit:

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

Cliquez pour agrandir...

@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

 

Vote positif 0 Vote négatif

3

306255

XLDnaute Occasionnel

• 1 Juillet 2021

• #10

pas de souci ... Merci encore

 

Vote positif 0 Vote négatif