Deplacement d'un caractere dans une cellule

Version imprimable

29/12/2022, 06h15
nawak83

Deplacement d'un caractere dans une cellule

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

Bonjour,

Code à coller dans un module standard:

Code:

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

29/12/2022, 10h14
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?

Comme ceci:

Code:

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

29/12/2022, 11h00
nawak83

merci infiniment,

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

Cdt

1 pièce(s) jointe(s)

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

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
Pièce jointe 631575

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

Ami calmant, J.P