Fonction range

[Luminou]

Bonjour, j'ai une quesion qui peut parraitre simple mais bon,

Voici: j'aimerait faire une boucle pour copier des information d'un tableau a l'autre. C'est a dire mettre en forme une collone dans la feuil 1 la bonne ligne
d'un tableau qui se trouve dans la feuille 2.

J'ai quasi deja trouver mais je ne sais pas comment incrementer une valeur alphabétique (en rouge)

Private Sub ecrituretabinventor(i)
Dim a As Integer
For a = 1 To 18
Worksheets("Feuil1").Range("T" & a) = Worksheets("Feuil2").Range(* & "13")
Worksheets("Feuil1").Range("U" & a) = Worksheets("Feuil2").Range(a & "i")
Next a
End Sub


Il me marque erreur définie par l'application ou par l'objet, normal je suppose.
Enfin la premiere ligne copie juste des cellules de titre du tableau
La deuxieme ligne copie les valeur correspondante en fonction de la ligne renségné i

Merci pour votre aide ^^

 

[wilfried_42]

Re : Fonction range

bonjour

il existe un autre objet que range pour gerer les cellules :

Cells(ligne,colonne)

ligne : Argument de type entier n° de la ligne
Colonne : Argument de type entier : n° de colonne

for a = 1 to 18
     sheets("Feuil1").Range("T" & a) = sheets("Feuil2").cells(a,13)
next a