Ajout de ligne via un bouton

[datanews]

Bonjour,

1 - les faits : J'ai un tableau sous excel 2007 avec une ligne composée de titres pour les différentes colonnes. Sous ces titres je remplis une à une les lignes de gauche à droite sachant qu'il y a des formules dans les cellules.

2 - ce que je voudrais faire : une fois ma première ligne remplie, je voudrais :
- un bouton en fin de ligne qui me permette d'ajouter une ligne supplémentaire avec les mêmes formules que la première
- à coté de ce bouton, je voudrais un second bouton qui me permette de supprimer la ligne
- et enfin je voudrais que " excel " me prévienne lorsque mes ajouts de lignes dépassent la zone d'impression ou me fait changer de page

3 - est ce possible ? si oui comment ?

Merci par avance😎

 

[kjin]

Re : Ajout de ligne via un bouton

Bonjour,
La saisie via userform n'est-elle pas envisageable ?!
A+
kjin

 

[datanews]

Re : Ajout de ligne via un bouton

merci pour ta réponse, j'ai trouvé la réponse en fouinant un peu sur le forum : et j'ai fait une macro :

1. POUR Ajouter une ligne
- Un seul bouton
- J'ai Utilisé ce code en VBA:
Code:
Sub Ajout()
Selection.EntireRow.Insert
End sub

2. POUR Supprimer une ligne
- Crèe un bouton 'supprimer'
- j'ai fait ce code en VBA :
Code:
Sub Supprime()
Selection.EntireRow.Delete
End Sub

3. Par contre je voudrais savoir comment on fait pour que l'on reçoive un message dès que le nombre de ligne ajoutées dépassent la zone d'impression ? quelqu'un à une idée ?

 

[kjin]

Re : Ajout de ligne via un bouton

Bonsoir,
Boucle sur le nb de sauts de page correspondant à la zone d'impression et indication de la ligne correspondante
Il suffit ensuite de comparer avec le n° de la ligne ajoutée

With ActiveSheet
    e = .HPageBreaks.Count
    For i = 1 To e
        MsgBox .HPageBreaks.Item(i).Location.Row
    Next
End With

A+
kjin