Microsoft 365 Format date dans formule

[FCMLE44]

Bonjour

Dans ce fichier, j'ai une formule concatener mais la date apparait sous le mauvais format

Pourriez vous m'aider svp

Merci

 

[Nairolf]

Salut,

Dans Excel, toutes les dates sont en fait des nombres (de jours) décimaux (le premier jour étant le 01/01/1900), pour le mettre en texte il faut lui dire le format souhaité :

=CONCATENER("(dont une ancienneté groupe au ";TEXTE(C2;"jj/mm/aaaa");" ";")")

 

[djidji59430]

Bonjour à tous,

Essaye :
=CONCATENER("(dont une ancienneté groupe au ";TEXTE(C2;"jj/mm/aaaa");" ";")")


Crdlmt

 

[FCMLE44]

Merci
Est il possible que la date qui s'affichera alors soit en gras ?

 

[Nairolf]

A ma connaissance ce n'est pas possible par formule, par contre peut-être si le traitement était fait en vba, mais là ça fait quelque chose d'un peu lourd juste pour du cosmétique.

 

[FCMLE44]

Je veux bien en vba alors car important nous devons faire ressortir la date

 

[Nairolf]

En s'inspirant du fil suivant peut-être : https://www.excel-downloads.com/threads/mettre-en-gras-une-partie-du-resultat-dune-formule.105070/

 

[job75]

Bonjour FCMLE44, Nairolf, djidji59430,

Voyez le fichier .xlsm joint et cette macro dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2]) Is Nothing Then Exit Sub
With [C4]
    If IsDate([C2]) Then
        .Value = "(dont une ancienneté groupe au " & CDate([C2]) & ")"
        With .Characters(32, 10).Font
            .Bold = True 'gras
            .Color = vbRed 'rouge
        End With
    Else
        .Value = ""
    End If
End With
End Sub

A+

 

[FCMLE44]

Merci
Si je veux mettre noir au lieu de rouge je mets vbBlack ?

 

[FCMLE44]

La date (C2) que je vais chercher sur mon fichier réel est sur une feuille nommée salariés cellule B16
Comment dois je faire ?

 

[job75]

La date (C2) que je vais chercher sur mon fichier réel est sur une feuille nommée salariés cellule B16

Entrez en C2 la formule =Salariés!B16 et mettez C2 au format Date.

 

[FCMLE44]

Oui mais la cellule sur lequel je valide par Entrée est la cellule B16 de la feuille salarié
En faisant ce que vous me dites de faire, cela ne fonctionne pas

 

[job75]

Voyez ce fichier (2) avec la macro dans la feuille "Salariés" :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B16]) Is Nothing Then Exit Sub
With Sheets("Feuil1").[C4]
    If IsDate([B16]) Then
        .Value = "(dont une ancienneté groupe au " & CDate([B16]) & ")"
        With .Characters(32, 10).Font
            .Bold = True 'gras
            .Color = vbRed 'rouge
        End With
    Else
        .Value = ""
    End If
End With
End Sub

Formule en C2 de "Feuil1" =SI(ESTNUM(Salariés!B16);Salariés!B16;"")

 

[FCMLE44]

Merci. Cela fonctionne
Comme j'avais deja un worsheet change, j'ai du enlever la première partie

Private Sub Worksheet_Change(ByVal Target As Range)
Dim mois As Variant, findemois As Variant

    If Target.Address = "$D$20" Then
        If Target = "" Then Exit Sub
            Call ecriture
    End If
       '****************************************** Masquer/afficher************************
    If Target.Address = "$D$18" Then
        Application.ScreenUpdating = False
        Sheets("Courriers").Range("28:28,232:289").EntireRow.Hidden = False
        Range("20:69").EntireRow.Hidden = False
        Select Case Target.Value
        Case "Démission"
            ActiveSheet.Range("20:23").EntireRow.Hidden = True
            ActiveSheet.Range("41:69").EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
        Case "Fin de contrat Apprentissage", "Fin de contrat Professionnalisation", "Licenciement Faute Grave"
            ActiveSheet.Range("20:48").EntireRow.Hidden = True
            ActiveSheet.Range("41:69").EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
        Case "Décès"
            ActiveSheet.Range("20:28").EntireRow.Hidden = True
            ActiveSheet.Range("41:69").EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289,28:28").EntireRow.Hidden = True
        Case "Fin de Contrat à Durée Déterminée"
            ActiveSheet.Range("20:28").EntireRow.Hidden = True
            ActiveSheet.Range("46:69").EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
        Case "Licenciement Autres"
            ActiveSheet.Range("41:46").EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
            MsgBox ("Veuillez saisir la date de notification en cellule B18")
            ActiveSheet.Range("B18").Activate
        Case "Retraite"
            ActiveSheet.Range("21:23").EntireRow.Hidden = True
            ActiveSheet.Range("41:46").EntireRow.Hidden = True
            Sheets("Courriers").Range("28:28").EntireRow.Hidden = True
            
            mois = Month(Range("B17")) + 1
            If mois = 13 Then
                mois = 1
                an = Year(Range("B17")) + 1
            Else
                an = Year(Range("B17"))
            End If
            findemois = CDate("01/" & mois & "/" & an) - 1
            If Range("B17") <> findemois Then
                MsgBox ("Attention, un départ en retraite ne doit jamais avoir lieu au début ni même en cours de mois. Uniquement le dernier jour du mois. Merci, par conséquent de modifier la date de sortie en cellule B17. EN CAS D'INFORMATION CONTRAIRE, MERCI DE PRENDRE CONTACT AVEC VOTRE RESPONSABLE DE GROUPE")
              Range("B17") = ""
            End If
            
            Case "Rupture Conventionnelle"

            ActiveSheet.Range("21:28").EntireRow.Hidden = True
            ActiveSheet.Range("41:46").EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
        End Select
    End If
        '****************************************** Actions sur Courrier************************
    If Intersect(Target, [B16]) Is Nothing Then Exit Sub
    With Sheets("Courriers").[C198]
    If IsDate([B16]) Then
        .Value = "(dont une ancienneté groupe au " & CDate([B16]) & ")"
        With .Characters(32, 10).Font
            .Bold = True 'gras
            .Color = vbBlack 'noir
        End With
    Else
        .Value = ""
    End If
End With
End Sub