Détection bordures de cellule

Le
JMD
Bonjour.

Quelqu'un peut-il avoir l'amabilité de m'indiquer comment, en VBA, on peut
détecter que la cellule Cells(X,Y) a un trait de bordure basse ?

Merci beaucup.
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
Jacky
Le #4354211
Bonsoir,
Ceci peut être
'----------
If ActiveCell.Borders(xlEdgeBottom).LineStyle <> xlNone Then MsgBox "Bordure
basse sur cette cellule"
ou
if cells(x,y)............................................
'----------

--
Salutations
JJ



"JMD"
Bonjour.

Quelqu'un peut-il avoir l'amabilité de m'indiquer comment, en VBA, on peut
détecter que la cellule Cells(X,Y) a un trait de bordure basse ?

Merci beaucup.




JMD
Le #4354191
Merci.

If Cells(LigneCorps, 1).Borders(xlEdgeBottom).LineStyle <> xlNone Then
MsgBox LigneCorps & "Bordure basse sur cette cellule"

répond sur toutes les cellules, même celles sans bordure... Mais je vais
insister !

A +


"Jacky" %
Bonsoir,
Ceci peut être
'----------
If ActiveCell.Borders(xlEdgeBottom).LineStyle <> xlNone Then MsgBox
"Bordure basse sur cette cellule"
ou
if cells(x,y)............................................
'----------

--
Salutations
JJ



"JMD"
Bonjour.

Quelqu'un peut-il avoir l'amabilité de m'indiquer comment, en VBA, on
peut détecter que la cellule Cells(X,Y) a un trait de bordure basse ?

Merci beaucup.








garnote
Le #4354141
Bonjour,

Un exemple avec la cellule A1:

Sub BordureBasse()
If [a1].Borders(4).LineStyle = xlNone Then
MsgBox "Pas de bordure basse."
Else
MsgBox "Bordure basse."
End If
End Sub

Serge

"JMD"
Bonjour.

Quelqu'un peut-il avoir l'amabilité de m'indiquer comment, en VBA, on peut détecter que la cellule Cells(X,Y) a un trait de
bordure basse ?

Merci beaucup.




JMD
Le #4331821
C'est OK Serge, merci beaucoup.


"garnote"
Bonjour,

Un exemple avec la cellule A1:

Sub BordureBasse()
If [a1].Borders(4).LineStyle = xlNone Then
MsgBox "Pas de bordure basse."
Else
MsgBox "Bordure basse."
End If
End Sub

Serge

"JMD"
Bonjour.

Quelqu'un peut-il avoir l'amabilité de m'indiquer comment, en VBA, on
peut détecter que la cellule Cells(X,Y) a un trait de bordure basse ?

Merci beaucup.








Publicité
Poster une réponse
Anonyme