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

un internaute

XLDnaute Impliqué
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
 

Pièces jointes

  • toto.xls
    46.5 KB · Affichages: 6

Dudu2

XLDnaute Barbatruc
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 ?

output3.gif
 

un internaute

XLDnaute Impliqué
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
 

Dudu2

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

XLDnaute Impliqué
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.
 

Dudu2

XLDnaute Barbatruc
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.
 

Dudu2

XLDnaute Barbatruc
Mets ça dans la feuille Feuil1 pour empêcher la modification de la formule:
VB:
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
 

Dudu2

XLDnaute Barbatruc
En effet, tu as raison.
Il faut limiter le contrôle de modifications à 3 colonnes.
VB:
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
 

Deadpool_CC

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

Discussions similaires