Augmenter le chiffres et les lettres

Bonjour

toujours " S.O.S"

s'il vous plais comment faire une augmentation des lettres

j'explique

 For j = 1 To 5
        Range("D" & j) = .Range("M" & i).Value
        Next j

dans cette partie de macro "J" augmente de 1 a 5

donc dans la RANGE, se serais RANGE ("D1") jusqu'a RANGE("D5")

comment faire pour que en même temps le RANGE("M" & i) serais :

.Range("M" & i).Value puis .Range("N" & i).Value puis .Range("O" & i).Value puis "P" puis "Q"

merci pour l'aide

Bonjour,

Tu peux utiliser Cells(ligne,colonne) pour n'utiliser que des valeurs numériques, ou bien encore la fonction chr(numero) pour indiquer un caractère particulier.

Salut,

ça ?

For x = 1 To 5
    Cells(x, 4) = Cells(x, 12 + x)
Next

A+

Bonjour,

Par très claire comme demande. Essaye ça :

Sub test()
    For j = 1 To 5
        Range("D" & j) = Cells(i, j + 12).Value
    Next j
End Sub

bonjour RAJA

bonjour curulis57

merci énormément pour la solution

post résolu