Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

bordures

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Rust
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

Rust

Guest
bonsoir,

j'aimerais savoir s'il est possible de faire en sorte que la dernière ligne de mon tableau de la page ait automatiquement une bordure en bas ? C'est-a dire que si j'insère une ligne, la bordure ne descend pas d'une ligne pour finalement se retrouver en bas de la page.

Et aussi, j'aimerais savoir comment faire pour que le fond des cases soient grisées, mais seulement une ligne sur deux. Meme problème que précedemment, si j'insère une ligne je me retrouve avec deux lignes non grisées, ou l'inverse.

Merci de votre
 
Trier par date Trier par votes
Re : bordures

Voilà :

Sub Macro_R_A_Z()
Rows("3:105").Select
Selection.EntireRow.Hidden = False
Range("B4:H105").Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlNone
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
 
Vote positif 0 Vote négatif
Re : bordures

Bonjour a tous

Et bien voici une modif de la macro déja modifiée par l'ami José qui devrait fonctionner :
PHP: 
Sub Macro_R_A_Z()
    Rows("3:105").Select
    Selection.EntireRow.Hidden = False
    Range("B4:H105").Select
    For i = 7 To 10 ' 7 à 10 correspond aux constantes xlEdgeXXXXX
        With Selection.Borders(i)
            .LineStyle = xlNone
        End With
    Next i
    For i = 11 To 12 ' 11 et 12 correspondent aux constantes xlInsideXXXXX
        With Selection.Borders(i)
            .LineStyle = xlNone
        End With
    Next i
End Sub

Bonne fin de week a tous,

@+
 
Vote positif 0 Vote négatif
Re : bordures

re,

Arfff une scone version jute au cas ou tu voudrais avoir la barre de titrer et de résulta encadré :
PHP: 
Sub Macro_R_A_Z()
    Rows("3:105").Select
    Selection.EntireRow.Hidden = False
    Range("B4:H105").Select
    For i = 7 To 10 ' 7 à 10 correspond aux constantes xlEdgeXXXXX
        With Selection.Borders(i)
            .LineStyle = xlNone
        End With
    Next i
    For i = 11 To 12 ' 11 et 12 correspondent aux constantes xlInsideXXXXX
        With Selection.Borders(i)
            .LineStyle = xlNone
        End With
    Next i
    
    Range("B3:H3").Select
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
    Range("F106:H106").Select
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
    End With
End Sub

@+
 
Vote positif 0 Vote négatif
Re : bordures

Salut
M'en doutais un peu, parce que ça n'apparait pas bien :
Range("F106:H106").Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
Les 2 lignes en rouge doivent être supprimées, ou commencer par une apostrophe(') en début de ligne pour les transformer en commentaire

Pour garder les codes, avant de les finaliser, quand je fais une modif, je recopie la ligne, et je met une apostrophe, ce qui fait que j'ai l'original en tant que commentaire et la modif.
Si la modif n'est pas bonne, je supprime la ligne et l'apostrophe, et je me retrouve avec mon code tel qu'il était avant la modif.
Méga-désolé
A+
 
Vote positif 0 Vote négatif
Re : bordures

désolé Gorfael, mais je ne comprend pas, sur ta macro je ne vois nulle part ecrit "Range("F106:H106").Select"

Pourrais-tu s'il te plait me redonner le fichier avec la macro modifié ?
Encore merci de ton aide
 
Vote positif 0 Vote négatif
Re : bordures

je me suis peut-être mal exprimé, mais ce que tu me proposes ne fonctionne pas.
Ce que je veux, c'est que le tableau se ferme a la fin de chaque page, or sur le fichier que tu m'a donné quand on fait "apercu avant impression", on voit bien que le tableau n'est pas fermé.
 
Vote positif 0 Vote négatif
Re : bordures

Salut
zoom dessus, je me suis fait avoir aussi, j'ai cherché pendant un bout de temps, mais c'est juste un défaut d'affichage.
essaie une impression page 1 avec un prix en ligne 60 et tu verras
A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2019 excel vba coloriser une ligne sur deux sur lignes filtrées
Réponses
11
Affichages
253
TooFatBoy
P
  • Question Question
XL 2021 Macro de découpage suivant une clé
Réponses
14
Affichages
521
job75
S
  • Résolu(e)
XL 2016 Récupération valeurs cellules lignes autre onglet
Réponses
11
Affichages
430
safranien
S
B
  • Question Question
XL 2016 problèmes de formules et liste déroulantes avec le planning
Réponses
1
Affichages
142
sylvanu
D
  • Question Question
XL 2016 enregistrement feuille excel directement sur le drive par l'intermédiaire d'un bouton
Réponses
9
Affichages
778
fanch55
D
  • Question Question
XL 2010 Affichage de "Case à cocher"
Réponses
12
Affichages
453
dadu35
D
N
  • Question Question
XL 2010 recherche formule
2
Réponses
23
Affichages
680
n_turf
N
F
  • Question Question
XL 2016 travail sur tableau
2 3 4
Réponses
55
Affichages
2 K
finarobert
F
N
  • Question Question
Microsoft 365 modifier un evenement du calendrier outlook via vba(excel)
Réponses
4
Affichages
195
mromain
T
  • Question Question
XL 2019 pied de page = insérer contenu cellule
Réponses
4
Affichages
310
wDog66
W
  • Question Question
Microsoft 365 Commande filtre
2
Réponses
16
Affichages
507
litelsousa
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
682
Jaykerz
J
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
S
  • Question Question
XL 2013 Classement automatique score par points et ensuite goal average
2
Réponses
21
Affichages
901
TooFatBoy
K
  • Résolu(e)
XL 2010 Roulement automatique
Réponses
9
Affichages
356
komarlehomard
K
S
  • Résolu(e)
Microsoft 365 Formule qui me permet de regrouper les résultats de plusieurs lignes en fonction d'une recherche par nom
Réponses
9
Affichages
523
Sylvia57
S
A
  • Résolu(e)
Microsoft 365 Compter avec la condition que la valeur suivante ne soit pas 3 - NB.SI.ENS ?
Réponses
8
Affichages
317
sylvanu
R
  • Question Question
Microsoft 365 Interrompre synchronisation OneDrive d'un dossier ou sous-dossie
Réponses
5
Affichages
706
wDog66
W
C
  • Résolu(e)
XL 2021 Traitement dans un tableau
2
Réponses
29
Affichages
946
sylvanu
  • Résolu(e)
Microsoft 365 Génération automatique calendrier par année
Réponses
6
Affichages
466
Etoto
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…