Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Insertion ligne en fin de tableau

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ILoveZadig
  • 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 !

S'inscrire
I

ILoveZadig

XLDnaute Occasionnel
Rebonjour à tous,

Après quasiment 1h de recherche 😱 , je craque et demande votre aide. J'ai trouvé quelques fils que j'aurais peut-être pu exploiter, mais mon faible niveau en VB m'interdit toute tentative de modification des codes que j'ai trouvé. 🙁

Sur le fichier joint, le tableau dans lequel je souhaiterai qu'à chaque clic sur le bouton, une ligne s'ajoute avec la mise en forme convenable, et la recopie des formules dans les colonnes D et E.

Merci beaucoup par avance.
 

Pièces jointes

Trier par date Trier par votes
Re : Insertion ligne en fin de tableau

J'ai oublié de préciser que j'ajouterai la somme des montants HT déd et TVA déd en bas de ces colonnes. Il faut donc que les lignes ajoutées par macro soient prises en compte dans le calcul de ces sommes.

Merci beaucoup !
 
Vote positif 0 Vote négatif
Re : Insertion ligne en fin de tableau

J'ai continué à travailler dessus, mais je n'y arrive toujours pas. 🙁

Je vous envoie le fichier avec la macro que j'ai essayé de créer, mais cela ne fonctionne pas comme je voudrais :
  • la ligne inserée l'est toujours au-dessus de la ligne 20 (donc pas à la fin du tableau)
  • j'ai essayé d'inseré la mise en forme (bordures, copie des formules présentes...) dans la macro, sans succès.

Please, help
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Insertion ligne en fin de tableau

Bonsoir, voici la macro pour répondre à tes 2 problèmes.

Je te laisse reprendre la partie mise en forme,
mais le principe d'insertion de ligne et de modification de la plage de calcul
devrait te satisfaire.
Regarde la pièce jointe Macro2.xls

A noter: J'ai rajouté une plage nommée Cout_de_l_action
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Insertion ligne en fin de tableau

Merci déjà pour cet élément de réponse. 🙂

Un dernier soucis : l'idéal serait que cette ligne s'ajoute après la dernière ligne du tableau, en gardant sa mise en forme (bordure foncée en bas, formules...)

Je n'ai pas l'impression que c'est possible.. Peut-être des idées? 😕

Merci en tout cas, je pars déjà de ce fichier comme point de départ.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Insertion ligne en fin de tableau

Bonjour,

Code: 
l'idéal serait que cette ligne s'ajoute après la dernière ligne du tableau
la ligne s'ajoute aprés la dernière ligne renseignée

Code: 
en gardant sa mise en forme (bordure foncée en bas, formules...)
les formules en colonne D et E sont gardées, les formules coût de l'action prennent en compte de la ligne 10 à la fin du tableau.
La mise en forme est , je pense , correcte même si j'ai indiqué
Je te laisse reprendre la partie mise en forme,
Cliquez pour agrandir...
la mise en forme a été faite en grande partie avec l'enregistreur de macro donc à reprendre.

Ou alors je n'ai pas tout compris
 
Vote positif 0 Vote négatif
Re : Insertion ligne en fin de tableau

wamme à dit:
la ligne s'ajoute aprés la dernière ligne renseignée
Cliquez pour agrandir...

Bonjour wamme, le forum,

En effet, toutes mes excuses. J'avais testé la macro, en ajoutant juste une somme en colonne A de la dernière ligne, mais il faut que la ligne soit remplie davantage. Cette macro convient donc parfaitement.

Je vais peut-être sembler en vouloir beaucoup, mais est-il possible d'effectuer cette macro avec le classeur verouillé?


Edit : lorsque je lance la macro, les sommes ne se calculent plus? J'ai pourtant essayé de lancer la macro (ajout d'une ligne) puis de renseigner cette ligne, mais la formule somme ne fonctionne plus? Au pire des cas, je dois effacer la formule somme présente, et la remettre, ce qui est un moindre mal. 🙂
Merci encore en tout cas.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Insertion ligne en fin de tableau

Re,
pour une feuille protégée ajouter en début de macro
ActiveSheet.Unprotect
et à la fin
ActiveSheet.Protect
si la feuille est protégée sans mot de passe.

la formule somme ne fonctionne plus
Cliquez pour agrandir...
Elle fonctionne, vérifie dans les options que tu es en calculs automatiques
 
Vote positif 0 Vote négatif
Re : Insertion ligne en fin de tableau

En effet, le calcul était sur ordre. 🙄

La feuille est protégée avec mot de passe. J'ajoute donc ? (le mot de passe est par exemple : nicolas) :

Code: 
Sub Insertion()
[COLOR="red"]ActiveSheet.Unprotect [/COLOR]
derlig = Range("A6").End(xlDown).Row + 1                'recherche première ligne vide
Rows(derlig).Select
Selection.Insert Shift:=xlDown                          'Insertion à la première ligne vide

'*********Mise en forme
' A améliorer
ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    ActiveCell.Offset(-1, 0).Range("A1:E1").Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    ActiveCell.Offset(-1, 3).Range("A1:B1").Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-2, 0).Range("A1").Select
    Application.CutCopyMode = False
    
    ActiveCell.Offset(1, -3).Range("A1:E1").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With

' Aller à "Cout_de_l_action" et modifie les formules
Application.Goto Reference:="Cout_de_l_action"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Formula = "=SUM(D10:D" & [D10].End(xlDown).Row & ")"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Formula = "=SUM(E10:D" & [E10].End(xlDown).Row & ")"
[COLOR="Red"]ActiveSheet.Protect [/COLOR]
End Sub

Je suis plus que débutant en VB, donc désolé si les réponses à mes questions peuvent sembler évidentes. 😱
 
Vote positif 0 Vote négatif
Re : Insertion ligne en fin de tableau

Merci énormément pour ces réponses rapides, et plus que pertinentes. J'espère, malgré mon faible niveau, pouvoir rendre la pareille à d'autres utilisateurs de ce forum.

Bonne journée à tous.
 
Vote positif 0 Vote négatif
Re : Insertion ligne en fin de tableau

Rebonjour à tous,

Je me suis rendu compte que lorsque l'on ajoute les codes :

Code: 
ActiveSheet.Unprotect

Code: 
ActiveSheet.Protect

Le verrouillage de la feuille redevient standard, c'est-à-dire avec uniquement la possibilité de sélectionner les cellules verrouillées et non verrouillées.

Est-il possible via cette macro de reverrouiller la feuille avec certains critères précis tels que :
  • Format de cellules
  • Format de colonnes
  • Format de lignes
  • Insérer colonnes/lignes
  • Supprimer colonnes/lignes
  • Utiliser le filtre automatique

Merci beaucoup par avance. 🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

C
  • Résolu(e)
Microsoft 365 Créer un RV outlook à partir de chaque ligne d'un tableau
Réponses
8
Affichages
2 K
c.branco
C
M
  • Question Question
Microsoft 365 Petit problème ajout ligne à un tableau
Réponses
4
Affichages
823
Mathieu35190
M
A
  • Question Question
XL pour MAC outils tableau, création automatique de ligne à partir d'un autre tableau
Réponses
5
Affichages
1 K
axel211
A
M
  • Question Question
XL 2013 VBA : Remplir un tableau nommé et insérer lignes via formulaire
Réponses
1
Affichages
3 K
fanfan38
N
  • Résolu(e)
XL 2016 Lenteur à l'insertion de ligne en VBA
Réponses
5
Affichages
3 K
Nicocotte125
N
S
  • Résolu(e)
XL 2016 VBA affichage image/sélection ligne après click souris
Réponses
2
Affichages
2 K
SEBABOO
S
D
  • Question Question
XL 2010 Incrémentation- formulaire problème saut de ligne (en dehors du tableau)!!!
Réponses
1
Affichages
497
djam28
D
  • Question Question
Outlook extraction from Excel des contacts de tous les groupes de contact d'outlook
Réponses
0
Affichages
2 K
dmc27
  • Question Question
Tableau de caisse journalière à convertir en écritures comptables
2
Réponses
22
Affichages
8 K
chris
M
  • Question Question
VBA: Ajouter une ligne en fin de tableau en reprenant certaines données de la dernière ligne
2 3
Réponses
41
Affichages
34 K
troopers87
S
  • Question Question
XL 2016 Insertion de lignes [Résolu]
Réponses
3
Affichages
1 K
Sly le globe trotter
S
  • Question Question
Macro Insertion de ligne à endroit déterminé
2
Réponses
15
Affichages
3 K
Sylvie
Z
  • Question Question
Insertion automatique de ligne dans un tableau excel
Réponses
1
Affichages
2 K
CISCO
K
  • Question Question
Recopie ancienne formule lors de l'insertion d'une ligne dans un tableau
Réponses
1
Affichages
2 K
korben8
K
G
  • Question Question
VBA: Passer en paramètre de fonction une ligne d'un tableau (listbox) bidimensionnel
Réponses
7
Affichages
3 K
Guy_M
G
F
  • Question Question
Optimisation de macro et correction de MEF conditionnel
Réponses
4
Affichages
1 K
fredd
F
O
  • Question Question
Insertion d'une ligne en fonction de deux critères
Réponses
0
Affichages
6 K
Olic
O
F
  • Question Question
copie automatique de données avec restructuration, insertion à la suite d'un tableau
2 3
Réponses
35
Affichages
32 K
friseb
F
F
  • Question Question
Insertion automatique de lignes dans un tableau sur plusieurs onglets
Réponses
0
Affichages
1 K
FloRib
F
O
  • Question Question
Insertion ligne dans un tableau (ListObject) sur feuille protégée
Réponses
0
Affichages
2 K
Ocykath
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…