bonjour,
Je débute tout juste avec le VBA et évidemment j'ai des soucis
J'ai cette macro que j'aimerai d'une part simplifier au maximum car il va falloir que j'en fasse d'autres qui lui ressemblent.
Et d'autre part, je voudrai pouvoir la reproduire d'un coup à partir de plusieurs cellules sélectionnées(par forcément sur la même ligne) avec un "ctrl + clic"
Et la ouyouyouy je galère

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub occupation_LP1_V30_1()
 
    ActiveCell.Value = 1
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = 1
    ActiveCell.Offset(6, 1).Select
    ActiveCell.Value = 1
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = 1
    ActiveCell.Offset(9, 5).Select
    ActiveCell.Value = 0.5
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = 0.5
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = 0.5
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = 0.5
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = 0.5
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = 0.5
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = 0.5
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = 0.5
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = 0.5
    ActiveCell.Offset(9, 1).Select
    ActiveCell.Value = 1
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = 1
    ActiveCell.Offset(9, 3).Select
    ActiveCell.Value = 1
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = 1
    ActiveCell.Offset(1, 0).Select
 
End Sub
Merci d'avance