saut de cellules Résolu/Fermé

Question

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,
Configuration: Windows 7 / Chrome 52.0.2743.82

f894009 · Answer

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

Mike-31 · Answer

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

Saut de cellules

2 réponses

Discussions similaires