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

  • Initiateur de la discussion Initiateur de la discussion Dimitry
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour