lepigoennier
XLDnaute Junior
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
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
Code:
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