Problème de Range erreur1004 VBA

Seb357 -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
j'ai besoin d'aide en visual basic. J'ai beau essayer toutes les formes possibles et inimaginables, je n'arrive pas a finir ma macro, qui copie les des valeurs et les recolle en sens inverse sur une autre feuille de calcul... Une erreur du range apparait à chaque fois. Avez vous une idée ?? Merci !

Voila ma boucle qui ne passe pas à l'exécution :

Do While s > t
ThisWorkbook.Sheets("Feuille1").Cells(s, 12).Select
Selection.Copy
ThisWorkbook.Sheets("Feuille2").Cells(i, 11).Select
Selection.PasteSpecial Paste:=xlPasteValues
i = i + 1
s = s - 1
Loop



1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

A adapter car votre demande manque de precision.

Sub test()
  s = 10
  i = 1
  Do While s > 1
    Worksheets("Feuil2").Cells(i, 1) = Worksheets("Feuil1").Cells(s, 1)
    i = i + 1
    s = s - 1
  Loop
End Sub
1