insertion de lignes suivant valeur

[FILOU78180]

Bonjour ,
je souhaiterai rajouter des lignes completes suivant la valeur d une cellule .J'ai vu déjà des forums sur ce point mais je vous avoue j ai pas pigé
je vosu envoie le lien de mon doc , merci d avance

 

[Lone-wolf]

Re : insertion de lignes suivant valeur

Bonsoir FILOU,

de qu'elle cellule sagit'il??? Je vois des 1 partout sans compter les nombres au dessus.


A+

 

[Chris401]

Re : insertion de lignes suivant valeur

Bonsoir

Essaye ce code :

Sub InserLignes()
Application.ScreenUpdating = False
Dim lig As Integer
    For lig = Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
       On Error Resume Next
            Rows(lig + 1).Resize(Cells(lig, "O") - 1).Insert Shift:=xlDown
    Next lig
End Sub

Cordialement
Chris

 

[Lone-wolf]

Re : insertion de lignes suivant valeur

Bonsoir Chris,

il y a des conditions en colonne P, regarde.


A+

 

[Chris401]

Re : insertion de lignes suivant valeur

Bonsoir Lone-wolf

Ben oui, j'ai vu !

Rows(lig + 1).Resize(Cells(lig, "O") - 1).Insert Shift:=xlDown

Amicalement
Chris

 

[Lone-wolf]

Re : insertion de lignes suivant valeur

Re Chris,

toute mes excuses, je pensais qu'il fallait mettre une condition.


A+

 

[FILOU78180]

Re : insertion de lignes suivant valeur

Super ca marche tu es un champion .

Merci beaucoup

 

[FILOU78180]

Re : insertion de lignes suivant valeur

bonjour ,
et si je te demandais la même chose mais en copiant la ligne et non en inserant la ligne c est possible ?

merci

 

[FILOU78180]

Re : insertion de lignes suivant valeur

bonjour ,
et si je te demandais la même chose mais en copiant la ligne et non en inserant la ligne c est possible ?

merci

 

[Chris401]

Re : insertion de lignes suivant valeur

Bonjour

Sub InserLignes()
Application.ScreenUpdating = False
Dim lig As Long
    For lig = Cells(Rows.Count, 2).End(xlUp).Row To 3 Step -1
       On Error Resume Next
            Rows(lig + 1).Resize(Cells(lig, "O") - 1).Insert Shift:=xlDown
            Cells(lig, 1).Resize(Cells(lig, "O"), 15).FillDown
    Next lig
End Sub

Cordialement
Chris

 

[FILOU78180]

Re : insertion de lignes suivant valeur

Bonjour , ton retour marche trés bien mais quand je veux utiliser ta macro sur un autre fichier avec des colonnes suplémentaires , ça ne marche plus.
Aurais tu la gentillesse de me die quelles données doivent être modifiées sie je rajoute des colonnes ?
Je vous joint le fichier avec de smodifs merci à vous
Document Cjoint

 

[Chris401]

Re : insertion de lignes suivant valeur

Bonsoir

Je n'arrive pas à ouvrir ton fichier.

Les données à modifier sont :

Rows(lig + 1).Resize(Cells(lig, " O ") - 1).Insert Shift:=xlDown
Cells(lig, 1).Resize(Cells(lig, " O "), 15).FillDown

O = colonne dans laquelle est indiquée le nombre de lignes à insérer
15 = numéro de la colonne (A = colonne 1 - B = colonne 2 ... O = colonne 15)

Essaye et dis-moi

Cordialement
Chris

 

[FILOU78180]

Re : insertion de lignes suivant valeur

hello
voici
Document Cjoint

 

[FILOU78180]

Re : insertion de lignes suivant valeur

rebonjour ,
dis moi stp si la position du fichier verticalement est importante car je je la vois pas dans ta formule

 

[Chris401]

Re : insertion de lignes suivant valeur

Re

Toujours pas possible de l'ouvrir.
Ne peux-tu le mettre sur le site quitte à supprimer des lignes ?


Chris