Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Extraction de données à partir d'une cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Spiroul
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

Spiroul

XLDnaute Nouveau
Bonjour, (désolé pour le retard à l'allumage)

Voilà mon problème, dans le cadre de la création d'un petit programme de recensement de sites de production et de lieux d'utilisation j'ai une macro me récupérant à partir de google maps les trajets.

Mais je récupère les infos distance et temps de trajets dans une même collone sous le format distance - temps,

J'aimerais extraire directement ces facteurs pour avoir dans une cellule la distance et dans une autre le temps.
Seul hic j'ai plusieurs type de formats :

X m – environ X minute
X m – environ X minutes
X km – environ X minutes
X km – environ X heure X minute
X km – environ X heure X minutes
X km – environ X heures X minute
X km – environ X heures X minutes

Pour la distance ça va à peu près en gardant la partie numérique avant km ou m, mais pour la durée je vois pas trop comment créer une macro qui extrairait le nombre d'heures, le multiplierai par 60 puis extrairait le nombre de minutes et le rajouterai à la valeur trouvée pour les heures.

Des idées ou pistes ?
Merci​
 
Dernière édition:
Trier par date Trier par votes
Re : Extraction de données à partir d'une cellule

Bonjour, Aussi à toi....

Merci, aussi...

Après ces quelques échanges amicaux, prouvant par là-même que nous ne sommes pas des robots, peux-tu joindre un fichier, avec quelques données contenant les distances et temps de parcours?

@ te relire
 
Vote positif 0 Vote négatif
Re : Extraction de données à partir d'une cellule

Bonjour bhbh, Bonjour Spiroul,

pour les distances, en E2 :

Code: 
=SI(ESTNUM(CHERCHE("km";GAUCHE(D2;CHERCHE("–";D2)-2)));GAUCHE(GAUCHE(D2;CHERCHE("–";D2)-2);CHERCHE(" ";GAUCHE(D2;CHERCHE("–";D2)-2))-1)*1;GAUCHE(GAUCHE(D2;CHERCHE("–";D2)-2);CHERCHE(" ";GAUCHE(D2;CHERCHE("–";D2)-2))-1)/1000)

Attention, les tirets dans la formule sont des tirets "longs" (demi-cadratin ?)
 
Vote positif 0 Vote négatif
Re : Extraction de données à partir d'une cellule

Re,

regarde le fichier

le code :

Code: 
Sub google()
Dim Cel As Range
Dim DerLig As Long
Dim X As Long
DerLig = [D65000].End(xlUp).Row
With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
End With
Range("D2:D" & DerLig).TextToColumns Destination:=Range("E2"), DataType:=xlDelimited, _
    OtherChar:="–"
For Each Cel In Range("E2:E" & DerLig)
    X = InStr(1, Cel, "km")
    If X > 0 Then
        Cel = CDbl(Left(Cel, X - 2))
    Else
        X = InStr(1, Cel, "m")
        Cel = Format(CDbl(Left(Cel, X - 2)) / 1000, "0.000")
    End If
Next Cel
For Each Cel In Range("F2:F" & DerLig)
    If InStr(1, Cel, "heure") > 0 Then
        X = InStr(1, Cel, "heures")
        If X > 0 Then
            Cel = CDate(Val(Mid(Cel, X - 3, 2)) & ":" & Val(Mid(Cel, X + 7, 2)))
        Else
            X = InStr(1, Cel, "heure")
            If X > 0 Then
                Cel = CDate(Val(Mid(Cel, X - 2, 1)) & ":" & Val(Mid(Cel, X + 6, 2)))
            End If
        End If
    Else
        X = InStr(1, Cel, "minute")
        If X > 0 Then
            Cel = CDate("00:" & Val(Mid(Cel, X - 3, 2)))
        End If
    End If
Next Cel
Range("F2:F" & DerLig).NumberFormat = "[$-F400]h:mm:ss AM/PM"
End Sub

Fichier
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Extraction de données à partir d'une cellule

Merci bhbh, ça marche.
Il manquait juste un
Code: 
Range("D2:D" & DerLig).TextToColumns Destination:=Range("F2"), DataType:=xlDelimited, _
    OtherChar:="–"
Avant le test sur la collonne F.

Sinon c'est parfait, merci de m'avoir consacré un peu de temps
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
256
PHIL37
P
H
  • Résolu(e)
XL 2016 Trouver le poste en fonction des heures
Réponses
3
Affichages
93
hutch57
H
T
  • Question Question
Microsoft 365 Calcule de profit dans un tableau croisé dynamique
Réponses
5
Affichages
589
mapomme
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
641
ali591
A
  • Résolu(e)
XL 2010 Extraction de la valeur de l’heure d’une date
2
Réponses
15
Affichages
633
jeanmi
W
  • Résolu(e)
XL 2016 Écriture correcte d'un Transpose() avec FormulaLocal à partir de données d'une autre feuille
Réponses
6
Affichages
180
Webperegrino
W
  • Résolu(e)
XL 2021 Liste de validation de données à partir d'une table
Réponses
3
Affichages
239
Zdz16
  • Question Question
Microsoft 365 conversion données au en minutes
Réponses
9
Affichages
510
vgendron
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
951
fanfan38
E
  • Question Question
Microsoft 365 Etalage d'heures à partir de données
Réponses
8
Affichages
644
eiola
E
P
  • Question Question
XL 2010 Tableau de poules
15 16 17
Réponses
250
Affichages
16 K
Perceval64
P
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
238
Lu76Fer
D
  • Résolu(e)
XL 2016 Peut-on intégrer une condition de temps à une cellule ?
Réponses
8
Affichages
554
Damstarr
D
  • Résolu(e)
XL 2021 calcul de l'heure quand le soleil est au Zénith
3 4 5
Réponses
64
Affichages
2 K
dysorthographie
  • Question Question
XL 2021 VBA Ajout d'une valeur en heure dans une cellule
2
Réponses
21
Affichages
867
TooFatBoy
  • Résolu(e)
XL 2021 Faire une copie de mon classeur quand "Target" change
2 3
Réponses
30
Affichages
3 K
Usine à gaz
D
  • Résolu(e)
XL 2019 Report automatique de données
2
Réponses
17
Affichages
1 K
AtTheOne
B
  • Question Question
XL 2016 Ramener une plage de données en fonction d'une cellule
Réponses
11
Affichages
526
JHA
J
O
  • Résolu(e)
XL 2019 Comment remplir un tableau à partir d'une base de données en répondant à plusieurs critères
Réponses
3
Affichages
344
Gégé-45550
J
  • Question Question
Microsoft 365 Retraiter les données d'une extraction mal fichue
Réponses
4
Affichages
411
José FELIX
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…