Couper / Coller dans Excel

jean paul - 23 août 2000 à 14:31
cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 - 30 juil. 2007 à 11:19
Bonjour,
Je viens de faire un petit programme en
visual basic pour une macro en Excel qui doit faire "couper" une donnée dans une feuille VALID(excel) pour "coller"
dans une autre feuille EXECUTE(excel).Cette macro doit en plus revenir
à la feuille VALID pour supprimer la ligne qui a été coupée et mettre la date où cette ligne a été collée dans
la feuille VALID. Voici le programme que j'ai fait, veuillez me dire où j'ai
fait des erreurs car je n'ai pas réussi
à faire tourner ce programme!Merci de votre aide.

Private Sub EXECUTE()
Selection.Cut
Sheets("EXECUTE").Select
ActiveSheet.Paste
For i = 95 to 500
Set CelluleTest = Worksheets("EXECUTE").Range("Oi")
Do While NotIsEmpty(CelluleTest)
Set CelluleTest = CelluleTest.Offset(0,1)
Range("Pi").Select
Selection.ClearContents
ActiveCell.FormulaR1C1= "=Maintenant()
Loop
Application.Goto Reference := CelluleTest
Next i
Sheets("VALID").Select
Selection.DeleteShift :=xlup
End Sub
"VALID" et "EXECUTE" sont des feuilles
sous un même fichier excel.

1 réponse

cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
30 juil. 2007 à 11:19
Cette discussion a été cloturée. Veuillez lancer une nouvelle discussion si votre question est toujours d'actualite.

Merci

E.B.
Rejoignez-nous