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

Problème intervertir des coordonnées X,Y d'une cellule excel

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

T

tom73

Guest
Bonjour,

J'ai un petit problème avec des coordonnées excel que je dois interpréter dans un fichier .kml pour une carte google maps.

Je m'explique, j'ai différentes cellules dans lesquelles contient plusieurs coordonnées:

ex:
A1:45.92136228,6.64944810;45.91979222,6.64950529;45.91917237,6.64945651;
A2:45.96305821,6.63207133;45.95731555,6.63472117;45.95407625,6.63600448;
A3:Y,X;Y,X;Y,X;

En fait je voudrais simplement que chacune de mes cellules contiennent :
A1:X,Y;X,Y;X,Y;
A2:X,Y;X,Y;X,Y;
A3:X,Y;X,Y;X,Y;

S'il existerai une fonction pour ce faire cela m'eviterais de faire mes 200 lignes à la main avec chacune 20 coordonnées. lol.


Merci d'avance de m'aider.
 
Re : Problème intervertir des coordonnées X,Y d'une cellule excel

Bonjour,

Pourrais-tu joindre un extrait de ton fichier (en mettant en manuel ce que tu veux obtenir), car je n'ai pas bien compris ce que tu voulais faire.

Peut-être une piste du côté de Données - Convertir, mais sans fichier, pas sûr du tout.

@+
 
Re : Problème intervertir des coordonnées X,Y d'une cellule excel

En fait j'ai un fichier excel "point.xls", dans mes cellules se trouvent des séries de coordonnées (Y,X) séparrées par des ";" à chaque fois, et je veux simplement intervertir le X avec le Y de façon à avoir un nombre (X,Y), parceque tous mes points sont à l'envers.

je t'envoie un fichier.
 

Pièces jointes

Re : Problème intervertir des coordonnées X,Y d'une cellule excel

Bonjour

un essai en macro

Code:
Sub toto()
For x = 1 To Range("A65536").End(xlUp).Row
    montableau = Split(Range("A" & x), ";")
        marep = ""
        For y = 0 To UBound(montableau)
            montableau2 = Split(montableau(y), ",")
            If UBound(montableau2) > 0 Then
            marep = marep & montableau2(1) & "," & montableau2(0) & ";"
            End If
        Next
        Range("A" & x) = marep
Next
End Sub
 
Re : Problème intervertir des coordonnées X,Y d'une cellule excel

C'est parfait tout ça !

Merci beaucoup PascalXLD, ça vient de m'avancer énormément dans mon boulot !
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
  • Question Question
Réponses
2
Affichages
1 K
Daniel Bretelles
D
J
Réponses
2
Affichages
785
J
Réponses
3
Affichages
1 K
Jean pascal
J
T
Réponses
12
Affichages
2 K
tometstf
T
A
Réponses
6
Affichages
11 K
A
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…