XL 2013 insérer ligne

job75

XLDnaute Barbatruc

• 24 Décembre 2019

• #2

Bonjour RomainPOIRET,

VB:

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+

 

Vote positif 0 Vote négatif

R

RomainPOIRET

XLDnaute Occasionnel

• 24 Décembre 2019

• #3

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

 

Vote positif 0 Vote négatif

R

RomainPOIRET

XLDnaute Occasionnel

• 24 Décembre 2019

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Décembre 2019

• #5

RomainPOIRET à dit:

oui il faudrait en effet vider les cellules

Cliquez pour agrandir...

VB:

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

 

Vote positif 0 Vote négatif

R

RomainPOIRET

XLDnaute Occasionnel

• 26 Décembre 2019

• #6

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

Romain

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Décembre 2019

• #7

Pas sur le fichier joint.

 

Pièces jointes

• test1.xlsm

  22.9 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Décembre 2019

• #8

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

VB:

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

 

Vote positif 0 Vote négatif

R

RomainPOIRET

XLDnaute Occasionnel

• 26 Décembre 2019

• #9

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

 

Pièces jointes

• test1.xlsm

  24.2 KB · Affichages: 2

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Décembre 2019

• #10

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

 

Vote positif 0 Vote négatif

R

RomainPOIRET

XLDnaute Occasionnel

• 26 Décembre 2019

• #11

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Décembre 2019

• #12

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

VB:

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

 

Pièces jointes

• test2.xlsm

  23.1 KB · Affichages: 6

Vote positif 0 Vote négatif

Solution

R

RomainPOIRET

XLDnaute Occasionnel

• 27 Décembre 2019

• #13

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

 

Vote positif 0 Vote négatif