Je voudrais qu'=E0 chaque fois qu'un usager =E9crive quelque chose dans
une cellule de la colonne "A" que toutes les cellules adjacentes de la
colonne B =E0 W aient une bordure xlThin....
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonsoir, Un truc comme ci, peut être :
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a:a")) Is Nothing Then lLl = Target.Row With Range("b" & lLl & ":w" & lLl).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin End With End If End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Denys" a écrit dans le message de news: Bonjour à tous,
Je voudrais qu'à chaque fois qu'un usager écrive quelque chose dans une cellule de la colonne "A" que toutes les cellules adjacentes de la colonne B à W aient une bordure xlThin....
Auriez-vous une idée?
Merci pour votre temps...
Denys
Bonsoir,
Un truc comme ci, peut être :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
lLl = Target.Row
With Range("b" & lLl & ":w" & lLl).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
End If
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Denys" <denys.perreault@rbc.com> a écrit dans le message de
news:82718c78-379a-4f13-b37d-3017cd4b3e10@f33g2000vbf.googlegroups.com...
Bonjour à tous,
Je voudrais qu'à chaque fois qu'un usager écrive quelque chose dans
une cellule de la colonne "A" que toutes les cellules adjacentes de la
colonne B à W aient une bordure xlThin....
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a:a")) Is Nothing Then lLl = Target.Row With Range("b" & lLl & ":w" & lLl).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin End With End If End Sub
-- Avec plaisir http://dj.joss.free.fr/trombine.htm http://jacxl.free.fr/mpfe/trombino.html Philippe.R Pour se connecter au forum : http://www.excelabo.net/mpfe/connexion.php News://news.microsoft.com/microsoft.public.fr.excel "Denys" a écrit dans le message de news: Bonjour à tous,
Je voudrais qu'à chaque fois qu'un usager écrive quelque chose dans une cellule de la colonne "A" que toutes les cellules adjacentes de la colonne B à W aient une bordure xlThin....