Bonjour,
Afin d'harmoniser ma table de travail, j'aimerai qu'à l'ouverture du fichier ou au refresh des datas (connexion à une base de donnée), la colonne "Y" et "Z" aient comme condition de format cellule : Wrap Text, mais sans toucher à la grandeur largeur des colonnes.
Je me suis inspiré d'un exemple mais je bloque ...
Afin d'harmoniser ma table de travail, j'aimerai qu'à l'ouverture du fichier ou au refresh des datas (connexion à une base de donnée), la colonne "Y" et "Z" aient comme condition de format cellule : Wrap Text, mais sans toucher à la grandeur largeur des colonnes.
Je me suis inspiré d'un exemple mais je bloque ...
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CheckRange As Range
Dim aCell As Range
[B] If Not Intersect(Target, Range("Y")) Is Nothing Then[/B]
With Target.Font
.Name = "Arial"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
[B]If Not Intersect(Target, Range("Z")) Is Nothing Then[/B]
With Target.Font
.Name = "Arial"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Target
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.wrapText = True
.MergeCells = True
End With
Target.Rows.EntireRow.AutoFit
End If
End Sub
Merci d'avance pour votre aide :-)
Dernière modification par un modérateur: