Discussion :

[akmer]

Bonjour, est il possible de reduire cette formule vba qui consiste à enlever SEULEMENT les bordures:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Sheets("Feuil1").Select
Cells.Select
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

J'avais pensé à ceci mais cela ne marche, je suis débutant donc je tente tous ce que je peux:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton1_Click()
Sheets("Feuil1").Select
Cells.Select
Selection.Borders(xlEdgeLeft, xlEdgeTop, xlEdgeBottom, xlEdgeRight, xlInsideVertical, xlInsideHorizontal).LineStyle = xlNone
End Sub

Merci d'avance pour vos conseils.

[edelweisseric]

Bonjour à tous
Bonjour akmer

Si j'ai bien compris, essaie ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Borders.LineStyle = xlNone

Eric

[laloune]

soit dit en passant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Cells.Select
Selection.Borders.LineStyle = xlNone

équivaut à :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells.Borders.LineStyle = xlNone

sauf que la seconde prend 1 ligne, la première 2

[akmer]

Merci à vous 2(laloune,edelweisseric) vos réponses sont celles que je voulais.
Derniére petites questions:
Il y a t'il une formule qui permettent de selectionné aucune case sous Excel, car dès qu'on vas sur une feuille il y a toujours une cellule selectionné et je voudrais inséré dans mes codes vba un code qui permetten d'éviter cela.
Je précise que je veux que aucune cellule soit selectionné mais par la suite il sera possible de selectionné une cellule.
Merci encore pour votre aide et j'éspére que vous trouverai une solution à la question ci-dessus.
Cordialement