Bonjour,
C'est bizarre, l'envoi de 17 H 15 ne s'affiche toujours pas
J'ai bricolé une function pour extraire des caractères d'une cellule.
Public Function gcar(cel, deb, fin)
On Error GoTo finn
gcar = Mid(cel, deb, fin)
If gcar = Val(Mid(cel, deb, fin)) = 0 Then GoTo finn
gcar = Val(Mid(cel, deb, fin))
finn:
End Function
Cela marche, les valeurs textes reviennent bien en texte, mais les valeurs
numériques ne sont pas reconnues si il y a une virgule.
comment faire pour y remédier?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Nicolas,
Essaie ceci :
'------------------------- Public Function gcar(cel, deb, fin)
On Error Resume Next Dim S As String
S = Left(Format(0#, ".0"), 1) gcar = Replace(Mid(cel, deb, fin), ",", S) If IsNumeric(gcar) Then gcar = gcar * 1
End Function '-------------------------
Salutations!
"nicolas S" a écrit dans le message de news: dioniv$9j9$ Bonjour, C'est bizarre, l'envoi de 17 H 15 ne s'affiche toujours pas J'ai bricolé une function pour extraire des caractères d'une cellule.
Public Function gcar(cel, deb, fin) On Error GoTo finn
gcar = Mid(cel, deb, fin) If gcar = Val(Mid(cel, deb, fin)) = 0 Then GoTo finn gcar = Val(Mid(cel, deb, fin))
finn: End Function
Cela marche, les valeurs textes reviennent bien en texte, mais les valeurs numériques ne sont pas reconnues si il y a une virgule. comment faire pour y remédier?
merci à vous
Nicolas
Bonjour Nicolas,
Essaie ceci :
'-------------------------
Public Function gcar(cel, deb, fin)
On Error Resume Next
Dim S As String
S = Left(Format(0#, ".0"), 1)
gcar = Replace(Mid(cel, deb, fin), ",", S)
If IsNumeric(gcar) Then gcar = gcar * 1
End Function
'-------------------------
Salutations!
"nicolas S" <NmcnSsaillardP@libertysurf.fr> a écrit dans le message de news: dioniv$9j9$1@news.tiscali.fr...
Bonjour,
C'est bizarre, l'envoi de 17 H 15 ne s'affiche toujours pas
J'ai bricolé une function pour extraire des caractères d'une cellule.
Public Function gcar(cel, deb, fin)
On Error GoTo finn
gcar = Mid(cel, deb, fin)
If gcar = Val(Mid(cel, deb, fin)) = 0 Then GoTo finn
gcar = Val(Mid(cel, deb, fin))
finn:
End Function
Cela marche, les valeurs textes reviennent bien en texte, mais les valeurs
numériques ne sont pas reconnues si il y a une virgule.
comment faire pour y remédier?
'------------------------- Public Function gcar(cel, deb, fin)
On Error Resume Next Dim S As String
S = Left(Format(0#, ".0"), 1) gcar = Replace(Mid(cel, deb, fin), ",", S) If IsNumeric(gcar) Then gcar = gcar * 1
End Function '-------------------------
Salutations!
"nicolas S" a écrit dans le message de news: dioniv$9j9$ Bonjour, C'est bizarre, l'envoi de 17 H 15 ne s'affiche toujours pas J'ai bricolé une function pour extraire des caractères d'une cellule.
Public Function gcar(cel, deb, fin) On Error GoTo finn
gcar = Mid(cel, deb, fin) If gcar = Val(Mid(cel, deb, fin)) = 0 Then GoTo finn gcar = Val(Mid(cel, deb, fin))
finn: End Function
Cela marche, les valeurs textes reviennent bien en texte, mais les valeurs numériques ne sont pas reconnues si il y a une virgule. comment faire pour y remédier?
