Je voudrai sélectionner plusieurs cellule en même temps
Résolu
chnoir1
Messages postés
16
Date d'inscription
Statut
Membre
Dernière intervention
-
chnoir1 -
chnoir1 -
Je voudrai sélectionner plusieurs cellule en même temps
Voici un code que j'ai fait pour entourer des données suivant leurs condition, 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
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
End If
Voici un code que j'ai fait pour entourer des données suivant leurs condition, 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
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
End If
