Bonjour,

Je galère, comme beaucoup ici ;o), pour appliquer quelque chose sur une zone définie (B à H) en sélectionnant cette zone sur deux lignes.

J'ai donc un zoli code qui fait son office mais uniquement sur la dernière zone... sur les "zones précédentes", il applique ce que je lui demande sur une seule ligne... pas sur deux...

Voici le code :

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
Sub SélectionLignes()
 
 
Dim Plage1 As Range
Dim lg As Long
lg = Range("B" & Rows.Count).End(xlUp).Row + 1
lignemin = 3
lignemax = 12 'lg 
 
'lignemin et lignemax servent uniquement à tester le script sur une zone définie et évite de remplir tout le fichier
 
For i = lignemin To lignemax:
 
                            Set Plage1 = Range("B" & i & ":H" & i)
                            Set Plage2 = Range("B" & i + 1 & ":H" & i + 1)
                            Set maSelection = Application.Union(Plage1, Plage2)
                            maSelection.Select
 
            Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ThemeColor = 5
        .TintAndShade = 0
        .Weight = xlMedium
    End With
 
 
Next i
 
End Sub

Help me if you pleased...