Ajouter quatre lignes et copier ...

[CG2000]

Bonsoir le forum, Bonsoir à tous,

J'ai un tableau qui fait x lignes, entre chaque ligne j'aimerai inserer quatre lignes, puis dans ces lignes ajouter recopier la dernière info du dessus existante à la base.

Voir le fichier joint pour plus de détails et un meilleur visuel.

Merci par avance de votre aide.

CG2000

 

[fhoest]

Re : Ajouter quatre lignes et copier ...

bonsoir a tous
voici le code vba
Sub test()

Dim x As Integer
x = InputBox("selectionné la ligne de départ(non vide)")
Rows(x & ":" & x).Select
Range("C" & x).Activate
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A" & x + 1).Select
ActiveCell.FormulaR1C1 = "bla bla"
Range("A" & x + 2).Select
ActiveCell.FormulaR1C1 = "bli bli"
Do
x = x + 5
Rows(x & ":" & x).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A" & x + 1).Select
ActiveCell.FormulaR1C1 = "bla bla"
Range("A" & x + 2).Select
ActiveCell.FormulaR1C1 = "bli bli"
Loop Until Range("a" & x + 5) = ""
End Sub
a bientôt

 

[JNP]

Re : Ajouter quatre lignes et copier ...

Bonjour le fil 🙂,
Par rapport à avoir 5 lignes identiques (je n'en vois pas l'intérêt 😕...)

Dim I As Integer
I = 1
Application.ScreenUpdating = False
While Cells(I, 1) <> ""
With Rows(I + 1)
.Insert
.Insert
.Insert
.Insert
End With
Range(Cells(I, 1), Cells(I, [COLOR=red][B]12[/B][/COLOR])).AutoFill _
    Destination:=Range(Cells(I, 1), Cells(I + 4, [B][COLOR=red]12[/COLOR][/B])), Type:=xlFillCopy
I = I + 5
Wend
Application.ScreenUpdating = True

Si ta dernière colonne n'est pas L, c'est le 12 qu'il faut modifier.
Bon dimanche 😎

 

[Staple1600]

Re : Ajouter quatre lignes et copier ...

Bonjour à tous

CG2000
Pourquoi ne pas voir répondu dans ton premier fil ?
https://www.excel-downloads.com/thr...colonne-a-sous-condition-intelligente.129568/

ou tu avais déjà une partie de la réponse ??

Sub mCG2000()
Dim dl As Long, l As Long: dl = [A65536].End(xlUp).Row
    For l = dl To 2 Step -1
        Rows(l & ":" & l + 3).Insert
    Next l
    With Range("a1:l" & [L65536].End(xlUp).Row)
        .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With
End Sub

 

[CG2000]

Re : Ajouter quatre lignes et copier ...

Bonjour le forum, Bonjour à tous,

Merci pour vos réponses, je vais les étudier les solutions de suite et vous donner dans la journée mes réponses.


En réponse à Staple1600 : Le 25/10/2009, 21h09
Re : inscription de date dans colonne A sous condition intelligente
Une solution par macro est-elle possible ?
CG2000
Ne suis-pas le dernier à répondre a ce post et vouloir continuer la vie de ce post ? Si non qui-est ce ?
Et ce post actuel n'est-il pas différent du précédent ? Je pense que oui

En réponse à JNP:
Re : Ajouter quatre lignes et copier ...
Bonjour le fil ,
Par rapport à avoir 5 lignes identiques (je n'en vois pas l'intérêt ...)

l'intérèt de mes recherches est dans le fichier joint après avoir copier ces lignes il me faut maintenant accrémenter les cellules de la colonnes A par : LUNDI MARDI MERCREDI JEUDI VENDREDI (voir pour exemple le fichier joint).
Je me croyais capable de chercher une solution pour obtenir ce résultat. Mais honètement je cherche toujours et je rame. Heureusement que ce superbe forum et intervenenants existent.

Mercis à tous pour vos réponses et solutions faites à mon problème.

 

[Staple1600]

Re : Ajouter quatre lignes et copier ...

Re


Cela reste très proche non ?
Insérer les lignes plus les remplir avec la valeur de la cellule précédente non vide.

 

[CG2000]

Re : Ajouter quatre lignes et copier ...

Mercis fhest, JNP, Staple1600 et merci à tous,

Les réponses sont parfaites et répondent parfaitement à la première étapes de mon problème. Vôtre notion de partage représente parfaitement l'idée de ce forum.L'entraide.

Me reste plus qu'à trouver une solution pour obtenir LUNDI MARDI MERCREDI JEUDI VENDREDI au lieu de LUNDI LUNDI LUNDI LUNDI LUNDI.

Mercis.

 

[Staple1600]

Re : Ajouter quatre lignes et copier ...

Re

C'est simple

Tu écris LUNDI en A1 et recopies vers le bas 😉

Ce qui donne en VBA

Sub mCG20002()
Dim dl As Long, l As Long: dl = [B65536].End(xlUp).Row
    For l = dl To 2 Step -1
        Rows(l & ":" & l + 3).Insert
    Next l
    With Range("b1:l" & [L65536].End(xlUp).Row)
        .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With
    Range("A1").FormulaR1C1 = "LUNDI"
    Range("A1").AutoFill Destination:=Range("A1:A" & [B65536].End(xlUp).Row), Type:=xlFillWeekdays
End Sub

 

[CG2000]

Resolu : Ajouter quatre lignes et copier ...

reBonjour Staple1600, le Forum,🙂

Merci encore...
Cà fonctionne parfaitement ! 😛

Le post est terminé pour moi. Réponses et solutions à mes différentes recherches admirablement apportées ci-dessus.
Mercis à tous et bonne journée