Couper coller plage de cellules dans une nouvelle feuille

Couper coller plage de cellules dans une nouvelle feuille - VB/VBA/VBS - Programmation

Marsh Posté le 04-12-2014 à 00:39:08    


Hello !!
je débute en VBA (je viens de le découvrir hier whoop whoop) ! depuis j'essaie désespéramment de faire qu'en cliquant sur un bouton dans ma feuille "GENERER_RESULTAT", ça me prenne dans cette même feuille ma plage de cellule A3:Q5, que ça la coupe et aille la coller dans une nouvelle feuille générée automatiquement (donc que je n'ai pas à nommer la feuille et qu'elle s'auto-nomme/génère toute seule). Est que quelqu'un pourrait jeter un coup au code ci-dessous et me dire s'il y repère une erreur ?
 
Private Sub CBarchiverresultat_Click()
        ActiveSheet.Select
        Range("A3:Q35" ).Select
        Selection.Cut
        ActiveSheet.Move after:=ThisWorkbooks.Sheets("GENERER_RESULTAT" )
        Sheets("GENERER_RESULTAT" ).Range("A3:Q35" ).Select
        Selection.Paste
End Sub
 
Quelqu'un d'inspiré ?
Merci beaucoup d'avance pour votre aide !!

Reply

Marsh Posté le 04-12-2014 à 00:39:08   

Reply

Marsh Posté le 04-12-2014 à 13:28:36    

 
           Bonjour.
 
           Conformément aux règles du forum, merci d'utiliser l'icône dédiée pour baliser le code !
 
           Sinon il faudrait logiquement penser à créer une nouvelle feuille avant d'entreprendre le Couper / Coller !
 
           Le meilleur ami du débutant : l'Enregistreur de macros !
           L'activer puis créer une nouvelle feuille dans le classeur : le code est livré sur un plateau ‼
 
           Ensuite rien qu'en lisant l'aide VBA intégrée concernant la méthode Cut, une seule instruction est nécessaire
           pour effecteur ce Couper / Coller et ce sans Select !
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed