Bonjour.
Je désire écrire une macro qui m'indique si une cellule définie à une
bordure gauche ou inférieure ou les 2.
Cela sera incorporé dans un programme VBA très important.
Merci pour un tuyeau.
Pierre
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
michdenis
Sub test()
Dim Rg As Range 'à définir le nom de la feuille et de la cellule Set Rg = Worksheets("Feuil1").Range("B4")
With Rg If .Borders(xlEdgeLeft).LineStyle = -4142 Then MsgBox "Pas de bordure de gauche" End If If .Borders(xlEdgeBottom).LineStyle = -4142 Then MsgBox "Pas de bordure en bas" End If End With
End Sub
"PdeC" a écrit dans le message de news: 48bd4732$ Bonjour. Je désire écrire une macro qui m'indique si une cellule définie à une bordure gauche ou inférieure ou les 2. Cela sera incorporé dans un programme VBA très important. Merci pour un tuyeau. Pierre
Sub test()
Dim Rg As Range
'à définir le nom de la feuille et de la cellule
Set Rg = Worksheets("Feuil1").Range("B4")
With Rg
If .Borders(xlEdgeLeft).LineStyle = -4142 Then
MsgBox "Pas de bordure de gauche"
End If
If .Borders(xlEdgeBottom).LineStyle = -4142 Then
MsgBox "Pas de bordure en bas"
End If
End With
End Sub
"PdeC" <pierredecandolle@bluewin.ch> a écrit dans le message de news:
48bd4732$1_1@news.bluewin.ch...
Bonjour.
Je désire écrire une macro qui m'indique si une cellule définie à une
bordure gauche ou inférieure ou les 2.
Cela sera incorporé dans un programme VBA très important.
Merci pour un tuyeau.
Pierre
Dim Rg As Range 'à définir le nom de la feuille et de la cellule Set Rg = Worksheets("Feuil1").Range("B4")
With Rg If .Borders(xlEdgeLeft).LineStyle = -4142 Then MsgBox "Pas de bordure de gauche" End If If .Borders(xlEdgeBottom).LineStyle = -4142 Then MsgBox "Pas de bordure en bas" End If End With
End Sub
"PdeC" a écrit dans le message de news: 48bd4732$ Bonjour. Je désire écrire une macro qui m'indique si une cellule définie à une bordure gauche ou inférieure ou les 2. Cela sera incorporé dans un programme VBA très important. Merci pour un tuyeau. Pierre
PdeC
Un grand merci. Pierre
michdenis a écrit :
Sub test()
Dim Rg As Range 'à définir le nom de la feuille et de la cellule Set Rg = Worksheets("Feuil1").Range("B4")
With Rg If .Borders(xlEdgeLeft).LineStyle = -4142 Then MsgBox "Pas de bordure de gauche" End If If .Borders(xlEdgeBottom).LineStyle = -4142 Then MsgBox "Pas de bordure en bas" End If End With
End Sub
"PdeC" a écrit dans le message de news: 48bd4732$ Bonjour. Je désire écrire une macro qui m'indique si une cellule définie à une bordure gauche ou inférieure ou les 2. Cela sera incorporé dans un programme VBA très important. Merci pour un tuyeau. Pierre
Un grand merci.
Pierre
michdenis a écrit :
Sub test()
Dim Rg As Range
'à définir le nom de la feuille et de la cellule
Set Rg = Worksheets("Feuil1").Range("B4")
With Rg
If .Borders(xlEdgeLeft).LineStyle = -4142 Then
MsgBox "Pas de bordure de gauche"
End If
If .Borders(xlEdgeBottom).LineStyle = -4142 Then
MsgBox "Pas de bordure en bas"
End If
End With
End Sub
"PdeC" <pierredecandolle@bluewin.ch> a écrit dans le message de news:
48bd4732$1_1@news.bluewin.ch...
Bonjour.
Je désire écrire une macro qui m'indique si une cellule définie à une
bordure gauche ou inférieure ou les 2.
Cela sera incorporé dans un programme VBA très important.
Merci pour un tuyeau.
Pierre
Dim Rg As Range 'à définir le nom de la feuille et de la cellule Set Rg = Worksheets("Feuil1").Range("B4")
With Rg If .Borders(xlEdgeLeft).LineStyle = -4142 Then MsgBox "Pas de bordure de gauche" End If If .Borders(xlEdgeBottom).LineStyle = -4142 Then MsgBox "Pas de bordure en bas" End If End With
End Sub
"PdeC" a écrit dans le message de news: 48bd4732$ Bonjour. Je désire écrire une macro qui m'indique si une cellule définie à une bordure gauche ou inférieure ou les 2. Cela sera incorporé dans un programme VBA très important. Merci pour un tuyeau. Pierre