Bonjour,

je dois réaliser un travail urgent (ceux que j'adore, du matin pour le soir) sur Excel.

J'ai fait quelques recherches, parcouru la FAQ VBA: je n'ai que des bases en VBA donc SVP, soyez indulgents.

Dans mon classeur Excel, j'ai un tableau sur un onglet.
J'ai crée un bouton sur lequel je dois clicker pour copier une plage de cellules.

"La plage de cellules correspond aux 5 jours de la semaines avec, pour chaque jour, 17 créneaux horaires"

Quand je click sur le bouton, je souhaiterai recopier mes 85 (5x17) lignes x 3 colonnes (1 colonne "jour", 1 colonne "créneau", et 1 colonne "infos")

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Rectangle30_QuandClic()
 
Dim finplage As Long
Dim debutplage As Long
Dim lignevide As Long
 
finplage = Range("F2:H2").End(xlDown).Row
debutplage = Range("F2:H2").End(xlDown).Row - 84
lignevide = Range("F2:H2").End(xlDown).Row + 1
 
Range("F2:H2" & debutplage, "F2:H2" & finplage).Select
'Range("F" & finplage").Activate
'Range("F2:H2" & lignevide).Select
Range("F2:H2" & lignevide).Copy
ActiveSheet.Paste
 
End Sub
Merci de m'aider , sans me donner la réponse et sans taper SVP

Je le répète, je débute franchement en VBA