Couper / Coller dans Excel

Question

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.

cs_EBArtSoft · Answer

Cette discussion a été cloturée. Veuillez lancer une nouvelle discussion si votre question est toujours d'actualite.

Merci

E.B.

Couper / Coller dans Excel

1 réponse

Votre réponse

Discussions similaires