Macro: Sélectionner feuille selon le nom dans une cellule

sam94

XLDnaute Nouveau
Bonjour à tous,
Voici mon fichier, j'aimerais avoir une macro qui copierait de A6 à A(jusqu'à cellule vide) et le collerait à la suite des autres dans l'onglet indiqué en "D2". Par exemple dans ce cas-ci, l'onglet Alpha est inscrit en "D2", donc la sélection A6:A18 irait se coller à la cellule A7 de l'onglet Alpha. Si c'est inscrit Beta, alors la sélection ira se coller à la cellule A21 de l'onglet Beta, etc.

Si vous avez des questions, n'hésitez pas!
Merci beaucoup!
 

Fichiers joints

DoubleZero

XLDnaute Barbatruc
Bonjour, sam94, le Forum,

Comme ceci ?

Code:
Option Explicit
Sub Valeurs_transférer()
  Application.ScreenUpdating = False
  Range("a6:a" & Rows.Count).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants). _
  Copy Destination:=Sheets(Range("d2").Text).Range("a" & Rows.Count).End(xlUp)(2)
  Range("d2").Select
  Application.ScreenUpdating = True
End Sub
A bientôt :)
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas