Copier/ Coller par macro sur feuille mobile????

[Yochma]

Bonjour a toutes et a tous!!

Pourriez vous svp me donner un petit coup de pouce car la je nage snifff!!!!


Voila mon soucil : J'aimerai dans le fichier joint à ce message pouvoir en feuille "A" en fonction de la valeur inscrite en cellule "A1" venir copier coller en "A5" une des plage de cellule coloré situé sur la feuille "Base" et ceci par macro.

Par exêmple :

A1 = 1 donc collage en A5 de la plage jaune de la feuille Base

A1 = 2 donc collage en A5 de la plage verte de la feuille Base

A1 = 3 donc collage en A5 de la plage orange de la feuille Base


La ou çà se complique c'est que j'aimerai pouvoir faire de même pour n'importe quelle feuille que je rajouterai au fil du temps par exemple une feuille "B" avec les plages coloré de la feuille "base" en fonction de la valeur situé dans la celule "A1" de la feuille "B".



Moi je n'ai pas le niveaui pour faire ceci encore mais je vosu remercie par avance pour tous ceux qui souhaiterons collaborer à résoudre mon "Souchi"

Merci par avance et longue vie au forum


Yochma



Ps : J'ai penser déja a un code de ce genre la ( voir ci dessous) mais je ne sais pas comment revenir sur ma feuille initiale ou les données doivent etre coller snif!!!



Sub Test6()




Select Case Range("a1")

Case 1
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Base").Select
Range("a1:b12").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("A ").Select **** Comment faire varier ce repositionnement??**
Range("A5").Select
ActiveSheet.Paste


Case 2



Case 3





End Select


End Sub

 

[Yeahou]

Bonjour yochma, le forum

tu peux tout simplement éviter de désélectionner la feuille active

A+

Sub Test6()




Select Case activesheet.[A1].value

Case 1
Sheets("Base").[A1:B12].Copy destination:=activesheet.[A5]

Case 2



Case 3





End Select


End Sub

 

[Yochma]

Merci Yealou!!! Your are a big boss

Simplicité = efficacité = super solution


Longue vie au forum

Yochma