Saut de cellules

Résolu/Fermé
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 - 21 juil. 2016 à 15:48
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 - 22 juil. 2016 à 11:41
Bonjour,

je suis débutante en programmation VBA et j'aimerais savoir s'il est existe un moyen d'encadrer des cellules ,mais avec condition,je veux par exemple encadrer la premier cellule de la colonne A1, et par la suite ,sauter 4 cellules et encadrer la cellule A6. et refaire cette méthode 5 fois.

Amicalement,

2 réponses

f894009 Messages postés 16866 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 31 janvier 2023 1 678
22 juil. 2016 à 08:35
Bonjour,

avec l'enregistreur de macro

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A1,A6,A11,A16,A21").Select
    Range("A21").Activate
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub
0
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 1
22 juil. 2016 à 11:41
Mercii
0
Mike-31 Messages postés 18178 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 30 janvier 2023 5 034
22 juil. 2016 à 09:07
Bonjour,

s'il s'agit d'encadrer 1 cellule sur 5 5 fois donc A1, A6, A11, A16, A 21, A26

Sub Selection_1_sur_5()
Range("A1").Select
Dim i As Integer
For i = 1 To 26 Step 5
Union(Selection, Range("B" & i)).Borders.Weight = xlThin
Next i
End Sub
0
NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 1
22 juil. 2016 à 11:41
Mercii bcp !! c'est résolu .
0