Discussion :

[Albdu22]

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

[ARTURO83]

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 :

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

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

[Albdu22]

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