macro qui copie

[Mathieu]

Bonjour à tous

Je suis nouveau dans le monde des macros. Jai donc besoin de votre aide. Je veux que la macro copie dans la cellule ou plage de cellules actives le résultat de cette même cellule ou plage mais de la feuille suivante et cela indépendamment de quelle cellule que je sélectionne avec la souris.

Merci mathieu
😉

 

[Hervé]

BOnjour

peut etre comme ceci :

Sub Bouton1_QuandClic()
With Sheets(ActiveSheet.Index + 1)
        .Range(Selection.Address).Copy Selection
End With
End Sub

salut

 

[Mathieu]

Re:macro qui copie Merci Hervé

Merci Hervé

C'est exactement ce que je voulais faire. Petit problème cependant. Lorsque la macro est finie et que je sélectionne une autre cellule l'ancienne sélection demeure sélectionnée. Le tout ce règle si je change de feuille et je reviens.
bizard! :unsure: Mathieu

 

[Hervé]

Re:macro qui copie Merci Hervé

Bonjour mathieu

oui, phénomène bizarre que je ne m'explique pas.


un correctif, tout bete qui à l'air de fonctionner sans que je sache pourquoi :

Sub Bouton1_QuandClic()
Dim ws As Worksheet

Set ws = ActiveSheet
With Sheets(ActiveSheet.Index + 1)
                .Range(Selection.Address).Copy Selection
End With

ws.Select

End Sub

il suffit de stocker la feuille active dans la variable ws avant la copy puis de reactiver la feuille active, une sorte de rafraichissement de feuille.

salut