Saut de cellules

Résolu

NLAH Messages postés 125 Date d'inscription Statut Membre Dernière intervention -
NLAH Messages postés 125 Date d'inscription Statut Membre Dernière intervention - 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,

Afficher la suite

A voir également:

Saut de cellules
Comment supprimer une page sur word avec un saut de page ? - Guide
Formule excel pour additionner plusieurs cellules - Guide
Verrouiller cellules excel - Guide
Saut de colonne word - Guide
Concatener deux cellules excel - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

NLAH Messages postés 125 Date d'inscription Statut Membre Dernière intervention 2

Mercii

Réponse 2 / 2

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

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

NLAH Messages postés 125 Date d'inscription Statut Membre Dernière intervention 2

Mercii bcp !! c'est résolu .

Discussions similaires

Supprimer une section

Remplacer espace par retour ligne sur txt ???

Continuer numérotation des pages après saut de section

Word : comment faire un saut de page automatique

Saut de lignes sans <br/>

Votre réponse

Discussions similaires