Insertion de lignes ou de colonnes avec modif de formules par macro

[KIM]

Bonjour le forum, et les ami(e)s,
J'ai un modèle de tableau utilisé dans le cadre d'une demande et de suivi finacier de projets. Pour l'ensemble des projets le nombre de colonnes et de lignes ne sont pas les mêmes.
Quand je remplis ce cadre pour un projet donné,
1- Pour un nouveau partenaire, j'insère 5 lignes avec une ligne sous-total avant la dernière ligne du TOTAL, et je modifie les formules de la dernière ligne total manuellement.
2- Pour une année supplémentaire d'investissement, j'insère l 3 colonnes avant les 3 dernières colonnes des sous/totaux par type et je modife les formules manuellement
voir fichier joint
Est-il possible d'automatiser par macro ces 2 manipulations independantes l'une de l'autre.
Merci de votre aide
Bien amicalement
KIM

 

[KIM]

Bonjour les amis, bonjour le forum,
@pierrejean, Bebere,
Merci pour votre collaboration. Une différence entre les 2 codes :
Celui de Bebere copie le dernier bloc avec ses données et ses formules et celui de Pierrejean efface les données et garde les formules.
Le but est de recopier le dernier bloc avec ses formules qui se mettent à jour automatiquement mais sans les données saisies manuellement.
Je vais tester en grandeur réelle jeudi ou vendredi et j'espère que tout se passe bien.
Merci encore de votre aide.
Bien amicalement
KIM

 

[Bebere]

Kim
un code pour effacer

Public Sub EffaceConstantes()
Dim x
        L = Feuil1.Cells.Find("Total", LookIn:=xlValues, lookat:=xlWhole).Row
        x = Feuil1.Range("B" & L - 14 - 1)
        Feuil1.Range("C" & L - 14 - 1 & ":AV" & L - 1).SpecialCells(xlCellTypeConstants, 3) = ""
Feuil1.Range("B" & L - 14 - 1) = x
End Sub

Sub CopyInsertHiddenLignes()
    nbL = 14
    With Feuil1
        'L = .Columns(2).Find("Total", LookIn:=xlValues, lookat:=xlWhole).Row
        L = .Cells.Find("Total", LookIn:=xlValues, lookat:=xlWhole).Row
'        .Rows(L - nbL - 1 & ":" & L - 1).Select
        .Rows(L - nbL - 1 & ":" & L - 1).Copy

        .Rows(L).Insert Shift:=xlDown
        L = .Cells.Find("Total", LookIn:=xlValues, lookat:=xlWhole).Row
        .Range("B" & L - nbL - 1) = Application.CountIf(.Range("B:B"), "abc") - 1
        Application.CutCopyMode = False
    End With
   EffaceConstantes
    L = L + 2
    CacheLignes
End Sub

 

[KIM]

Bonjour les amis, bonjour le forum,
@Bebere,
Je viens de tester ton nouveau code. La 1è exécution OK,
la suivante m'affiche l'erreur suivante
"Pas de cellule correspondante" à la ligne :
Feuil1.Range("C" & L - 14 - 1 & ":AV" & L - 1).SpecialCells(xlCellTypeConstants, 3) = ""
de la macro : EffaceConstantes

Merci encore,
KIM

 

[Bebere]

oui Kim, oublié de changer 14 par nbl

 

[KIM]

Re,
Désolé Bebere pour le dérangement, le problème persiste. Même erreur à la même ligne.
1è exéc correcte, 2è erreur "Pas de cellules correspondantes"
Public Sub EffaceConstantes()
Dim x
L = Feuil1.Cells.Find("Total", LookIn:=xlValues, lookat:=xlWhole).Row
x = Feuil1.Range("B" & L - nbL - 1)
Feuil1.Range("C" & L - nbL - 1 & ":AV" & L - 1).SpecialCells(xlCellTypeConstants, 3) = ""
Feuil1.Range("B" & L - nbL - 1) = x
End Sub
Merci d'avance
KIM

 

[Bebere]

Kim et si tu entres des données
je pense que tu essayes avec des cellules vides

 

[KIM]

Re,
OUI, en rentrant des données dans le dernier bloc à chaque fois, ça marche.
Avec vous, nous avons toujours des solutions à nos problèmes excel.
@pierrejean, Bebere, Merci encore et à bientôt
KIM

 

[Linda42]

Bonjour à tous,

Je me permets de poster ma discussion sur ce post car l'aide que vous avez apporter à Kim pour son premier tableau de cette conversation (rajout de ligne et rajout de colonne) correspond exactement à mon besoin. Malheureusement, je ne suis pas doué pour les vba et je n'arrive pas à adapté les codes à mon fichier.

Pouvez vous m'aide?

Merci à tous

XL 2016 - vba pour inserer des lignes et des colonnes

Bonjour, J'ai un fichier dans lequel j'aimerai éviter d'avoir des lignes vides et colonne vides. Je souhaiterais donc votre aide pour créer une VBA (je ne maitrise pas du tout les codes VBA) qui me permettrai, grâce a des boutons de control et selon mon besoin, de rajouter soit une ligne pour...

www.excel-downloads.com

cdt