STOPPER Boucle macro
Résolu
mickysor
-
mickysor -
mickysor -
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
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:
- STOPPER Boucle macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Stopper pub youtube - Accueil - Streaming
- Stopper reconduction jm date ✓ - Forum Consommation & Internet
2 réponses
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 ???
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 ???
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
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
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