Bordures automatique

Le
Denys
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 ide?

Merci pour votre temps

Denys
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #18754751
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" 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
Denys
Le #18754891
Bonsoir Philippe,

Absolument parfait....

Merci beaucoup

Denys
Publicité
Poster une réponse
Anonyme