Incrémentation de 0 à A, B,C etc

Bonjour,

j'ai une liste de documents sur excel, avec un indice 0 (zéro), quand je cliques sur le bouton de ma macro, le but est de créer la même ligne en incrémentant l'indice de 0 (zéro) à A puis B, puis C puis....

comment faire ?

le code que j'utilisais quand je devais passer de 0 à 1 puis 2 puis 3 ou de A à B puis C puis D était:

Cells(x + 1, 10) = Evaluate("=CHAR(CODE(J" & x & ")+1)")

or la je veux désormais faire 0 puis A puis B, puis C...

quel code dois je saisir?

merci à vous :)

bonjour,

par exemple

Sub aargh()
    For i = 0 To 26
        If i = 0 Then Cells(i + 1, 10) = 0 Else Cells(i + 1, 10) = Chr(i + 64)
    Next i
End Sub

bonjour,

je démarre dans les macros, je ne vois pas comment je peux intercaler cela dans mon code, sachant qu'il s'agira toujours de la cellule en colonne J (et ligne supérieure à 5).

mon code initial qui rajoute une ligne, et raye la ligne précédente notamment:

Sub Inserer_Ligne()
Dim x As Long
x = ActiveCell.Row
If x > 5 Then
With ActiveCell
.Offset(1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
.EntireRow.Copy
.Offset(1).EntireRow.PasteSpecial xlPasteFormats
End With
Application.CutCopyMode = False
Range("A" & x).ClearContents
Range("M" & x & ":AZ" & x).ClearContents
Range("B" & x & ":L" & x).Font.Strikethrough = True
' Incrémenter Indice colonne J
Cells(x + 1, 10) = Evaluate("=CHAR(CODE(J" & x & ")+1)")
'Copier Données Cellules B à I + colonne K
Cells(x + 1, 2).Value = Cells(x, 2).Value
Cells(x + 1, 3).Value = Cells(x, 3).Value
Cells(x + 1, 4).Value = Cells(x, 4).Value
Cells(x + 1, 5).Value = Cells(x, 5).Value 'colonne E
Cells(x + 1, 6).Value = Cells(x, 6).Value 'colonne F
Cells(x + 1, 7).Value = Cells(x, 7).Value 'colonne G
Cells(x + 1, 8).Value = Cells(x, 8).Value 'colonne H
Cells(x + 1, 9).Value = Cells(x, 9).Value 'colonne I
Cells(x + 1, 11).Value = Cells(x, 11).Value 'colonne K
Cells(x + 1, 12) = Date 'renvoie la date système dans colonne L
Cells(x + 1, 1) = "x" 'valeur "x" à la case A
End If
Cells(x + 1, 2).Select
End Sub

comment intercaler votre code?

merci à vous

bonjour

remplace cette ligne

Cells(x + 1, 10) = Evaluate("=CHAR(CODE(J" & x & ")+1)")

par

If Cells(x, 10) = "0" Then Cells(x + 1, 10) = "A" Else Cells(x + 1, 10) = Chr(Asc(Cells(x, 10)))

attention cela fonctionnera correctement jusqu'à la lettre Z (majuscule)

top merci beaucoup :)