Bonjour,

Ne connaissant rien en VBA, je sollicite votre aide.
Mon code suivant ne fonctionne pas du tout, je souhaite incrémenter le numéro de colonne et renvoyer la lettre correspondante qui vient remplacer une référence de colonne dans les cellules.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
' Macro1 Macro
    Dim X As Integer
    X = 18 'Numéro ligne de départ
    Y = 4 'Numéro colonne de départ
    While X <= 372 'Tant que la variable X est <= 372, la boucle est répétée
        X = X + 2 'X est augmenté de 2 à chaque boucle
        Y = Y + 1 'Y est augmenté de 1 à chaque boucle
        Range(Cells(X - 1, 2), Cells(X, 5)).Select 'On sélectionne la plage à modifier
        Selection.Replace What:="$D", Replacement:="$" & Chr(Y), LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False 'On recherche la colonne à remplacer dans les cellules et remplace par la colonne voulue
        Wend
End Sub
En vous remerciant par avance,
Cordialement