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,

A voir également:

Saut de cellules
Formule excel pour additionner plusieurs cellules - Guide
Verrouiller cellules excel - Guide
Saut de ligne excel - Guide
Supprimer saut de page word - Guide
Excel fusionner deux cellules - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17190 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 mai 2024 1 705
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

NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 2
22 juil. 2016 à 11:41

Mercii

Réponse 2 / 2

Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 079
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

NLAH Messages postés 125 Date d'inscription lundi 9 septembre 2013 Statut Membre Dernière intervention 13 juin 2017 2
22 juil. 2016 à 11:41

Mercii bcp !! c'est résolu .

Discussions similaires

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

Remplacer espace par retour ligne sur txt ???

Retour ligne dans une concaténation EXCEL ?

Impossible fusionner cellules

Discussions similaires

Newsletters