Discussion :

[Tournament]

Bonjour,

je crois comprendre du code suivant ( que j ai récupéré sur le forum ) qu il s'agit de mettre au format date et nombre des format textes récupérés à partir d'un formulaire ou autres
Il s'agit plutôt d'une "fonction" ?
Ne voulant pas copier bêtement un code, et cela pourrait peut être aider d'autre débutant comme moi mais quelqu un pourrait il m'éclairer sur cette fonction ?

Merci par avance
bon dimanche a tous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Function TrouveType(V)
TrouveType = V
If IsDate(TrouveType) = True And InStr(TrouveType, "/") <> 0 And InStr(TrouveType, ":") <> 0 Then TrouveType = Format(TrouveType, "yyyy-mm-dd hh:mm"): 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

[Theze]

Bonjour,

C'est une fonction proposé par Robert ici pour valider et formater une date ou une valeur numérique.

Il s'agit plutôt d'une "fonction" ?

Effectivement, c'est une fonction !

Dans la première ligne, l'argument passé à la fonction lui est affecté (pour simplifier).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TrouveType = V

Dans la seconde ligne, si l'argument est par exemple "09/08/15 10:25" (date et heure), il sera validé par la fonction "IsDate" et formaté de cette façon "2015/08/09 10:25" (année-mois-jour heures:minutes) à condition que jour, mois et année soit séparés par des slashs et heure et minute par un double point.
Si tu entre la valeur sous cette forme, "09-08-15 10:25", la fonction "IsDate" validera car c'est un format de date valide mais elle ne sera pas formaté par la fonction car ne possède pas les / (pas d'année en entier et pas d'inversion année-jour)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If IsDate(TrouveType) = True And InStr(TrouveType, "/") <> 0 And InStr(TrouveType, ":") <> 0 Then TrouveType = Format(TrouveType, "yyyy-mm-dd hh:mm"): Exit Function

Dans la troisième ligne, même que précédemment mais ne concerne que la date

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If IsDate(TrouveType) = True And InStr(TrouveType, "/") <> 0 Then TrouveType = Format(TrouveType, "yyyy-mm-dd"): Exit Function

Pour la dernière ligne, ça concerne les valeurs numériques. La fonction "IsNumeric" valide si la valeur est numérique, mais au préalable, la fonction "Replace" remplace l'éventuel point par la virgule car la fonction "IsNumeric" se base sur les paramètres régionaux (pour nous, généralement la virgule comme séparateur décimal) ensuite, la virgule est remplacée par le point qui est le séparateur décimal pour VB.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If IsNumeric(Replace(TrouveType, ".", ",")) = True Then TrouveType = Replace(TrouveType, ",", "."): Exit Function

Hervé.

[Theze]

Oups
pas : "formaté de cette façon "2015/08/09 10:25" (année-mois-jour heures:minutes)"
mais : "formaté de cette façon "2015-08-09 10:25" (année-mois-jour heures:minutes)"

Hervé.

[Tournament]

Bonsoir Hervé

merci beaucoup pour ton éclairage
c'est effectivement plus clair et plus sympa de comprendre ce que j utilise
bravo en tous cas pour votre dévouement sur le forum

bonne soirée

Bien cordialement

[Invité]

Bonjour,
Pour compléter ce qu'a dit Hervé, je dirais que trouveType n'est pas une fonction de conversion mais une fonction qui analyse le paramètre entré, pour le formater en valeur intelligible par Excel de façons univoque!

Pour ce convaincre qu'Excel passe son temps à analyser les données saisies par l'utilisateur il suffit de saisir 1/1/15 dans un cellule et même si c'est réellement ce que l'utilisateur veut saisir!

[Tournament]

merci pour ce complément d'informations
j ai un petit soucis lors de l'execution d'un code
où j ai un message qui me dit " Impossible d'afficher une feuille non modale lorsqu'une feuille modale est affichée "
quelle est la signification de ce message ?

D'avance merci