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
Frédéric Sigonneau
Bonjour,
Essaye de modifier ta procédure comme ceci :
'===================== Sub DrawLine(aEdge) With Selection Select Case .Count Case 1: If aEdge = xlInsideVertical Or aEdge = xlInsideHorizontal _ Then Exit Sub Case 2: If .Columns.Count = 1 And aEdge = xlInsideVertical Then Exit Sub If .Rows.Count = 1 And aEdge = xlInsideHorizontal Then Exit Sub Case Is > 2: If .Areas.Count = 1 Then With .Borders(aEdge) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End If End Select End With End Sub '===================== NB : Ça ne fonctionnera pas correctement si la sélection à mettre en forme est discontinue (composée de plusieurs plages distinctes). Si c'est ton besoin, ça nécessitera plus de code, mais ça devrait être possible malgré tout.
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'aimerais avoir votre aide. J'utilise cette fonction pour définir les Borders de ma cellule ou de mes cellules dans une selection.
Sub DrawLine(aEdge) With Selection.Borders(aEdge) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End Sub
Quand je n'ai qu'une cellule à encadrer, je ne peux pas utiliser xlInsideVertical et xlInsideHorizontal. Comment faire pour dire
- si je n'ai qu'une seule cellule à encadrer alors n'utilise pas xlInsideVertical et xlInsideHorizontal
- si j 'ai deux cellule l'une au dessus de l'autre tu peux utiliser xlInsideHorizontal
- si j 'ai deux cellule l'une à côté de l'autre tu peux utiliser xlInsideVertical
- - si j 'ai Quatre cellules quit sont en contact alors tu peux utiliser xlInsideVertical et xlInsideHorizontal
Est ce que c'est faisable?
Keawee
Bonjour,
Essaye de modifier ta procédure comme ceci :
'===================== Sub DrawLine(aEdge)
With Selection
Select Case .Count
Case 1:
If aEdge = xlInsideVertical Or aEdge = xlInsideHorizontal _
Then Exit Sub
Case 2:
If .Columns.Count = 1 And aEdge = xlInsideVertical Then Exit Sub
If .Rows.Count = 1 And aEdge = xlInsideHorizontal Then Exit Sub
Case Is > 2:
If .Areas.Count = 1 Then
With .Borders(aEdge)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
End Select
End With
End Sub
'=====================
NB : Ça ne fonctionnera pas correctement si la sélection à mettre en forme est
discontinue (composée de plusieurs plages distinctes). Si c'est ton besoin, ça
nécessitera plus de code, mais ça devrait être possible malgré tout.
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'aimerais avoir votre aide. J'utilise cette fonction pour
définir les Borders de ma cellule ou de mes cellules dans
une selection.
Sub DrawLine(aEdge)
With Selection.Borders(aEdge)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
'===================== Sub DrawLine(aEdge) With Selection Select Case .Count Case 1: If aEdge = xlInsideVertical Or aEdge = xlInsideHorizontal _ Then Exit Sub Case 2: If .Columns.Count = 1 And aEdge = xlInsideVertical Then Exit Sub If .Rows.Count = 1 And aEdge = xlInsideHorizontal Then Exit Sub Case Is > 2: If .Areas.Count = 1 Then With .Borders(aEdge) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End If End Select End With End Sub '===================== NB : Ça ne fonctionnera pas correctement si la sélection à mettre en forme est discontinue (composée de plusieurs plages distinctes). Si c'est ton besoin, ça nécessitera plus de code, mais ça devrait être possible malgré tout.
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'aimerais avoir votre aide. J'utilise cette fonction pour définir les Borders de ma cellule ou de mes cellules dans une selection.
Sub DrawLine(aEdge) With Selection.Borders(aEdge) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End Sub
Quand je n'ai qu'une cellule à encadrer, je ne peux pas utiliser xlInsideVertical et xlInsideHorizontal. Comment faire pour dire
- si je n'ai qu'une seule cellule à encadrer alors n'utilise pas xlInsideVertical et xlInsideHorizontal
- si j 'ai deux cellule l'une au dessus de l'autre tu peux
utiliser xlInsideHorizontal
- si j 'ai deux cellule l'une à côté de l'autre tu peux utiliser xlInsideVertical
- - si j 'ai Quatre cellules quit sont en contact alors tu
peux utiliser xlInsideVertical et xlInsideHorizontal
Est ce que c'est faisable?
Keawee .
gb
Bonjour.
Je crois que tu peux simplement ajouter une commande On Error Resume Next dans la procédure DrawLine:
Sub DrawLine(aEdge) On Error Resume Next With Selection.Borders(aEdge) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End Sub
gb
"Frédéric Sigonneau" wrote in message news:
Bonjour,
Essaye de modifier ta procédure comme ceci :
'===================== > Sub DrawLine(aEdge) With Selection Select Case .Count Case 1: If aEdge = xlInsideVertical Or aEdge = xlInsideHorizontal _ Then Exit Sub Case 2: If .Columns.Count = 1 And aEdge = xlInsideVertical Then Exit Sub If .Rows.Count = 1 And aEdge = xlInsideHorizontal Then Exit Sub Case Is > 2: If .Areas.Count = 1 Then With .Borders(aEdge) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End If End Select End With End Sub '===================== > NB : Ça ne fonctionnera pas correctement si la sélection à mettre en forme est
discontinue (composée de plusieurs plages distinctes). Si c'est ton besoin, ça
nécessitera plus de code, mais ça devrait être possible malgré tout.
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'aimerais avoir votre aide. J'utilise cette fonction pour définir les Borders de ma cellule ou de mes cellules dans une selection.
Sub DrawLine(aEdge) With Selection.Borders(aEdge) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End Sub
Quand je n'ai qu'une cellule à encadrer, je ne peux pas utiliser xlInsideVertical et xlInsideHorizontal. Comment faire pour dire
- si je n'ai qu'une seule cellule à encadrer alors n'utilise pas xlInsideVertical et xlInsideHorizontal
- si j 'ai deux cellule l'une au dessus de l'autre tu peux utiliser xlInsideHorizontal
- si j 'ai deux cellule l'une à côté de l'autre tu peux utiliser xlInsideVertical
- - si j 'ai Quatre cellules quit sont en contact alors tu peux utiliser xlInsideVertical et xlInsideHorizontal
Est ce que c'est faisable?
Keawee
Bonjour.
Je crois que tu peux simplement ajouter une commande On Error Resume Next
dans la procédure DrawLine:
Sub DrawLine(aEdge)
On Error Resume Next
With Selection.Borders(aEdge)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
gb
"Frédéric Sigonneau" <frederic.sigonneau@wanadoo.fr> wrote in message
news:3FB0FC3D.1425C523@wanadoo.fr...
Bonjour,
Essaye de modifier ta procédure comme ceci :
'===================== > Sub DrawLine(aEdge)
With Selection
Select Case .Count
Case 1:
If aEdge = xlInsideVertical Or aEdge = xlInsideHorizontal _
Then Exit Sub
Case 2:
If .Columns.Count = 1 And aEdge = xlInsideVertical Then Exit Sub
If .Rows.Count = 1 And aEdge = xlInsideHorizontal Then Exit Sub
Case Is > 2:
If .Areas.Count = 1 Then
With .Borders(aEdge)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
End Select
End With
End Sub
'===================== >
NB : Ça ne fonctionnera pas correctement si la sélection à mettre en forme
est
discontinue (composée de plusieurs plages distinctes). Si c'est ton
besoin, ça
nécessitera plus de code, mais ça devrait être possible malgré tout.
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'aimerais avoir votre aide. J'utilise cette fonction pour
définir les Borders de ma cellule ou de mes cellules dans
une selection.
Sub DrawLine(aEdge)
With Selection.Borders(aEdge)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
Je crois que tu peux simplement ajouter une commande On Error Resume Next dans la procédure DrawLine:
Sub DrawLine(aEdge) On Error Resume Next With Selection.Borders(aEdge) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End Sub
gb
"Frédéric Sigonneau" wrote in message news:
Bonjour,
Essaye de modifier ta procédure comme ceci :
'===================== > Sub DrawLine(aEdge) With Selection Select Case .Count Case 1: If aEdge = xlInsideVertical Or aEdge = xlInsideHorizontal _ Then Exit Sub Case 2: If .Columns.Count = 1 And aEdge = xlInsideVertical Then Exit Sub If .Rows.Count = 1 And aEdge = xlInsideHorizontal Then Exit Sub Case Is > 2: If .Areas.Count = 1 Then With .Borders(aEdge) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End If End Select End With End Sub '===================== > NB : Ça ne fonctionnera pas correctement si la sélection à mettre en forme est
discontinue (composée de plusieurs plages distinctes). Si c'est ton besoin, ça
nécessitera plus de code, mais ça devrait être possible malgré tout.
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'aimerais avoir votre aide. J'utilise cette fonction pour définir les Borders de ma cellule ou de mes cellules dans une selection.
Sub DrawLine(aEdge) With Selection.Borders(aEdge) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With End Sub
