Convertir une fraction "format texte" en décimal

[Amilo]

Bonsoir le forum,

Je rencontre un problème pour transformer une fraction en décimal.

En colonne A du fichier en annexe se trouve la fraction et dans la colonne B le résultat que je souhaite obtenir.

En colonne C, une tentative par la formule =cnum() mais ça ne fonctionne pas...!!

Pour info, le format de la colonne A est obtenu suite à une importation de données d'une page Web.
Le format décimal est possible sur option mais la fraction est le format par défaut du site.
Mon 1er import prend bien le format décimal après sélection de l'option décimal mais lors d'une actualisation des données, le format fraction est réappliqué par défaut...!!!

Sinon, je dois faire avant chaque actualisation un clique droit puis "modifier la requête" pour sélectionner l'option "décimal".

Merci d'avance pour votre soutien

Cordialement

 

[ROGER2327]

Re : Convertir une fraction "format texte" en décimal

Bonsoir Amilo

Essayez ceci :

[COLOR="DarkSlateGray"][B]=GAUCHE(A1;CHERCHE("/";A1;1)-1)/DROITE(A1;NBCAR(A1)-CHERCHE("/";A1;1))[/B][/COLOR]

ROGER2327
#4286

Vendredi 6 Haha 138 (Sainte Tourte, lyrique et Sainte Bévue, sociologique, SQ)
20 Vendémiaire An CCXIX
2010-W41-1T22:14:09Z

 

[Amilo]

Re : Convertir une fraction "format texte" en décimal

Bonsoir Roger2327,

C'est super, ça fonctionne à merveille,

Mille mercis pour votre aide et votre rapidité,

P.S : formule trés intéressante, j'étais à des années lumières avec mon =cnum()

Bonne nuit à toutes et à tous

Cordialement

 

[ROGER2327]

Re : Convertir une fraction "format texte" en décimal

Suite...

On peut aussi utiliser une fonction personnalisée comme celle-ci :

[COLOR="DarkSlateGray"][B]Function quotient(r)
Application.Volatile
Dim spl
  If IsEmpty(r) Then
    quotient = ""
  Else
    quotient = r.Value
    spl = Split(r.Value, "/")
    If UBound(spl) = 1 Then
      On Error Resume Next
      quotient = spl(0) / spl(1)
      On Error GoTo 0
    End If
  End If
End Function[/B][/COLOR]

qui évitera bien des problèmes.
Voyez le fichier joint.​

ROGER2327
#4287

Vendredi 6 Haha 138 (Sainte Tourte, lyrique et Sainte Bévue, sociologique, SQ)
20 Vendémiaire An CCXIX
2010-W41-1T22:39:05Z

 

[Amilo]

Re : Convertir une fraction "format texte" en décimal

Suite...

On peut aussi utiliser une fonction personnalisée comme celle-ci :

[COLOR="DarkSlateGray"][B]Function quotient(r)
Application.Volatile
Dim spl
  If IsEmpty(r) Then
    quotient = ""
  Else
    quotient = r.Value
    spl = Split(r.Value, "/")
    If UBound(spl) = 1 Then
      On Error Resume Next
      quotient = spl(0) / spl(1)
      On Error GoTo 0
    End If
  End If
End Function[/B][/COLOR]

qui évitera bien des problèmes.
Voyez le fichier joint.​

ROGER2327
#4287

Vendredi 6 Haha 138 (Sainte Tourte, lyrique et Sainte Bévue, sociologique, SQ)
20 Vendémiaire An CCXIX
2010-W41-1T22:39:05Z

Merci Roger2327 pour cette autre solution,

mais pas certain d'avoir tout compris, à l'ouverture du fichier j'ai le message suivant "erreur de fichier : risque de perte de données"

Ensuite j'ai une 2ème boîte de dialogue qui s'ouvre (voir copie d'écran ci-dessous),

Dans le fichier, le résultat donne que des #N/A dans la colonne E suite certainement à cette macro...!!



Merci comme même, la précédente formule est parfaite pour mon cas.

Je tenterai de comprendre votre autre solution...

Bonne nuit

Cordialement

 

[Amilo]

Re : Convertir une fraction "format texte" en décimal

Oups une autre tentative pour la copie d'écran,

dépôt de fichiers[/url] Cijoint.fr - Service gratuit de dépôt de fichiers

Cordialement

P.S : désolé pas terrible pour le lien, je crois qu'on peut faire mieux avec une copie d'écran directement déposée sur ce fil mais je ne sais plus le faire

 

[ROGER2327]

Re : Convertir une fraction "format texte" en décimal

Re...

Explication simple : incompatibilité de versions d'Excel.
Je modifie la fonction :

[COLOR="DarkSlateGray"][B]Function kotient(r)
Application.Volatile
Dim spl
  If IsEmpty(r) Then
    kotient = ""
  Else
    kotient = r.Value
    spl = Split(r.Value, "/")
    If UBound(spl) = 1 Then
      On Error Resume Next
      kotient = spl(0) / spl(1)
      On Error GoTo 0
    End If
  End If
End Function[/B][/COLOR]

Tout devrait rentre dans l'ordre.​

ROGER2327
#4288

Vendredi 6 Haha 138 (Sainte Tourte, lyrique et Sainte Bévue, sociologique, SQ)
20 Vendémiaire An CCXIX
2010-W41-1T23:06:11Z

 

[Amilo]

Re : Convertir une fraction "format texte" en décimal

En effet Roger2327,

je comprends mieux l'interêt de cette macro,

Merci pour cette correction, je pense que ça pourrait effectivement éviter des surprises pour mes futurs "imports web", ne serait ce déjà pour les cellules vides.

Encore merci pour votre aide

Bonne nuit

Cordialement.