Problème de Range erreur1004 VBA

Fermé
Seb357 - 25 juin 2012 à 15:08
f894009 Messages postés 17190 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 mai 2024 - 25 juin 2012 à 15:42
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 17190 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 mai 2024 1 705
25 juin 2012 à 15:42
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