Incrémenter lettre macro

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:

---

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

Bonjour,

Attention à la correspondance Caractère Lettre -> code ASCII
Lettre (MAJ) -> code ASCII
A ----- > 65
B ----- > 66
C ----- > 67
D ----- > 68
... ....
Y ----- > 89
Z ----- > 90

donc dans votre cas, il faut ajouter 64 à Y pour obtenir la lettre correspondante Selection.Replace What:="$D", Replacement:="$" & Chr(Y + 64), LookAt:=xlPart, cependant, au delà de la valeur atteinte de 90(Z), ce ne sera plus bon.
utilisez plutôt ceci:

Code:

---

1 2 3 4 5

Range(Cells(X - 1, 2), Cells(X, 5)).Select 'On sélectionne la plage à modifier L_Col = Split(Cells(X, Y).Address, "$")(1) Selection.Replace What:="$D", Replacement:="$" & L_Col, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False 'On recherche la colonne à remplacer dans les cellules et remplace par la colonne voulue

---

Cdlt

Bonjour,

Super merci ça fonctionne à merveille ! :)
Je me suis inspirer de ce que je voyais en recherchant sur internet, j'aurais dû regarder à quoi correspondait cette fonction. Merci pour l'explication !

Cordialement