Discussion :

[Invité]

Bonjour,
Je viens vers vous car j'ai un problème, j'ai un bouton qui insére une ligne en dessous de la cellule An séléctionné, mais je veux qu'il mette en bordure toute la ligne, sauf que le code que j'ai mis met en bordure que la cellule en bas de celle séléctionné

Voici mon code macro:

Code :

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

1
2
3
4
5
6
7
8
Sub Ajouter_Un_Acte_Cliquer() 'Ajoute acte SUIVI PA
'Plage = Selection.Address
 '   Range(Plage).Select
  '  Selection.EntireRow.Insert Shift:=xlDown
  Plage = Selection.Address
    Range(Plage).Offset(Range(Plage).Rows.Count, 0).EntireRow.Insert Shift:=xlDown
 
End Sub

[Menhir]

le code que j'ai mis met en bordure que la cellule en bas de celle séléctionné

Essaye ça :

Code :

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

1
2
3
4
5
Sub Ajouter_Un_Acte_Cliquer() 'Ajoute acte SUIVI PA
    Selection.EntireRow.Copy
    Selection.EntireRow.Insert Shift:=xlDown
    Selection.Offset(1, 0).EntireRow.ClearContents
End Sub

[Invité]

Bonjour,
Merci avant tout de ton aide !

J'ai essayé mais c'est le même problème en fait, ca met en bordure que la cellule en bas de celle sélectionné

C

[Menhir]

Il n'y aurait pas un élément que tu aurais oublié de signaler ? Une MFC dans ce tableau par exemple ?

[Invité]

AHH OUIIII, c'est bon ca marche, en fait fallait juste remplir la première cellule de la ligne pour que toutes le bordures soient mises étant donné que j'avait mis une MFC pour tous les autres cellules : =ESTTEXTE($A3)

MERCI INFINIMENT