Aide sur un macro

[yusukens2]

Bonjours,
Je me suis crée une macro qui permet de personnaliser des bordures d'une plage sélectionné.

le souci de cette macro et qu'il ne marche que lorsqu'on sélectionne plusieur cellule horizontales et verticales

Y'aurait t'il un moyen de lui imposser des conditions :



CAS 2 : Si nous sélectionnons qu'une ou plusieur ligne horizontales la macro saute le code :
--------------------------------------
'Ligne Intérieur Horizontale
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
--------------------------------------


CAS 3 : Si nous sélectionnons qu'une ou plusieur ligne verticale la macro saute le code :
--------------------------------------
'Ligne Intérieur Verticale
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
--------------------------------------




CAS 4 :Et enfin si nous sélectionnons qu'une seule casse la macro saute le code :
--------------------------------------
'Ligne Intérieur Horizontale
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With

'Ligne Intérieur Verticale
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
--------------------------------------


Je met en pièce joint une feuille d'explication sur ce que doit faire la macro après rectification.

je vous remercies.

 

[Catrice]

Re : Aide sur un macro

Bonjour,

En testant le nombre de lignes et de colonnes.
Voir le fichier joint.

 

[Gorfael]

Re : Aide sur un macro

Bonjours,
Je me suis crée une macro qui permet de personnaliser des bordures d'une plage sélectionné.

le souci de cette macro et qu'il ne marche que lorsqu'on sélectionne plusieur cellule horizontales et verticales

Y'aurait t'il un moyen de lui imposser des conditions :



CAS 2 : Si nous sélectionnons qu'une ou plusieur ligne horizontales la macro saute le code :
--------------------------------------
'Ligne Intérieur Horizontale
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
--------------------------------------


CAS 3 : Si nous sélectionnons qu'une ou plusieur ligne verticale la macro saute le code :
--------------------------------------
'Ligne Intérieur Verticale
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
--------------------------------------




CAS 4 :Et enfin si nous sélectionnons qu'une seule casse la macro saute le code :
--------------------------------------
'Ligne Intérieur Horizontale
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With

'Ligne Intérieur Verticale
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
--------------------------------------


Je met en pièce joint une feuille d'explication sur ce que doit faire la macro après rectification.

je vous remercies.

Salut
le problème vient des délimitations intérieurs, quand elles n'xistent pas

If Selection.Columns.Count > 1 Then
'Ligne Intérieur Verticale
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
If Selection.Rows.Count > 1 Then
'Ligne Intérieur Horizontale
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
End If

Le reste du code n'est pas concerné.
Si tu as plus d'une colonne, alors tu t'occupes de la séparation verticale intérieure
si tu as plus d'une ligne, alors tu t'occupes de la séparation horizontale intérieure

Dans les autres cas, comme les séparations intérieures n'existent pas, tu ne leurs fait rien 😀
A+

 

[yusukens2]

Re : Aide sur un macro

Hooo
Merci Gorfael et Catrice d'avoir répondu si rapidement et m'avoir consacré de votre temps pour m'expliquer et résoudre mon probleme.
merci encore, la marco marche très bien.