P.O.I.et GPS et Fichier K2

[WDAndCo]

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

=SI(Feuil1!A2<>"";CNUM(STXT(Feuil1!F2;5;10))*0,3048&" m";"")

et celle-ci non

=CNUM((STXT(Feuil1!G2;7;6))*1,609&" KM/h")

pourquoi !

Voir le fichier joint.

Merci d'avance
Dominique

 

[WDAndCo]

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

Bonjour le Forum

Non rien juste un UP !

 

[JCGL]

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

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Sub Test()
    Rows("2:2").Copy
    Rows("3:" & Range("K1").Value + 2).Insert Shift:=xlDown
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

A+ à tous

 

[WDAndCo]

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

Bonjour le Forum, et merci JCGL

Mais cela ne marche pas (c'était déjà mis dans un macro !)
Mon problème est de recopier X fois la ligne 2 a partir de la ligne 3
Et X = le valeur de la cellule K1

 

[JCGL]

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

Bonjour à tous,

Il est rare que je dépose un code sans l'avoir testé.....

Voir le fichier joint

A+ à tous

 

[WDAndCo]

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

Bonjour le Forum,

J'avoue ne plus comprendre. Votre fichier fonctionne très bien !
Mais dés que j'incorpore votre code sur le mieux il ne fonctionne plus. (Voir fichier joint)
Je vous rassure de suite c'est bien moi incompétent. Merci de me guider.

Dominique

 

[JCGL]

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

Bonjour à tous,

Ta cellule K1 est au format texte par l'ajout du &"Liens"
Passe en format personnalisé Standard" Liens"

A+ à tous

 

[WDAndCo]

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

Bonjour le Forum
Merci beaucoup JCGL

 Range("A2:K2").Select
    Selection.AutoFill Destination:=Range("A2:K" & Range("AA1").Value + 2), Type:=xlFillDefault

J'ai laissé la K1 de la feuille POI comme elle était !
Car dans mon esprit cétait la K1 de feuille1 (mais la macro changeait de feuille)
Donc la valeur de K1 feuille1 est maintenant en AA1 de la feuille POI.
Et le précédent code insérer des lignes alors qu'il faut les copier.

Encore merci, et bon WK

Dominique

 

[JCGL]

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

Bonjour à tous,

Range("A2:K2").AutoFill Destination:=Range("A2:K" & Range("AA1").Value + 2)

devrait suffire

A+ à tous
​