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

format d'une collone

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Jose_P
  • 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
J

Jose_P

Guest
Bonjour,

j'ai un tableau de 2 collones (cf fichier joint) avec un format défini (taille de caractère et encadrement). Je souhaite actualiser le format (c'est à dire agrandir l'encadrement et mettre le même format) lorqu'une nouvelle ligne se met à la suite du tableau (cf fichier).

merci d'avance

Jose_P
 

Pièces jointes

Trier par date Trier par votes
Re : format d'une collone

Bonjour José, wamme,

Un autre essai avec cette macro dans le code de la feuille (clic droit sur l'onglet et visualiser le code) :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("B65536").End(xlUp).Address Then Exit Sub
Application.EnableEvents = False
With Range(Target, Target.Offset(, 1))
[COLOR="Red"].Font.Size = 11[/COLOR]
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlContinuous: .Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeRight).LineStyle = xlContinuous: .Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlEdgeBottom).LineStyle = xlContinuous: .Borders(xlEdgeBottom).Weight = xlMedium
End With
Application.EnableEvents = True
End Sub

La macro est exécutée quand on entre une donnée sous la dernière de la COLONNE B.

Edit 1 : salut pierrejean 🙂

Edit 2 : j'ai rajouté (en rouge) la taille des caractères que j'oubliais...

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : format d'une collone

Re,

Pardon, une petite correction, car si l'on entre une donnée en sautant une ligne...

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("B65536").End(xlUp).Address Then Exit Sub
With Range([COLOR="Red"]Range("B3")[/COLOR], Target.Offset(, 1))
.Font.Size = 11
.Borders([COLOR="Red"]xlInsideHorizontal[/COLOR]).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlContinuous: .Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeRight).LineStyle = xlContinuous: .Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlEdgeBottom).LineStyle = xlContinuous: .Borders(xlEdgeBottom).Weight = xlMedium
End With
End Sub

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : format d'une collone

Bonsoir José, le fil,

Alors là pierrejean je me suis fait plaisir 😛

1) le tableau (incluant les titres) est défini dans la feuille par le nom tablo (menu Insertion-Nom)

2) on peut entrer une donnée n'importe où en colonnes B ou C, le tableau est toujours redéfini

3) une ligne du tableau est supprimée si et seulement si ses 2 cellules sont vides (on peut donc effacer/supprimer plusieurs lignes en même temps)

4) Edition : le tableau est trié sur la 1ère colonne.

La ligne de code particulièrement m...que est celle qui supprime les lignes (en rouge) :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [tablo].EntireColumn) Is Nothing Then Exit Sub
If Target.Count = 1 Then
If Target <> "" Then ThisWorkbook.Names.Add Name:="tablo", RefersTo:=Range([tablo], Target)
End If
On Error Resume Next
With [tablo]
[COLOR="Red"]Intersect([tablo], Intersect(.Columns(1).SpecialCells(xlBlanks).Offset(, 1), .Columns(2).SpecialCells(xlBlanks)).EntireRow).Delete Shift:=xlUp[/COLOR]
.Sort Key1:=.Columns(1), Order1:=xlAscending, Header:=xlYes 'tri
.Font.Size = 11
.Borders(xlInsideHorizontal).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlContinuous: .Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeRight).LineStyle = xlContinuous: .Borders(xlEdgeRight).Weight = xlMedium
.Borders(xlEdgeBottom).LineStyle = xlContinuous: .Borders(xlEdgeBottom).Weight = xlMedium
End With
End Sub

A+
 

Pièces jointes

Dernière édition:
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

F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
1 K
fanfan38
C
  • Résolu(e)
XL 2016 humains VS chatGPT
Réponses
9
Affichages
919
AtTheOne
S
  • Question Question
Microsoft 365 Protéger des cellules de la feuille en permettant d'agrandir les colonnes
Réponses
6
Affichages
312
Sissou71
S
O
  • Question Question
XL 2016 transférer les données d'un tableau brut, dans un autre format pour analyse.
Réponses
12
Affichages
793
ORL
O
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
M
  • Résolu(e)
Microsoft 365 format axe avec durée d'une tâche (graphique)
Réponses
6
Affichages
563
Mwadepaname
M
M
  • Résolu(e)
XL 2021 Bugs dans la propagation de cellules
5 6 7
Réponses
92
Affichages
2 K
MATLEA
M
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
710
Dégé59
D
  • Question Question
Insérer une ligne vide à chaque cellule non vide
Réponses
2
Affichages
372
sylvanu
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
937
picc
P
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
S
  • Résolu(e)
XL 2013 Questions déjà traitée ici mais... (Insérer cellule dans nom de PDF)
Réponses
10
Affichages
530
StéphaneDeLà
S
F
  • Question Question
Microsoft 365 Problème RECHERCHEV avec plusieurs correspondances possibles pour une même valeur
2
Réponses
15
Affichages
834
floflatch22
F
K
  • Question Question
XL 2021 Insertion saut chariot plutôt qu'effectuer le saut en lui-même (Macro VBA)
Réponses
1
Affichages
742
KLfy
K
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
655
JJ69
J
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
738
Phil69970
  • Question Question
XL 2016 Gestion de Fuites d'un Parc de Compteurs
Réponses
6
Affichages
552
Captain NRJ
Y
  • Question Question
XL 2013 TCD - Calculer les données d'une colonne à l'aide d'une variable, ligne par ligne
Réponses
3
Affichages
602
chris
C
  • Question Question
XL 2016 rapatrier des informations en "scannant" les onglets d'un fichier excel vers les cellules d'un autre onglet
Réponses
6
Affichages
885
job75
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…