P.O.I.et GPS et Fichier K2

  • Initiateur de la discussion Initiateur de la discussion WDAndCo
  • 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 !

WDAndCo

XLDnaute Impliqué
Bonjour le Forum

Je bricole un petit fichier pour Récupéré des POI.
Donc me voici a mettre les Ft et les MPH en M et Km/H
Une colonne ca marche et pas l'autre ! ! !

Celle-ci elle marche
Code:
=SI(Feuil1!A2<>"";CNUM(STXT(Feuil1!F2;5;10))*0,3048&" m";"")
et celle-ci non
Code:
=CNUM((STXT(Feuil1!G2;7;6))*1,609&" KM/h")
pourquoi !

Voir le fichier joint.

Merci d'avance
Dominique
 

Pièces jointes

Re : P.O.I.et GPS et Fichier K2

Bonsoir WDAndCo,

Ta formule fais référence à des valeurs numériques contenant des points et pas des virgules. Voici donc la formule que tu peux utiliser :
Code:
=CNUM(STXT(SUBSTITUE(Feuil1!G2;".";",");7;6))*1,609&" KM/h"

A+
 
Re : P.O.I.et GPS et Fichier K2

Bonjour WDAndCo.

Un nombre sous format texte multiplié par un nombre est automatiquement converti en nombre.
Donc :
Code:
=STXT(Feuil1!G2;7;6)*1.609&"KM/h"
suffit amplement.
Tu peux même faire l'économie de
Code:
&"KM/h"
en choisissant un format de nombre personnalisé :
Code:
0.00 " Km/h"
Ce qui réduit ta formule à :
Code:
=STXT(Feuil1!G2;7;6)*1.609
 
Re : P.O.I.et GPS et Fichier K2

Bonsoir le Forum

Merci pour vos réponses mais la seule solution qui fonctionne chez moi est celle de Fred0o c'était donc bien une histoire de point au lieu de virgule !

Bon maintenant je voudrais faire des liens automatiquement avec les Latitudes et Longitudes qui sont dans les colonnes E et F les lien seront dans la colonne K et devront pointer vers "http://www.google.fr/search?q=50.623713%092.552168" par exemple.
50.623713 2.552168
50.644900 2.721545
50.644672 2.636770
50.640690 2.636283
50.640435 2.636698
50.660618 2.600878
50.711727 2.681248
50.711550 2.680732
50.779475 2.773667
50.681712 2.572720
50.680385 2.573913
50.705698 2.778725
50.681653 2.572853
50.681685 2.572748

Comment faire ces liens automatiquement ?

D'avance merci
 
Re : P.O.I.et GPS et Fichier K2

Bonsoir le Forum

Merci beaucoup Tibo

Un autre truc me chagrine : J'ai ce debut de code pour extraire des données
Code:
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\Dominique\Documents\Personnel\CI\Sauvegarde\poi.k2", _
        Destination:=Range("A2"))
        .Name = "poi.k2"

Comment le changer et le rendre "Passe Partout" car les 2 fichiers seront dans le même dossier (ici Sauvegarde)
 
Dernière édition:
Re : P.O.I.et GPS et Fichier K2

Bonsoir,

peut être ainsi, mais pas sûr de ton problème... :
Code:
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & ThisWorkbook.Path & "\poi.k2", _
        Destination:=Range("A2"))
        .Name = "poi.k2"

bonne soirée
@+
 
Re : P.O.I.et GPS et Fichier K2

Bonsoir le Forum


J'ai trouver la dernière ligne d'une autre feuille = X
J'ai cette ligne de formules : de A2 à K2
Je voudrais recopier cette ligne X fois a partir de la ligne 2
Comment faire pour l'inclure dans une macro ?
 
Re : P.O.I.et GPS et Fichier K2

Re Bonsoir le Forum

j'ai trouvé cela :
Code:
 Rows("2:2").Select
       Selection.Copy
       Rows("3:" & Range("K1").Value + 2).Select
       Selection.Insert Shift:=xlDown

ou K1 = X le nombre de ligne a copiées, mais cela ne fonctionne pas !
 
Re : P.O.I.et GPS et Fichier K2

Bonsoir le Forum

Pas de solution ?
J'ai : =SI(Feuil1!A22<>"";CNUM(STXT(SUBSTITUE(Feuil1!G22;".";",");7;6))*1,609*2&" Km/h";"")
qui me donne : 130,329 Km/h comment faire pour avoir 130 Km/h ?

Dominique
 
Re : P.O.I.et GPS et Fichier K2

Bonsoir le Forum
Merci JCGL

J'ai trouver la dernière ligne d'une autre feuille = X
J'ai cette ligne de formules : de A2 à K2
Je voudrais recopier cette ligne X fois a partir de la ligne 3
Comment faire pour l'inclure dans une macro ?

j'ai trouvé cela :
Code:
 Rows("2:2").Select
       Selection.Copy
       Rows("3:" & Range("K1").Value + 2).Select
       Selection.Insert Shift:=xlDown

ou K1 = X le nombre de ligne a copiées, mais cela ne fonctionne pas !

D'avance merci
 
- 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

C
Réponses
17
Affichages
4 K
B
Réponses
6
Affichages
3 K
Banshor
B
M
Réponses
3
Affichages
1 K
MarcTer
M
B
Réponses
15
Affichages
8 K
Biasloler
B
L
Réponses
21
Affichages
5 K
Le_Goret
L
T
Réponses
5
Affichages
17 K
thomasdu40
T
M
Réponses
3
Affichages
1 K
G
Réponses
1
Affichages
827
K
Réponses
19
Affichages
5 K
K
Retour