[Excel] Transposition de bornes

Bonjour à vous, les pros !

Étant un piètre utilisateur d'Excel, je viens vous demander conseil pour un petit problème.

Je suis actuellement en master et j'effectue, pour mon mémoire, un petit travail sur un fichier excel de 2500 lignes

La colonne "CARN_LIEU" me donne des bornes représentants divers endroits où les personnes vont se déplacer. Par exemple sur la première ligne, la personne va partir de la borne 19B3 pour se rendre à un autre endroit 21B2. La ligne suivante, cette même personne va repartir de l'endroit 21B2 pour retourner chez elle en 19B3 et ainsi de suite.

Il faut donc que je note ces bornes dans une autre colonne et j'aurais aimé savoir si une petite commande permettait de faire ça plus rapidement.

CARN_LIEU | Bornes

21B2 | 19B3-21B2

19B3 | 21B2-19B3

25A2 | 19B3-25A2

5B1 | 25A2-5B1

6A1 | 5B1-6A1

19B3 | 6A1-19B3

Je vous remercie par avance pour vos propositions !

Bonne jourée!

Bonjour et bienvenue,

Peux-tu nous fournir un fichier,

un cinquantaine de lignes devrait suffire

avec résultat souhaité sur un ou deux exemples

Amicalement

Claude

Vous pourrez trouver l'extrait à cette adresse :

Merci pour votre aide, je reste ici pour les questions!

J'ai coloré en rouge les colonnes concernant ma question.

En fait, J'ai ma première colonne de format

A

B

C

D

E

F

G

et utiliser une formule pour obtenir une colonne de ce type :

A-B

B-C

C-D

D-E

E-F

F-G

re,

pour le 1er fichier, j'ai ajouté la 1ère ligne (départ domicile)

Sub Bornes()
Dim Lg%, i%
    Application.ScreenUpdating = False
    Lg = Range("a65536").End(xlUp).Row

    For i = 3 To Lg
        Cells(i, "d") = Cells(i - 1, "c") & "-" & Cells(i, "c")
    Next i
End Sub

pour joindre un fichier, utilise plutôt la voie classique

joindrefichier

Amicalement

Claude

édit par formule:

en D3 à tirer vers le bas

=C2&"-"&C3

21lorris-bornes.zip (11.88 Ko)

Merci Claude, votre code à l'air d'être bon. Cependant, mes connaissance limitée dans le logiciel m'empêche de le transposer sur mon fichier de base. Comment puis-je opérer ?

Cordialement,

Update : qu'entendez-vous par :

en D3 à tirer vers le bas

=C2&"-"&C3 ?

-- 18 Avr 2011, 13:51 --

Je viens de comprendre et je pense que cela marche parfaitement. Je vais faire des vérifications sur mes 2500 données et je vous donne la réponse finale bientôt!

re,

en D3 à tirer vers le bas

=C2&"-"&C3

c'est une formule, pas besoin de code VBA

tu écris cette formule en D3, et avec la poignée (coin bas droite) de la cellule

tu tire jusqu'à ta dernière ligne utilisée

sinon en VBA, il faut activer les macros

au choix bien sûr !

Claude

Bon, cette formule est parfaitement parfaite! Mon problème est résolu, merci Claude pour votre temps. J'espère que cela pourra aider d'autres personnes )

Bonne journée à vous!

Cordialement

petite formalité !

Rechercher des sujets similaires à "transposition bornes"