Insertion ligne par macro

[gourdin]

Bonjour,

Je pense qu'il est mieux de lire la pièce jointe car difficile à expliquer sans l'exemple simplifié

Merci

 

[JCGL]

Re : Insertion ligne par macro

Bonjour à tous,

En essai qui crée les lignes en F et G sur changement de la valeur en C et sans macro

A+ à tous

 

[Modeste]

Re : Insertion ligne par macro

Bonjour gourdin,
Salut JC 😀,

Un petit bout de code qui ne mange pas de pain:

Sub recopie()
lig = 4
For r = 4 To [B50000].End(xlUp).Row
    Cells(lig, 7).Resize(Cells(r, 4).Value, 2).Value = Cells(r, 2).Resize(1, 2).Value
    lig = lig + Cells(r, 4).Value
Next r
End Sub

 

[gourdin]

Re : Insertion ligne par macro

Merci à vous deux

Sur mon fivhier, le code macro ne fonctionne pas (erreur execution) à la ligne :

Cells(lig, 7).Resize(Cells(r, 4).Value, 2).Value = Cells(r, 2).Resize(1, 2).Value

 

[Modeste]

Re : Insertion ligne par macro

Re,

Sur mon fivhier, le code macro ne fonctionne pas

"Caisse à dires" (comme disait mon oncle, chauffeur de taxi)
Entendons-nous: ce n'est pas le fivhier que j'interroge, mais à quel fichier fais-tu référence? Celui que tu avais déposé ici?? Ou ton fichier réel!?
... Car dans le fichier de ton message #1, j'avais testé (et ai re-testé encore!?)

Et la formule proposée par JCGL, tu l'as essayée?

 

[Staple1600]

Re : Insertion ligne par macro

Bonsoir à tous

Modeste
Un petit bout de Dim, ca ne mange de pas de biscottes 😉
Sub recopie()
Dim lig As Long
lig = 4
For r = 4 To [B50000].End(xlUp).Row
Cells(lig, 7).Resize(Cells(r, 4).Value, 2).Value = Cells(r, 2).Resize(1, 2).Value
lig = lig + Cells(r, 4).Value
Next r
End Sub

 

[gourdin]

Re : Insertion ligne par macro

Merci à vous 3,

Les 3 solutions fonctionnent parfaitement.
(désolé "Modeste" pour ma précédente remarque).

Bonne soirée.

 

[Modeste]

Re : Insertion ligne par macro

Re²

Un petit bout de Dim, ca ne mange de pas de biscottes 😉

Mais ... ça frise l'obsession, cette histoire de panties! 😱

désolé

Y'a pas d'raison, mon bon Monsieur! (mais expliquer où le bas (pour faire plaisir à Staple1600!) blessait aurait peut-être été utile à ceux qui passeront par ici, plus tard 🙂 ... s'il te reste 2 minutes)

Note aux générations futures: n'allez pas dire à vos prof que c'est de cette manière qu'on écrit bât, dans l'expression ci-dessus, sous prétexte que vous l'avez vu sur internet!

 

[gourdin]

Re : Insertion ligne par macro

Ok Modeste

J'avais oublié d'enlever le texte explicatif dans les cellules en utilisant la macro

Merci encore messieurs.

 

[job75]

Re : Insertion ligne par macro

Bonjour à tous,

S'il y a un grand nombre de lignes, c'est beaucoup plus rapide avec un tableau VBA :

Sub Recap()
Dim t, n&, rest(), j&, i&, x, y
t = Range("B4:D" & Range("B" & Rows.Count).End(xlUp).Row + 3)
n = Application.Sum(Application.Index(t, , 3))
ReDim rest(1 To IIf(n, n, 1), 1 To 2)
j = 1
For i = 1 To UBound(t)
  x = t(i, 1): y = t(i, 2)
  For j = j To j + Val(t(i, 3)) - 1
    rest(j, 1) = x: rest(j, 2) = y
  Next
Next
If n Then [G4].Resize(n, 2) = rest
Range("G" & n + 4 & ":H" & Rows.Count).Delete xlUp
End Sub

Nota : pas de problème ici avec le texte explicatif...

A+