XL 2013 insérer ligne

[RomainPOIRET]

Bonjour à tous,

Un petit soucis se pose,
J'ai mis en place un code qui me permet d'insérer une ligne à la dernière ligne non vide en fonction du contenu de la colonne A,
Je souhaiterai juste qu'en créant cette ligne, la valeur de la colonne A s’incrémente (ex : AA1, AA2, AA3 ...) et qu'en colonne D, la formule s'entende,

J'espère que je suis clair ...

Merci d'avance,

Romain

 

[job75]

Bonjour RomainPOIRET,

Sub ajout_ligne()
With [A1].CurrentRegion
    .Rows(.Rows.Count).AutoFill .Rows(.Rows.Count).Resize(2)
End With
End Sub

S'il faut vider les cellules en colonnes B et C dites-le.

A+

 

[RomainPOIRET]

Super, oui il faudrait en effet vider les cellules, les seuls informations dont j'ai besoin sont la référence ainsi que la formule, B et C sont renseignées manuellement,

Merci encore,

Romain

 

[RomainPOIRET]

De plus, est-il possible de l'intégrer à mon code de départ ?
Romain

 

[job75]

oui il faudrait en effet vider les cellules

Sub ajout_ligne()
With [A1].CurrentRegion
    .Rows(.Rows.Count).AutoFill .Rows(.Rows.Count).Resize(2)
    Intersect(.Rows(.Rows.Count + 1), [B:C]) = ""
End With
End Sub

 

[RomainPOIRET]

Ah ... la ligne
Intersect(.Rows(.Rows.Count+1),[B:C]) = "" me met en débogage ...

Romain

 

[job75]

Pas sur le fichier joint.

 

[job75]

Par contre il y a bug au départ si B1 est vide, il suffit alors de compléter :

Sub ajout_ligne()
With [A1].CurrentRegion.Resize(, 4)
    .Rows(.Rows.Count).AutoFill .Rows(.Rows.Count).Resize(2)
    Intersect(.Rows(.Rows.Count + 1), [B:C]) = ""
End With
End Sub

 

[RomainPOIRET]

Super, Ca commence à ressembler à quelque chose 🙂

Je l'ai intégré à mon code de départ (fusion des 2 formules),

l'idée de ce code est donc de rajouter une ligne à la première ligne vide par rapport à la valeur de la colonne A (ici "AA1"),

Mais lorsque je crée plusieurs lignes, à partir de AA10, il me crée 10 lignes par 10 lignes, à quoi cela est due ?

Romain

 

[job75]

Ce n'est plus le problème posé au post #1.

 

[RomainPOIRET]

en effet, dois-je réecrire un post ?

 

[job75]

Fichier 2 avec les cellules nommées Debut1 Debut2 Debut3 et la nouvelle macro :

Sub ajout_ligne()
Dim c As Range
For Each c In Range("Debut1,Debut2,Debut3")
    With c.CurrentRegion.Resize(, 4)
        .Rows(.Rows.Count + 1).Insert xlDown
        .Rows(.Rows.Count).AutoFill .Rows(.Rows.Count).Resize(2)
        Intersect(.Rows(.Rows.Count + 1), [B:C]) = ""
    End With
Next
End Sub

 

[RomainPOIRET]

Super, c'est exactement ça ! merci Job75
Romain