Fornat date d'une cellule

[lepigoennier]

Bonjour à tous,

Voici mon problème : J'envoi un formualire à mes fournisseurs. Tout dépendant si celui-ci est franophone ou anglophone, je voudrais que le format de date change. J'ai mis une case à cocher pour le choix de la langue et lié la cellule A28 de la feuille "Acheteur". Si la cellule A28=vrai, je voudrais un format de la cellule A17 de la feuille "Fournisseur" soit dd mmm yyyy et si A28=faux, je voudrais un format MMM dd yyyy. Présentement, soit ça ne fait rien ou bien ça m'écrit dd mmm yyyy dans la cellule. Merci d'avance pour votre aide

    Dim dateandg As Date
    Dim datefr As Date
        
    dateang = Format(mm / dd / yyyy)
    datefr = Format(dd / mm / yyyy)
    

    If Sheets("Acheteur").Range("$B$28") = VRAI Then  'pour avoir date en français
        Sheets("Fournisseur").Select
        Range("A17") = datefr
    
    Else
        Sheets("Fournisseur").Select 'pour avoir date en anglais
        Range("A17") = dateang
    End If

 

[Modeste geedee]

Re : Fornat date d'une cellule

Bonsour®

la fonction format exige 2 arguments !!!
- la date concernée
- le format personnalisé lui-même

     Dim dateang As Date
     Dim datefr As Date
         
     dateang = Format(now,"mm / dd / yyyy")
     datefr = Format(now,"dd / mm / yyyy")
     
With Sheets("Fournisseur")
     .range("A17")=IIf( Sheets("Acheteur").Range("$B$28") = True, datefr, dateang)      
End with