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
Azo4
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" a écrit dans le message de news:48a44195$
Comment déterminer si une cellule a une bordure à droite ou pas ? Merci pour un tuyeau ou peut-être le code !!
clic droi dessus, format, bordures...non?
--
--
Serge CENCI
MVP MS Windows
https://mvp.support.microsoft.com/profile/Serge.Cenci
http://www.communautes-numeriques.net/
sergioENLEVERfrance@orange.fr
"PdeC" <pierredecandolle@bluewin.ch> a écrit dans le message de
news:48a44195$1_4@news.bluewin.ch...
Comment déterminer si une cellule a une bordure à droite ou pas ?
Merci pour un tuyeau ou peut-être le code !!
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
---------------------
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" a écrit dans le message de news: 48a44195$
Comment déterminer si une cellule a une bordure à droite ou pas ? Merci pour un tuyeau ou peut-être le code !!
---------------------
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" <pierredecandolle@bluewin.ch> a écrit dans le message de news:
48a44195$1_4@news.bluewin.ch...
Comment déterminer si une cellule a une bordure à droite ou pas ?
Merci pour un tuyeau ou peut-être le code !!
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" a écrit dans le message de news: 48a44195$
Comment déterminer si une cellule a une bordure à droite ou pas ? Merci pour un tuyeau ou peut-être le code !!
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" a écrit dans le message de news: 48a44195$
Comment déterminer si une cellule a une bordure à droite ou pas ? Merci pour un tuyeau ou peut-être le code !!
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
ew0wX9h$IHA.3756@TK2MSFTNGP03.phx.gbl...
---------------------
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" <pierredecandolle@bluewin.ch> a écrit dans le message de news:
48a44195$1_4@news.bluewin.ch...
Comment déterminer si une cellule a une bordure à droite ou pas ?
Merci pour un tuyeau ou peut-être le code !!
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" a écrit dans le message de news: 48a44195$
Comment déterminer si une cellule a une bordure à droite ou pas ? Merci pour un tuyeau ou peut-être le code !!