Bordures

Le
PdeC
Comment déterminer si une cellule a une bordure à droite ou pas ?
Merci pour un tuyeau ou peut-être le code !!
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
Azo4
Le #16546571
clic droi dessus, format, bordures...non?

--
--
Serge CENCI
MVP MS Windows
https://mvp.support.microsoft.com/profile/Serge.Cenci
http://www.communautes-numeriques.net/

"PdeC" news:48a44195$
Comment déterminer si une cellule a une bordure à droite ou pas ?
Merci pour un tuyeau ou peut-être le code !!


Minick
Le #16546561
Salut,

Si la propriete LineStyle n'est pas egale a xlNone par exemple :

If Range("A1").Borders(xlEdgeRight).LineStyle <> xlNone Then
.....
End If

Minick
++

PdeC a écrit :
Comment déterminer si une cellule a une bordure à droite ou pas ?
Merci pour un tuyeau ou peut-être le code !!


Jacky
Le #16546551
---------------------

Essaie ceci (ici, pour la cellule A1)
'---------
Sub jj()
If [a1].Borders(xlEdgeRight).LineStyle = xlNone Then
MsgBox "Non pas de bordure à droite"
Else
MsgBox "Oui bordure à droite"
End If
End Sub
'--------------

--
Salutations
JJ


"PdeC" 48a44195$
Comment déterminer si une cellule a une bordure à droite ou pas ?
Merci pour un tuyeau ou peut-être le code !!


Jacky
Le #16546781
Plus court.....

MsgBox IIf([a1].Borders(xlEdgeRight).LineStyle = xlNone, "Non", "Oui")

--
Salutations
JJ


"Jacky" ew0wX9h$
---------------------

Essaie ceci (ici, pour la cellule A1)
'---------
Sub jj()
If [a1].Borders(xlEdgeRight).LineStyle = xlNone Then
MsgBox "Non pas de bordure à droite"
Else
MsgBox "Oui bordure à droite"
End If
End Sub
'--------------

--
Salutations
JJ


"PdeC" 48a44195$
Comment déterminer si une cellule a une bordure à droite ou pas ?
Merci pour un tuyeau ou peut-être le code !!






Publicité
Poster une réponse
Anonyme