Bonjour a tous,

Voila j'ai un petit souci a vous soumettre avec un format de chiffres
que je voudrais convertir le format a convertir et le suivant:
il sagit des cotes turf.fr importer dans excel car une fois copier dans un onglet excel il s'affiche comme ceci par exemple 9/1 et je voudrais si vous le voulez bien le convertir en chiffre 9 tout cour
mais pour que ce soit plus claire je vous est mis un exemple
donc si vous voulez bien y jeter un petit coup d'oeil

je vous en remerci beaucoup

Samuel

Bonjour Samuel59

Une solution en sélectionnant la colonne D de ta feuille, et faire un "Rechercher et selectionner" de la barre d'outils acceuil (office 2010), dans la boîte de dialogue tu tapes "/1" (sans les guillements) et tu mets le champ remplacer à vide, et tu valides la boîte de dialogue.

@+Jean-Marie

Bonjour Samuel, bonjour le forum


Pour ton probleme de /1, tu saisis toutes tes données, tu fais avec les touches du clavier Ctrl+H, tu inscris /1 dans "rechercher", puis dans "remplacer par" tu laisses la case vide, tu appuies sur "remplacer tout", et le tour est joué, ensuite tu refais la même opération, dans "rechercher" tu tapes le . du clavier, et dans "remplacer par" tu tapes le . du clavier numérique, tu appuies sur "remplacer tout".

Ensuite tu saisis la totalité des chiffres, tu vas dans format, cellules, nombre, et tu demandes 2 décimales


Et après tu pourras faire tous les calculs que tu veux sans aucun problème

Bonne soirée à tous

JC24

Bonjour a tout le forum,


bonjour JC24,Jean-Marie,
J'avait pensé a cette méthode mais le souci c'est que je vais devoir la refaire a chaque importation
C'est pourquoi je voulais voir si il y avait pas une autre solution avec une formule ou une macro biensur si il y a pas d'autre solution je ferais comme ça mais bon..

dans tout les cas je vous remerci de vous intéréssé a ma demande.

Samuel


 

Re bonjour a tous,

Bon pour la convertion des cotes j'ai réusit a créer une petit formule qui fonctionne impec donc résolu!

par contre j'aurais une autre question a vous demander
est ce qu'il est possible de faire un call avec un:
Private sub commandbutton2_click()
comme ceci:

sub Essai

call private sub commandbutton2_click ()

End sub

Merci Beaucoup

Salut le Forum

Samuel, si tu utilises une de mes versions pour récupérer les "Cotes".

Dans la macro «Sub CopierCotes()» du Module Transfert

Modifie la partie suivante :
Mytå

Citation :
Bonjour Myta ,
Oui biensur j'utilise ta version
et  la modif fonctionne impecable et moin compliqué qu'avec des formules !!
par contre Myta est ce possible de faire ça en partant biensur de tes modules

sub Essai

call private sub commandbutton2_click ()

End sub

Merci Beaucoup Myta
Samuel

Bonjour le forum,
Bonjour Myta,
est ce qu'il serais possible de modifier ce code:

Private Sub CommandButton2_Click()
'Bouton Mise à jour des Cotes
Dim Cel As Range

ActiveSheet.TextBox1.Visible = True

With Sheets("ReqDate")
  For Each Cel In .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
    If ComboBox1 = Cel And Cel.Offset(, 2) = Trim(Split(ComboBox2, " - ")(0)) Then
    Call Get_CourseCotes(Cel.Hyperlinks(1).Address)
    End If
  Next Cel
End With

Call CopierCotes
ActiveSheet.TextBox1.Visible = False

End Sub
pour le mettre dans un module comme ceci:

Sub importcotes()

'
'Bouton Mise à jour des Cotes
Dim Cel As Range

ActiveSheet.TextBox1.Visible = True

With Sheets("ReqDate")
  For Each Cel In .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
    If ComboBox1 = Cel And Cel.Offset(, 2) = Trim(Split(ComboBox2, " - ")(0)) Then
    Call Get_CourseCotes(Cel.Hyperlinks(1).Address)
    End If
  Next Cel
End With

Call CopierCotes
'ActiveSheet.TextBox1.Visible = False

End Sub