Je voudrai sélectionner plusieurs cellule en même temps
Bonjour,
Voici un code que j'ai fait pour entourer des données suivant leurs conditions, je ne parvient pas trouver le bon codage pour sélectionner plusieurs cellules a la fois ( les cellules B à J)
En vous remerciant d'avance
Bien à vous
Christian
Voici mon 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
Sub Entourer ()
Dim B1 As Integer
 For B1 = Cells.SpecialCells(xlCellTypeLastCell).Row To 6 Step -1
            If Range("N" & B1).Value <> "" Then
                            Range("B" & B1).Select
               With Selection.Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlMedium
               End With
               With Selection.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
                .Weight = xlMedium
                End With