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 :)
 

Discussions similaires


Haut Bas