Bonjour,

J'ai fait un code avec ma petite expérience VBA et je bloque sur le point suivant:

J'aimerais supprimer le dernier caractère dans la colonne D des valeurs commençant par "ARPEGE\A" .

Avec le code ci-dessous cela fonctionne mais à chaque fois que je l’exécute il m’enlève de nouveau un caractère .

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
  Dim cell As Range
  Dim datarange
Set datarange = Sheets("liste transferts").Range("D:D")
 
    Columns("D:D").Select
 
    Selection.Replace What:="GL00X", Replacement:="ARPEGE\X", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="GL00", Replacement:="ARPEGE\A", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
For Each cell In datarange
 
  If Left$(cell.Value, 8) = "ARPEGE\A" Then
  cell = Left(cell.Value, Len(cell.Value) - 1)
  End If
 
  Next
Est -il possible de mettre le même nombrer de caractère pour toutes les valeurs de la colonne D soit 14 caractères ?
Cela évitera de spécifier de faire le changement seulement sur les valeurs commençant pas "ARPEGE\A".

Merci de votre aide