Discussion :

[nawak83]

Bonjour,

après plusieurs tentative infructueuse, je viens faire appel a votre aide.

En effet je cherche à déplacer le dernier caractère d'une cellule pour le mettre en premier dans la même cellule.
je mexplique: dans la colonne A j'ai 32°43'45"N et je souhaite avoir N 32°43'45" et dans la colonne B j'ai 034°45'45"E et je souhaite avoir E 034°45'45". le tout en VBA.

En vous remerciant par avance pour votre aide

Bonne journée

[ARTURO83]

Bonjour,

Code à coller dans un module standard:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Intervertir()
    Dim DerLig As Long, i As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To DerLig
        If Right(Cells(i, "A"), 1) = "N" Then Cells(i, "A") = "N " & Left(Cells(i, "A"), Len(Cells(i, "A")) - 2)
        If Right(Cells(i, "B"), 1) = "E" Then Cells(i, "B") = "E " & Left(Cells(i, "B"), Len(Cells(i, "B")) - 2)
    Next i
End Sub

Cdlt

[nawak83]

Merci beaucoup pour ton code!
Est-ce que il est possible de définir la lettre de fin en variable.
Je m’explique, le code que tu as écris fonctionne que si ce sont des positions en N et E mais si c'est S et O, comment faire?

[ARTURO83]

Comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Intervertir()
    Dim DerLig As Long, i As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To DerLig
        If Right(Cells(i, "A"), 1) = "N" Or Right(Cells(i, "A"), 1) = "S" Then
            Cells(i, "A") = Right(Cells(i, "A"), 1) & " " & Left(Cells(i, "A"), Len(Cells(i, "A")) - 2)
        End If
        If Right(Cells(i, "B"), 1) = "E" Or Right(Cells(i, "B"), 1) = "O" Then
            Cells(i, "B") = Right(Cells(i, "B"), 1) & " " & Left(Cells(i, "B"), Len(Cells(i, "B")) - 2)
        End If
    Next i

Cdlt

[nawak83]

merci infiniment,

En vous souhaitant une bonne journée et de bonne fête de fin d'nnées

Cdt

[jurassic pork]

Hello,
on peut aussi utiliser une fonction personnalisée (qui s'utilise comme une formule) qui utilise les expressions régulières :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Function ConvCoordDeb(ValCoord) As String
Dim RE As Object
Set RE = CreateObject("vbscript.regexp")
ConvCoordDeb = "ERREUR"
RE.Pattern = "([^NSEW]+)([NSEW])"
If RE.test(ValCoord) Then
    ConvCoordDeb = RE.Replace(ValCoord, "$2 $1")
End If
End Function

Normalement en notation gps l'ouest c'est W ( west) sinon remplacer les W par des O.

Ami calmant, J.P