Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Selection de plusieurs cellules de l'activeCell.row

Selection de plusieurs cellules de l'activeCell.row

3 réponses
Avatar
ManBas
Bonjour à tous,
Je suis "à la bourre" pour rendre un petit travail.
Je voudrais sélectionner plusieurs cellules sur la ligne de la cellule
active, afin de les souligner.
Voici ce que j'ai écris, ça marche pour la cellule de la colonne B, mais je
souhaite souligner les cellules des colonnes B à D par exemple.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
ligne = ActiveCell.Row
Range("B" & ligne).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
End If
End Sub

Pouvez-vous me filer un coup de main avant demain SVP?
Merci à tous.
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
daniel_hg
***********************************************************************
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ligne As Long
If Target.Column = 1 Then
ligne = ActiveCell.Row
Range("B" & ligne, "D" & ligne).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
End If
End Sub
****************************************************************************

"ManBas" escribió en el mensaje
news:%
Bonjour à tous,
Je suis "à la bourre" pour rendre un petit travail.
Je voudrais sélectionner plusieurs cellules sur la ligne de la cellule
active, afin de les souligner.
Voici ce que j'ai écris, ça marche pour la cellule de la colonne B, mais
je souhaite souligner les cellules des colonnes B à D par exemple.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
ligne = ActiveCell.Row
Range("B" & ligne).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
End If
End Sub

Pouvez-vous me filer un coup de main avant demain SVP?
Merci à tous.



Avatar
LSteph
Bonsoir Manbas,

Pas tout compris du but de l'objectif de la manoeuvre et du pourqoui
selection change sur colonne 1 mais peut-être veux-tu ceci:
'***
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then


With Intersect([b:d], Rows(Target.Row)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With

End If
End Sub
'***
'lSteph


"ManBas" a écrit dans le message de news:
%
Bonjour à tous,
Je suis "à la bourre" pour rendre un petit travail.
Je voudrais sélectionner plusieurs cellules sur la ligne de la cellule
active, afin de les souligner.
Voici ce que j'ai écris, ça marche pour la cellule de la colonne B, mais
je souhaite souligner les cellules des colonnes B à D par exemple.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
ligne = ActiveCell.Row
Range("B" & ligne).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
End If
End Sub

Pouvez-vous me filer un coup de main avant demain SVP?
Merci à tous.



Avatar
ManBas
Bonjour à tous et merci beaucoup.

LSteph a raison: soit c'est colonne 2, soit c'est A&ligne.

La solution de Daniel, plus proche de mes capacités d'écriture et de
compréhension, fonctionne trés bien.

Le but de la macro est de "souligner" (éventuellement de mettre aussi la
bordure Top) dans un tableur large afin de suivre plus facilement la saisie,
dès que l'on a rempli la 1ere cellule de la ligne.
La dernière cellule de la ligne permet de supprimer les bordures.

A bientôt


"ManBas" a écrit dans le message de news:
%
Bonjour à tous,
Je suis "à la bourre" pour rendre un petit travail.
Je voudrais sélectionner plusieurs cellules sur la ligne de la cellule
active, afin de les souligner.
Voici ce que j'ai écris, ça marche pour la cellule de la colonne B, mais
je souhaite souligner les cellules des colonnes B à D par exemple.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
ligne = ActiveCell.Row
Range("B" & ligne).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
End If
End Sub

Pouvez-vous me filer un coup de main avant demain SVP?
Merci à tous.