Discussion :

[RYAN78]

Bonjour

Je suis debutant en VBA, et j'aurais une problematique à vous soumettre.
Dans un tableau excel, je recuperes une liste de N° correspondant à des bandes de sauvegarde. Cette liste est au format suivant:
AB
1N° des Bandes N° des Bandes Modifiées
2[000076] 000076L1
3[000078] 000078L1
4[000080] 000080L1
5[000098] 000098L1
6[000245] 000245L1
7[000248] 000248L1

Je souhaiterais supprimer les [] et rajouter la mention L1 pour chaque N° de bandes. De plus le nombre de bandes est variable et peux être > 100.
J'ai essaye l'option REMPLACER et CONVERTIR d'excel, mais sans succès.

[dadavyvy]

Code :

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

1
2
3
4
5
6
7
8
9
For i = 1 To UsedRange.Rows.Count
    If Left(Trim(Cells(i, 1)), 1) = "[" And Right(Trim(Cells(i, 1)), 1) = "]" Then
        temp = Trim(Cells(i, 1))
        temp = Replace(temp, "[", "", , , vbTextCompare)
        temp = Replace(temp, "]", "", , , vbTextCompare)
        temp = temp & "L1"
        Cells(i, 1).Offset(0, 1) = temp
    End If
Next i

ou

Code :

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

1
2
3
4
5
For i = 1 To UsedRange.Rows.Count
    If Left(Trim(Cells(i, 1)), 1) = "[" And Right(Trim(Cells(i, 1)), 1) = "]" Then
        Cells(i, 1).Offset(0, 1) = Mid(Trim(Cells(i, 1)), 2, Len(Trim(Cells(i, 1))) - 2) & "L1"
    End If
Next i