Autres Immobiliser des cellules malgrès l'insertion de lignes

Dimitry

XLDnaute Nouveau
Bonjour tout le monde,

Je suis sur excel 2007, et je travaille sur une feuille de devis classique type "désignation, quantité, Prix unitaire, Total"
J'ai alors tout en bas de mon tableau mon récapitulatif "total HT", "TVA", "total TTC" + 4 autres lignes" soit 7 lignes au total
Je souhaiterais que ces 7 dernières lignes restent toujours en bas de ma DERNIERE page,
C'est à dire que, si on insère des lignes en haut ou en bas, ce tableau ne bouge pas.

J'ai tenté avec "figer les volets" mais je pense pas que ce soit la bonne solution,
Si ce sujet à déjà été traité, merci de me renvoyer vers le lien (pas trouvé de mon côté),

En vous remerciant par avance,
Dimitry
 

job75

XLDnaute Barbatruc
Bonjour Dimitry, chris,

Voyez le fichier joint et cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ligTotal&, c As Range
ligTotal = 50 'ligne fixe à adapter
Set c = Cells.Find("total HT", , xlValues)
If c Is Nothing Then MsgBox "'total HT' introuvable ...": Exit Sub
If c.Row < ligTotal Then
    c.EntireRow.Resize(ligTotal - c.Row).Insert
ElseIf c.Row > ligTotal Then
    Rows(ligTotal).Resize(c.Row - ligTotal).Delete
End If
End Sub
Testez en insérant ou supprimant des lignes dans la zone en jaune.

A+
 

Pièces jointes

  • ligTotal(1).xlsm
    21.4 KB · Affichages: 5
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG