Discussion :

[Romist]

Bonjour à tous,

Je cherche comment remplacer les 2 premiers caractères de mon tableau mais je n'y arrive pas. J'ai cherché sur internet, ils m'ont donné quelque réponse mais aucune d'entres elles ne fonctionnent (ou je ne les ai pas compris).
Je vous explique ce que je cherche à faire et ce que j'ai fais et vous m'aiderez à y voir plus claire je l'espère.
Donc dans mon tableau excel dans la colonne A, j'ai plein de données ressemblant à 03XAS0021AZ- en sachant qu'ils commencent tous par 03 et qu'ils sont toujours suivi de 3 lettres.
Je veux pouvoir remplacer 03 par 04 et donc j'ai fait une macro en utilisant une boucle for mais sa ne fonctionne pas.

Voici ce que j'ai écrit:

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
Sub remplacement()
 
    Dim i As Integer
    Dim valeur As String
 
    i = 5
    valeur = Cells(i, 1)
    For i = 5 to 83
        'i commence à 5 car les valeurs de mon tableau commence a la ligne 5 et se termine à la ligne 83
         If Left(A & i, 2) = "03" Then
            valeur = Replace(Left(A & i, 2), "03", "04")
         End If
 
    Next
 
End Sub

L'erreur provient très certainement du Left(A & i, 2), le soucis c'est que je comprend pas vraiment la commande pour prendre les 2 premiers caractères et les remplacers

[antonysansh]

Bonjour Romist,

Tu peux tester ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
    Dim rg As Range, t(), i&
        Set rg = Range(Cells(5, 1), Cells(83, 1))
        t = rg
        For i = 1 To UBound(t)
            t(i, 1) = "04" & Right(t(i, 1), Len(t(i, 1)) - 2)
        Next i
        rg = t
fin:
    Set rg = Nothing
End Sub

Toute fois comme tu indiques que toutes tes données commencent par 03, pas besoin de tester si ça commence par 03.
De plus il ne faut pas donner vide car sinon Len(t(i, 1)) - 2) va renvoyer une erreur.

[Romist]

En effet sa fonctionne, en revanche je comprends le code jusqu'à t=rg mais après je ne comprends rien vu que je ne connais pas grand chose en vba mais merci

[antonysansh]

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
21
22
23
24
Option Explicit
 
Sub test()
    Dim rg As Range
        'rg est une plage de données
    Dim t()
        't est un tableau destiné à contenir les valeurs de rg
    Dim i&
        'i est un Long Dim i& est la même chose que Dim i as Long
        Set rg = Range(Cells(5, 1), Cells(83, 1))
            'Cells(5, 1) est la cellule A5 et Cells(83, 1) est la cellule A83
        t = rg
            't est rempli avec les valeurs de rg
        For i = 1 To UBound(t)
            'parcours de tous les éléments du tableau
                t(i, 1) = "04" & Right(t(i, 1), Len(t(i, 1)) - 2)
                    'concaténation de "04" avec la partie droite -2 caractères
        Next i
        rg = t
            't étant modifier, on met t dans le rg
fin:
    Set rg = Nothing
        'libération de la variable rg
End Sub

[Romist]

Merci pour les détails