Microsoft 365 Problèmes avec UserForm

[Francky79]

Bonjour le forum,

Plusieurs problèmes dans mon UserForm,
La date saisie dans l'UserForm ne correspond plus dans la colonne A
09/12/2025 devient 12/09/2025
Dans la colonne D et E le calcul ne se fait pas lors de nouvelles saisies.
Voir le fichier joint.

Merci pour votre aide

 

[Nain porte quoi]

Hello,

au lieu de Application.Proper (qui n'a rien à faire ici)

   ActiveCell.Value = Application.Proper(Me.Jour)

utilisez ActiveCell.Value = CDate(Me.Jour)

   ActiveCell.Value = CDate(Me.Jour)

 

[Francky79]

Merci pour la date.
Une idée pour l'addition dans les colonnes D et E ?

 

[Gégé-45550]

Merci pour la date.
Une idée pour l'addition dans les colonnes D et E ?

Bonjour,
Un userform renvoie toujours du texte et vos colonnes attendent des nombres.
Convertissez le contenu de vos résultats de UserForm dans les bons formats avant de les rapatrier sur votre feuille de calcul.
CF le message de Nain porte quoi
Cordialement,

 

[Francky79]

Merci pour votre aide,

Convertissez le contenu de vos résultats de UserForm dans les bons formats avant de les rapatrier sur votre feuille de calcul.

Comment convertir avant de rapatrier ?

 

[TooFatBoy]

Hi,

La date saisie dans l'UserForm ne correspond plus dans la colonne A
09/12/2025 devient 12/09/2025

Convertissez le contenu de vos résultats de UserForm dans les bons formats avant de les rapatrier sur votre feuille de calcul.
CF le message de @Nain porte quoi

Comment convertir avant de rapatrier ?

utilisez ActiveCell.Value = CDate(Me.Jour)

Apparemment, ça marche aussi pour les heures.

Et pour les km, tu peux éventuellement utiliser Val(Me.Km) ou 1*Me.Km.

 

[cathodique]

Merci pour votre aide,

Convertissez le contenu de vos résultats de UserForm dans les bons formats avant de les rapatrier sur votre feuille de calcul.

Comment convertir avant de rapatrier ?

Bonjour l'équipe,

@Francky79 : je reconnais bien le style de l'userform (de feu Jacques Boisgontier). Tu utilises un tableau structuré sans profiter de ces avantages.
Peux-tu nous expliquer ce que tu veux faire exactement?

A+

 

[Francky79]

Merci TooFatBoy pour tes solutions.

Cathodique le but est de renseigner le tableau par l'intermédiaire de l'UserForm, dans le projet final il y aura plus de cases à renseigner.
Et à partir du tableau je pourrai faire des graphiques.
Et tu as raison je suis parti un exemple de J.Boisgontier.

 

[TooFatBoy]

Merci TooFatBoy pour tes solutions.

De rien : je n'ai fait que citer mes collègues, et ajouter une remarque.

 

[cathodique]

Merci TooFatBoy pour tes solutions.

Cathodique le but est de renseigner le tableau par l'intermédiaire de l'UserForm, dans le projet final il y aura plus de cases à renseigner.
Et à partir du tableau je pourrai faire des graphiques.
Et tu as raison je suis parti un exemple de J.Boisgontier.

@TooFatBoy (que je salue) t'a très bien orienté.
Cependant, ce que je n'ai pas compris, dans la colonne "NB", tu as mis une formule (cellule n - cellule (n-1)) ces cellules contiennent des dates.
Que veux-tu obtenir exactement?
Je pense que pour avoir un formulaire qui tienne la route est d'ajouter des masques de saisie ou des fonctions pour valider les formats.
parce qu'on peut faire des erreurs de frappe, par exemple écrire: 12/22/2025 cette date reste juste mais en anglais pas en français.
c'est idem pour le temps.

 

[dysorthographie]

bonjour,

Function TrouveType(V)TrouveType = Replace(Replace(V, " ", ""), Chr(34), "")
If IsDate(TrouveType) = True And InStr(TrouveType, "/") <> 0 And InStr(TrouveType, ":") <> 0 Then TrouveType = Format(TrouveType, "yyyy-mm-dd hh:mm:ss"): Exit Function
If IsDate(TrouveType) = True And InStr(TrouveType, "/") <> 0 Then TrouveType = Format(TrouveType, "yyyy-mm-dd"): Exit Function
If IsNumeric(Replace(TrouveType, ".", ",")) = True Then TrouveType = Replace(TrouveType, ",", "."): Exit Function
End Function
Sub test()
range("A1").Value = TrouveType(me.jour)
range("B1").Value = TrouveType(me.x)
range("C1").Value = TrouveType(me.xx)

End Sub

 

[TooFatBoy]

Cependant, ce que je n'ai pas compris, dans la colonne "NB", tu as mis une formule (cellule n - cellule (n-1)) ces cellules contiennent des dates.
Que veux-tu obtenir exactement?

Ca m'avait aussi interpelé, puis je me suis dit qu'il voulait probablement calculer le nombre de jours entre deux dates consécutives dans le tableau.

 

[mapomme]

Bonjour à tous😉,

Ma petite version avec une combobox et des contrôles de cohérences des saisies...

• Les dates commencent le jour courant et remontent jusqu'à 366 jours en arrière.
• On est limité à 23h59 pour le temps. C'est déjà bien ! Presque 24h00 en selle, il faut avoir un cuissard de sacrée bonne qualité😆.
• Le kilométrage est limité aux entiers.

 

[Phil69970]

Bonjour à tous

Je te propose ce fichier avec contrôle de la saisie ....

PS : J'ai renommé les textbox 🙂

Merci de ton retour

 

[Gégé-45550]

Bonjour le forum,

Plusieurs problèmes dans mon UserForm,
La date saisie dans l'UserForm ne correspond plus dans la colonne A
09/12/2025 devient 12/09/2025
Dans la colonne D et E le calcul ne se fait pas lors de nouvelles saisies.
Voir le fichier joint.

Merci pour votre aide

Re
À mon tour de faire une proposition, sur la base de l'excellent fichier de mapomme, avec possibilité de décimales pour les kilomètres, totaux et moyennes.
Cordialement,