Bonjour à tous.
Voila j'ai un petit souci de réalisation.
Quand je clique sur le bouton (semaine 1), la macro s'effectue très bien. voila la macro :
Sub SelectionP()
' Selection de la plage cellule
Application.ScreenUpdating = False
Sheets("basse de données").Select
Range("D2" & Sheets("basse de données").Range("F7").Value).Select
Selection.Copy
Sheets("OT").Select
Range("A1").Select
ActiveSheet.Paste Link:=True
Range("B1").Select
Sheets("basse de données").Select
Sheets("accueil").Select
Application.ScreenUpdating = True
End Sub
mais j'aimerai que lorsque que j'appuie sur le bouton (semaine 2) il effectue la même macro, mais décaler.
Exemple: si j'appuie sur (semaine 1) la macro sélectionne une plage de 10 cellules allant de (A1:A10) j'aimerai que lorsque j'appuie sur (semaine 2) la macro sélection la plage de cellule (A11:A21).
Mais comme vous avez pu le voir, le nombre de cellules a sélectionné est issu d'un calcul, et la je sèche complètement.
J’espère avoir était clair, merci d'avance pour vos réponses.
Cordialement.
Voila j'ai un petit souci de réalisation.
Quand je clique sur le bouton (semaine 1), la macro s'effectue très bien. voila la macro :
Sub SelectionP()
' Selection de la plage cellule
Application.ScreenUpdating = False
Sheets("basse de données").Select
Range("D2" & Sheets("basse de données").Range("F7").Value).Select
Selection.Copy
Sheets("OT").Select
Range("A1").Select
ActiveSheet.Paste Link:=True
Range("B1").Select
Sheets("basse de données").Select
Sheets("accueil").Select
Application.ScreenUpdating = True
End Sub
mais j'aimerai que lorsque que j'appuie sur le bouton (semaine 2) il effectue la même macro, mais décaler.
Exemple: si j'appuie sur (semaine 1) la macro sélectionne une plage de 10 cellules allant de (A1:A10) j'aimerai que lorsque j'appuie sur (semaine 2) la macro sélection la plage de cellule (A11:A21).
Mais comme vous avez pu le voir, le nombre de cellules a sélectionné est issu d'un calcul, et la je sèche complètement.
J’espère avoir était clair, merci d'avance pour vos réponses.
Cordialement.
Dernière édition: