STOPPER Boucle macro

Résolu/Fermé
mickysor - 2 janv. 2012 à 14:22
 mickysor - 2 janv. 2012 à 15:37
Bonjour,
j'ai une macro comme celle ci:
Sub essailiste()
For N = -3 To 5000
Do While Not ActiveCell.Value = ""
Sheets("FD2").Select
Range("A65536").End(xlUp).Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("FD2").Select
Range("A65536").End(xlUp).Delete
Loop
Next
End Sub

Ce que je ne comprends pas c'est que ma macro ne fonctionne pas avec le Copier coller!!!
Merci pour votre éventuelle aide


A voir également:

2 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
2 janv. 2012 à 14:33
A quoi servent les lignes :
For N = -3 To 5000
....
Next
et la condition :
While Not ActiveCell.Value = ""
(on ne sait pas quelle est la cellule active dans FD2)

Pourquoi copies -tu toujours en A1 de Feuil2 ???
0
Bonjour,

Je copies toujours en A1 de Feuil2 toute une liste de valeurs pour executer la suite d'une autre macro toujours sur la même cellule A1 de Feuil2
Je souhaiterais simplement que cette liste de valeurs soit copiée en boucle jusqu'a ce qu'il n'y ai plus aucune valeur sur la Feuille "FD2"
J'avais réussi à faire fonctionner une boucle du même type mais malheureusement j'ai tout éffacé tout à l'heure et la j'ai du mal écrire la macro
0
C'est bon j'ai réussi à modifier ma macro et voici la bonne macro!!
Sujet résolu!!

Sub essailiste()
For N = -1 To 5000
Do While Not Range("A65536").End(xlUp) = ""
Sheets("FD2").Select
Range("A65536").End(xlUp).Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("FD2").Select
Range("A65536").End(xlUp).Delete
Loop
Next N
End Sub
0