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 idée?

Merci pour votre temps

Denys
Vidéos High-Tech et Jeu Vidéo
Téléchargements
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