Autres [RÉSOLU] Ajouter ligne en fin de tableau avec même hauteur de ligne

[un internaute]

Bonjour le forum
J'ai mis sur un autre forum (Excel pratique) mais ça n'a pas "mordu" ou une fois
Comme dit dans le titre pour ajouter ligne en fin de tableau avec même hauteur de ligne
Merci à vous

 

[Dudu2]

Bonjour,
Ton insertion ajoute déjà la ligne en fin de tableau avec la même hauteur de ligne que celle copiée.
Alors c'est quoi ton problème ?

 

[un internaute]

Bonjour Dudu2
Oui mais il faut se positionner sur une ligne existante en l’occurrence 11 et je voudrais la faire effacer.
Si je la fait effacer elle devient 11 au lieu de 12 et ensuite à l'enregistrement elle n'est plus dans l'ordre
Exemple MAI 200 € 20/05/22 en dernière ligne

 

[un internaute]

A part ne pas la faire effacer je ne vois pas comment faire

 

[Dudu2]

Oui mais il faut se positionner sur une ligne existante en l’occurrence 11 et je voudrais la faire effacer.
Si je la fait effacer elle devient 11 au lieu de 12 et ensuite à l'enregistrement elle n'est plus dans l'ordre
Exemple MAI 200 € 20/05/22 en dernière ligne

Je ne comprends pas ce que tu dis.
Scénario:
- je sélectionne la ligne 11
- je clique sur le bouton
- la macro:
-- copie la ligne 11 sur la ligne 12
-- efface la ligne 11 ?
?? La hauteur de ligne se réduit quel moment ?
?? Pour toi "effacer" c'est supprimer la ligne X ou effacer les valeurs de la ligne X ?
?? D'où vient le MAI 200 € 20/05/22 en dernière ligne ? Tu le saisis ? A quel moment ?
Décris un scénario compréhensible, parce que là c'est incompréhensible.

 

[un internaute]

Effectivement recopie ligne 12 même valeurs que la ligne 11
Il faut faire effacer les valeurs de la nouvelle ligne 12 et ensuite moi je tape le MOIS Le MONTANT et DATE
Lorsque je tape le MOIS ça efface la formule cellule A12 je ne pense pas qu'on puisse y échapper.

 

[un internaute]

J'ai fait ça et ça fonctionne. le seule truc c'est qu'il faut ajouter la formule colonne A

 

[Dudu2]

Il faut protéger la feuille avec les bonnes autorisations et déverrouiller toutes les cellules sauf celles contenant une formule.
Ou plus simple, intercepter les modifs sur les cellules de la colonne A et faire une Application.Undo avec un MsgBox indiquant que la modif de ces cellules n'est pas autorisée.

 

[un internaute]

Il faut taper le montant et la date colonne C comme ça la formule colonne A ne s'efface pas et ce met à jour
Merci à toi pour ton implication
Je te souhaite une bonne journée
Cordialement

 

[Dudu2]

Mets ça dans la feuille Feuil1 pour empêcher la modification de la formule:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Me.[A4:A9999]) Is Nothing Then Exit Sub
    MsgBox "La modification des cellules de la colonne A n'est pas autorisée !"
    Application.EnableEvents = False
    Application.Undo
    Application.EnableEvents = True
End Sub

 

[un internaute]

Ça bloque sur la ligne

Application.Undo

 

[Dudu2]

En effet, tu as raison.
Il faut limiter le contrôle de modifications à 3 colonnes.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Me.[A4:A9999]) Is Nothing Then Exit Sub
    If Target.Columns.Count > 3 Then Exit Sub
    MsgBox "La modification des cellules de la colonne A n'est pas autorisée !"
    Application.EnableEvents = False
    Application.Undo
    Application.EnableEvents = True
End Sub

 

[un internaute]

OK ça fonctionne
Merci à toi et bonne fin de journée
Cordialement

 

[youky(BJ)]

Bonjour le fil et tous,
Pour ne pas passer à coté avec une solution simple Insertion Tableau
Cela résout pas mal de trucs.
Voici en essai, macro non utile
Bruno

 

[Deadpool_CC]

Autre méthode fixe en colonne D (ou E ou plus loin) une taille de police de caractère plus grande qui permettra à Excel de déterminer la hauteur de ligne minimum ... Lol
exemple : positionne ta police en taille 18 et tente d'insérer une ligne n'importe ou ... tes ligne aura toute à minima la hauteur nécessaire pour que l'affiche taille 18 passe correctement