Bonjour à tous,
Je suis débutant et je cherche à simplifier plusieurs suites de codes :
1
2
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Range("S365").Select Selection.Value = Range("A2").Value Range("S368:S369").Select Selection.Value = Range("A2").Value Range("S371:S372").Select Selection.Value = Range("A2").Value Range("S374:S376").Select Selection.Value = Range("A2").Value Range("S378").Select Selection.Value = Range("A2").Value Range("S380:S381").Select Selection.Value = Range("A2").Value Range("S382:S383").Select Selection.Value = Range("A2").Value
Auriez-vous une piste pour ce type de code à répétition ?
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 If Sheets("MEDIC").Range("A316").Value = "" Then Sheets("MEDIC").Rows("316:316").Select Selection.EntireRow.Hidden = True End If If Sheets("MEDIC").Range("A317").Value = "" Then Sheets("MEDIC").Rows("317:317").Select Selection.EntireRow.Hidden = True End If If Sheets("MEDIC").Range("A318").Value = "" Then Sheets("MEDIC").Rows("318:318").Select Selection.EntireRow.Hidden = True End If If Sheets("MEDIC").Range("A319").Value = "" Then Sheets("MEDIC").Rows("319:319").Select Selection.EntireRow.Hidden = True End If If Sheets("MEDIC").Range("A320").Value = "" Then Sheets("MEDIC").Rows("320:320").Select Selection.EntireRow.Hidden = True End If
Je vous remercie par avance
Partager