Inserér ligne et formule en lien avec un bouton
Pierre
-
danielc0 Messages postés 1858 Date d'inscription Statut Membre Dernière intervention -
danielc0 Messages postés 1858 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je travaille sur un fichier excel mais je bloque...
J'ai quelques notion mais je débute
Dans ma feuille excel j'ai différent tableau (3 pour le moment) composé de sous tableau 5 par grand tableau).
A la dernière ligne de chaque sous tableau j'ai un bouton qui active la macros inser_ligne.
->
Sub Inser_ligne()
'faire une nouvelle ligne
Range("D14").EntireRow.Insert Shift:=xlDown
'copier la ligne du dessus
Range("D14").Offset(-1, 0).EntireRow.Copy Cells(16, 1)
On Error Resume Next
'effacer le contenu de la nouvelle ligne mais garder la forme
Range("D14").EntireRow.SpecialCells(xlCellTypeConstants, 1).ClearContents
End Sub
1er problème : les formules
la macro insert une ligne en fonction d'une cellule cible, elle copie bien la mise en forme mais pas les formules... comment faire ?
2eme problème : le décalage
quand j’insère une ligne avec mon premier bouton, tout mes autres boutons ne sont plus valable car la ligne de référence (la cellule cible dans la macro: D14) n'est plus la bonne, elle n'a pas décalé d'un point...
N'est il pas possible de définir la cellule cible en fonction de l'emplacement du bouton ?
Merci beaucoup
Voici un lien pour le fichier : https://www.cjoint.com/c/IAhnyPAcUIf
Je travaille sur un fichier excel mais je bloque...
J'ai quelques notion mais je débute
Dans ma feuille excel j'ai différent tableau (3 pour le moment) composé de sous tableau 5 par grand tableau).
A la dernière ligne de chaque sous tableau j'ai un bouton qui active la macros inser_ligne.
->
Sub Inser_ligne()
'faire une nouvelle ligne
Range("D14").EntireRow.Insert Shift:=xlDown
'copier la ligne du dessus
Range("D14").Offset(-1, 0).EntireRow.Copy Cells(16, 1)
On Error Resume Next
'effacer le contenu de la nouvelle ligne mais garder la forme
Range("D14").EntireRow.SpecialCells(xlCellTypeConstants, 1).ClearContents
End Sub
1er problème : les formules
la macro insert une ligne en fonction d'une cellule cible, elle copie bien la mise en forme mais pas les formules... comment faire ?
2eme problème : le décalage
quand j’insère une ligne avec mon premier bouton, tout mes autres boutons ne sont plus valable car la ligne de référence (la cellule cible dans la macro: D14) n'est plus la bonne, elle n'a pas décalé d'un point...
N'est il pas possible de définir la cellule cible en fonction de l'emplacement du bouton ?
Merci beaucoup
Voici un lien pour le fichier : https://www.cjoint.com/c/IAhnyPAcUIf
Configuration: Windows / Chrome 69.0.3497.100
A voir également:
- Inserér ligne et formule en lien avec un bouton
- Partager des photos avec un lien - Guide
- Formule si et - Guide
- Lien url - Guide
- Insérer video powerpoint - Guide
- Formule somme excel ligne - Guide
Voici le lien :
https://www.cjoint.com/c/IAhnyPAcUIf
Merci d'avance
2. La cellule D14 reste à sa place. La cellule cible est A16. Est-ce celle-ci qui te pose problème ?
Daniel
j'ai actualisé mes formules
Les formules ne suivent toujours pas l'insertion de ligne, je ne comprend pas pourquoi d'ailleurs ...
A chaque insertion de ligne, l'ensemble se décale, en je fini par ne plus inséré les lignes sur le bon sous-tableau.
Par exemple si j'ajoute des lignes sur mon sous-tableau "stocks début physique", quand je veux ajouter sur le sous tableau "achats", il ajoute au mauvais endroit (sur la ligne d16, qui ne fait plus partie du sous-tableau "achats")
J’espère être assez clair
Merci Beaucoup
Daniel