Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres Transformer une date anglaise en française

A

alain.pierrephie

XLDnaute Occasionnel
Bonjour au forum
J'ai un nouveau souci que j'ai du mal à résoudre: j'explique
Via un userform lorsque je met dans ma zone de texte nommée "DateConsultation" une date qui va se reporter sur mon formulaire "Liste Clients"
si je met comme date 03/07/2021 dans mon formulaire "Liste clients" viendra se mettre la date suivante: 07/03/2021. Jour et mois sont inversés.
Pourriez vous me donner le code qui permettrai d'avoir ma date en français dans mon formulaire "Liste clients" lorsque je passe par mon userform.
Merci a celui qui se penchera sur mon souci
Alain
 
Trier par date Trier par votes

Phil69970

XLDnaute Barbatruc
Bonjour à tous

Juste en passant après nettoyage ton fichier ne pèse plus que ..... 25 Ko



Par contre il manque des onglets pour simplifier ton code et le tester....
*En général les select sont à bannir .....

@Phil69970
 

Pièces jointes

  • Formulaire-clients-AURELIA.xlsm
    24.8 KB · Affichages: 5
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Re

Ton module 6 peux être remplacer par celui-ci légèrement plus court.....
VB: 
Sub NouveauClient()

With Sheets("Liste Clients")
    .Range("A4:H4").Insert Shift:=xlDown

    .[A5] = Sheets("Formulaire").[D8].Value
    .[B5] = Sheets("Formulaire").[F8].Value
    .[C5] = Sheets("Formulaire").[D10].Value
    .[D5] = Sheets("Formulaire").[D12].Value
    .[E5] = Sheets("Formulaire").[D14].Value
  
    'Es tu sur des bonnes cellules à copier en F5 et G5 ?
    .[F5] = Sheets("Formulaire").[D18].Value
    .[G5] = Sheets("Formulaire").[D16].Value
  
    .[A1] = Sheets("Formulaire").[D20].Value
End With

Sheets("Formulaire").Range("F8,D8,D10,D12,D14,D16,D18,D20").ClearContents

End Sub

Comme il manque des onglets je ne peux pas tester......

@Phil69970
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
XL 2016 Mise en forme conditionnelle pour une date dépassée de 3 ans par rapport à une autre date
Réponses
1
Affichages
832
JHA
J
  • Résolu(e)
XL 2019 Problème de date
2
Réponses
20
Affichages
2 K
micpid62
P
  • Question
Microsoft 365 Date statique dans Excel en VB avec colonne protégée
Réponses
13
Affichages
596
pca2471
P
M
  • Question
Microsoft 365 Gestion d'une refacturation en fonction d'un inventaire
Réponses
1
Affichages
534
MUGMRG
M
A
  • Question
Autres Donner la date à laquelle une valeur à atteint une certaine valeur
Réponses
6
Affichages
821
alain.pierrephie
A
L
  • Question
XL 2019 Problème formule SOMMEPROD & INDEX
Réponses
6
Affichages
731
Laliepomm
L
S
  • Question
Power BI Transformer une date format txt en format date
Réponses
5
Affichages
3 K
SNTanelyse
S
S
  • Question
XL 2016 Excel échéance mois dépassé
Réponses
2
Affichages
694
djidji59430
C
  • Question
Microsoft 365 Transformer une date dynamique en fixe après transfert
Réponses
6
Affichages
943
Hasco
A
  • Question
XL 2016 Conversion d'une date anglaise en Français
Réponses
5
Affichages
1 K
alain29100
A
A
  • Question
Autres Transformer dans mon userform un format "texte" en format "nombre"
Réponses
14
Affichages
2 K
alain.pierrephie
A
T
  • Résolu(e)
XL 2016 Sélectionner une cellule date excel en fonction d'une combobox dans un formulaire
Réponses
5
Affichages
1 K
TyrosCB
T
S
  • Question
XL 2016 Associer une commande fournisseur à une commande client
Réponses
0
Affichages
1 K
SPAL
S
P
  • Question
XL 2016 Ligne qui se copie automatiquement sur une autre feuille, Transfert de ligne sur une autre page
Réponses
1
Affichages
963
PascaleMT
P
A
  • Question
Autres Règler une erreur de formule "index" qui va chercher une date
Réponses
6
Affichages
810
alain.pierrephie
A
P
  • Résolu(e)
Microsoft 365 Transfert de ligne sur une autre feuille du même fichier selon condition.
Réponses
9
Affichages
1 K
Phil69970
I
  • Question
XL 2010 Transfert d'une variable d'un userform à une macro
Réponses
2
Affichages
1 K
Dudu2
T
  • Question
Microsoft 365 Affichage de date en version anglaise lors d'un publipostage
Réponses
1
Affichages
1 K
chris
S
  • Question
XL 2019 VBA Copier/coller données en fonction de la date
Réponses
2
Affichages
1 K
SimpsonHomer
S
L
  • Question
XL 2019 Trier une liste de noms latins en couleur sans doublons depuis une combobox d'un userform
2
Réponses
29
Affichages
2 K
lusert
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…