Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 4 sur 4
  1. #1
    Membre habitué
    Profil pro
    Inscrit en
    mai 2008
    Messages
    346
    Détails du profil
    Informations personnelles :
    Âge : 29
    Localisation : France, Loire (Rhône Alpes)

    Informations forums :
    Inscription : mai 2008
    Messages : 346
    Points : 128
    Points
    128

    Par défaut supprimer la sélection

    Bonjour a tous,

    J'ai un morceau de code vba me permettant de créer une bordure.
    Mais comme ma feuille est masqué et que j'utilise select, cela me créer une erreur.
    J'aimerais supprimer les select.
    Mais je ne sais pas comment faire.

    Voici mon code :
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    'On modifie la bordure
                Sheets("Recapitulatif").Range("A24:BD24").Select
                With Selection.Borders(xlEdgeLeft)
                    .LineStyle = xlContinuous
                    .ColorIndex = xlAutomatic
                    .Weight = xlThin
                End With
                With Selection.Borders(xlEdgeTop)
                    .LineStyle = xlContinuous
                    .ColorIndex = xlAutomatic
                    .Weight = xlThin
                End With
                With Selection.Borders(xlEdgeBottom)
                    .LineStyle = xlContinuous
                    .ColorIndex = xlAutomatic
                    .Weight = xlThin
                End With
                With Selection.Borders(xlEdgeRight)
                    .LineStyle = xlContinuous
                    .ColorIndex = xlAutomatic
                    .Weight = xlThin
                End With
                With Selection.Borders(xlInsideVertical)
                    .LineStyle = xlContinuous
                    .ColorIndex = xlAutomatic
                    .Weight = xlThin
                End With
                Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Merci

  2. #2
    Expert Confirmé Sénior Avatar de mercatog
    Homme Profil pro
    Inscrit en
    juillet 2008
    Messages
    7 638
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : juillet 2008
    Messages : 7 638
    Points : 23 792
    Points
    23 792

    Par défaut

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    with Sheets("Recapitulatif").Range("A24:BD24")
                With .Borders(xlEdgeLeft)
                    .LineStyle = xlContinuous
                    .ColorIndex = xlAutomatic
                    .Weight = xlThin
                End With
                With .Borders(xlEdgeTop)
                    .LineStyle = xlContinuous
                    .ColorIndex = xlAutomatic
                    .Weight = xlThin
                End With
    ...
          .Borders(xlInsideHorizontal).LineStyle = xlNone
    end with
    en plus, ceci fera l'affaire
    Code :
    1
    2
    3
    4
    5
    6
    7
    with Sheets("Recapitulatif").Range("A24:BD24")
               .Borders(xlEdgeLeft).Weight = xlThin
               .Borders(xlEdgeTop).Weight = xlThin
     
    ...
          .Borders(xlInsideHorizontal).LineStyle = xlNone
    end with
    Cordialement.

  3. #3
    Expert Confirmé Sénior
    Avatar de Qwazerty
    Homme Profil pro Stéphane
    La très haute tension :D
    Inscrit en
    avril 2002
    Messages
    2 647
    Détails du profil
    Informations personnelles :
    Nom : Homme Stéphane
    Âge : 33
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : avril 2002
    Messages : 2 647
    Points : 7 685
    Points
    7 685

    Par défaut

    Salut
    Tu as aussi une solution plus rapide pour l'encadrement d'une cellule ou d'un groupe de cellules.

    Code :
    1
    2
    3
    4
    5
    6
    With Sheets("Recapitulatif").Range("A24:BD24")
        .Borders.LineStyle = xlcontinus
        .Borders.ColorIndex = xlAutomatique
        .Borders.Weight = xlThin
        .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With
    A++
    Qwaz

    MagicQwaz := Harry Potter la baguette en moins
    Le monde dans lequel on vit
    HammerFest
    Ma page perso DVP - Dernier Tutoriel : VBA & Internet Explorer

  4. #4
    Membre habitué
    Profil pro
    Inscrit en
    mai 2008
    Messages
    346
    Détails du profil
    Informations personnelles :
    Âge : 29
    Localisation : France, Loire (Rhône Alpes)

    Informations forums :
    Inscription : mai 2008
    Messages : 346
    Points : 128
    Points
    128

    Par défaut

    Merci a tous les deux.

    ça marche impeccable

+ Répondre à la discussion
Cette discussion est résolue.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •