erreur code quadrillage ligne

[poipoi]

bonjour à tous
voilà j'ai une macro qui, en principe, met au format souhaiter directement une ou des cellules. Tout va bien quand je sélectionne une plage de cellules avec au moins 2 lignes mais sur une ligne ça me renvoie un messsage d'erreur, je pense que c'est parce que la macro considère qu'il n'y a pas de bordures à l'intérieur de la cellule..
voici le code:

For Each Cellule In Selection.Cells
With Selection.Interior
.ColorIndex = 11
.Pattern = xlSolid
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 11
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 11
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 11
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 11
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 2
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 2
End With
With Selection.Interior
Selection.Font.ColorIndex = 2
Selection.Font.Bold = True


End With
Next
End Sub




d'avance merci à vous

 

[Pierrot93]

Re : erreur code quadrillage ligne

Bonjour,

peut être en testant le nombre de lignes sélectionnées :

If Selection.Rows.Count > 1 Then
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 2
    End With
End If

bonne journée
@+

 

[poipoi]

Re : erreur code quadrillage ligne

Bonjour et merci..Pierrot93
je ne comprends pas où intercaller ton code., car après quelques tentatives, j'ai toujours la même erreur.
Mon souhait au départ était d'avoir pour LA ou LES cellules sélectionnées:
un motif couleur 11, une bordure blanche et du texte couleur en caractère gras.
si ça peut aider...

 

[Pierrot93]

Re : erreur code quadrillage ligne

Re,

intercale les lignes en rouge avant et après celles en rouge :

[COLOR="Red"]If Selection.Rows.Count > 1 Then[/COLOR]    
    [COLOR="Blue"]With Selection.Borders(xlInsideHorizontal)[/COLOR]        
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = 2
    [COLOR="blue"]End With[/COLOR]
[COLOR="red"]End If[/COLOR]

d'après ce que je vois de ton code c'est "xlInsideHorizontal" qui pose problème si une seule ligne de sélectionnée, puisque insertion de bordure entre 2 lignes....

bon après midi
@+

 

[poipoi]

Re : erreur code quadrillage ligne

eh ben voilà ça marche...
merci à toi Pierro93..
et bon weekend