Ajouter des lignes en fonction de la valeur d'une cellule.

Résolu/Fermé

Valeur

supermajo

Messages postés: 15
Date d'inscription: dimanche 16 décembre 2018
Statut: Membre
Dernière intervention: 19 mars 2019

- 16 déc. 2018 à 19:09
supermajo

Messages postés: 15
Date d'inscription: dimanche 16 décembre 2018
Statut: Membre
Dernière intervention: 19 mars 2019

- 23 janv. 2019 à 16:01

Bonjour,

J'ai un fichier de plusieurs milliers de lignes.

Dans la cellule D2, il y a un nombre qui indique le nombre de lignes - 1, que je dois dupliquer.
Exemple :
s'il y a 3, Excel doit dupliquer 2 fois la ligne.
S'il y a 5, il doit dupliquer 4 fois la ligne, etc.......

Je ne sais pas faire une macro.
Est-ce que quelqu'un peut m'aider ?
Merci bcp

A voir également:

Insérer un nombre de lignes en fonction de la valeur d'une case
Excel ajouter ligne en fonction valeur cellule - Meilleures réponses
Ajouter des lignes en fonction de la valeur d'une cellule. ✓ - Forum - Excel
Insérer un nombre de lignes en fonction de la valeur d'une case ✓ - Forum - Excel
Ajouter nombre de lignes en fonction de la valeur d'une cellule - Forum - Excel
Insérer une ligne ou plus en fonction de la valeur de cellule - Forum - Excel
Ajouter des lignes dans un tableau en fonction de la valeur d'une cellule - Forum - Excel

3 réponses

Réponse 1 / 3

via55

Messages postés: 13694
Date d'inscription: mercredi 16 janvier 2013
Statut: Membre
Dernière intervention: 28 juin 2022

2 432
16 déc. 2018 à 19:34

Bonjour supermajo

Onglet Developpeur - Visual basic (ou ALT + F11) pour ouvrir l'éditeur VBA
Insertion - Module puis copier coller la macro suivante dans la page et fermer l'éditeur

Sub ajout()

Dim Ligne As Long
Ligne = Columns(4).Find("*", , , , xlByColumns, xlPrevious).Row
For n = Ligne To 1 Step -1
nl = Range("D" & n) - 1
If nl > 0 Then
For x = 1 To nl
Rows(n + 1 & ":" & n + 1).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next
 End If
 Next
End Sub

Onglet Developpeur - Macris - Selctionner ajout puis Executer

Cdlmnt
Via

supermajo

Messages postés: 15
Date d'inscription: dimanche 16 décembre 2018
Statut: Membre
Dernière intervention: 19 mars 2019

16 déc. 2018 à 20:14

Bonsoir Via55,

Merci pour ta réponse rapide.

Je viens de tester.
Des lignes vierges se sont ajoutées, mais j'ai eu un message d'erreur

"erreur d'exécution '13'
Incompatibilité de type

et quand j'ai cliqué sur Déblocage c'est la ligne

nl = Range("D" & n) - 1

qui était en jaune.

Je ne comprends pas ce que ça veut dire.
Est-ce que c'est parce que le contenu des cellules des colonnes ne se sont pas dupliqués ?

Encore merci pour ton aide précieuse.

Cdlt

supermajo

Messages postés: 15
Date d'inscription: dimanche 16 décembre 2018
Statut: Membre
Dernière intervention: 19 mars 2019

17 déc. 2018 à 12:35

Bonjour

Voici le lien vers le fichier.

https://www.cjoint.com/c/HLrlHRU3BEz

La colonne D est en format standard...
Faut-il la mettre en format nombre ?

Merci encore

via55

Messages postés: 13694
Date d'inscription: mercredi 16 janvier 2013
Statut: Membre
Dernière intervention: 28 juin 2022

2 432
17 déc. 2018 à 13:40

Re

Le bug vient simplement de la ligne de titre qui bien sur n’est pas un nombre
Il suffit de modifier la ligne de macro
For n = Ligne To 1 Step -1
en
For n = Ligne To 2 Step -1

Pas besoin de modifier le format de la colonne

Cdlmnt
Via

supermajo

Messages postés: 15
Date d'inscription: dimanche 16 décembre 2018
Statut: Membre
Dernière intervention: 19 mars 2019

17 déc. 2018 à 14:20

Merci beaucoup via55.
Bien cordialement

Réponse 3 / 3

titeufdu89

Messages postés: 371
Date d'inscription: samedi 28 juillet 2012
Statut: Membre
Dernière intervention: 4 mars 2019

36
16 déc. 2018 à 21:17

Bonsoir,

Voici un code qui te dupliquera tes lignes le nombre de fois désiré (saisi en colonne D)
mais en contrôlant avant le nombre de fois ou la ligne est déjà présente (en analysant les colonnes de A à C). C'est à dire que si ta ligne à déjà été dupliquée lors d'une première éxécution de la macro elle ne la redupliquera pas, ou si besoin juste la quantité manquante.

Option Explicit
Sub maj()
Dim i, j, k, n, der As Long
Dim cpte, dif, nbr As Integer
Dim marque, nom, taille, px As String
der = Range("A65536").End(xlUp).Row
For n = 2 To der
    For i = 2 To der
        If Range("D" & i) > 1 Then
        cpte = 0
        nbr = Range("D" & i).Value
        marque = Range("A" & i).Value
        nom = Range("B" & i).Value
        taille = Range("C" & i).Value
            Do While Range("A" & i).Offset(cpte, 0) = marque And Range("B" & i).Offset(cpte, 0) = nom And Range("C" & i).Offset(cpte, 0) = taille
            Range("D" & i).Offset(cpte, 0) = Range("D" & i).Value
            cpte = cpte + 1
            Loop
            i = i + cpte - 1
                If cpte < nbr Then
                dif = nbr - cpte
                    Do While dif > 0
                    Rows(i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
                    Rows(i).Copy Rows(i + 1)
                    Application.CutCopyMode = False
                    i = i + 1
                    dif = dif - 1
                    der = der + 1
                    Loop
                End If
        End If
    Next i
Next n
End Sub

Bonne soirée

Jc

supermajo

Messages postés: 15
Date d'inscription: dimanche 16 décembre 2018
Statut: Membre
Dernière intervention: 19 mars 2019

17 déc. 2018 à 14:19

Merci beaucoup titeufdu89
C'est exactement ce dont j'avais besoin.
Cordialement

supermajo

Messages postés: 15
Date d'inscription: dimanche 16 décembre 2018
Statut: Membre
Dernière intervention: 19 mars 2019

21 janv. 2019 à 20:15

Bonsoir Titeuf,

Je me permets une nouvelle demande par rapport à la macro de décembre que tu m'avais faite.
Serait-il possible de rajouter une colonne qui incrémenterait, c'est à dire que si on a 3colis donc 3 lignes identiques, on aurait
sur la première ligne : 1,
sur la ligne du dessous : 2,
et celle du dessous : 3 etc..................

l'idéal serait que cette colonne soit entre la ville et le nombre de colis, mais si elle est au bout ça ira aussi.

Merci beaucoup

cdlt

titeufdu89

Messages postés: 371
Date d'inscription: samedi 28 juillet 2012
Statut: Membre
Dernière intervention: 4 mars 2019

36
21 janv. 2019 à 21:25

Bonsoir,

Ca devrait pouvoir ce faire mais tu ne nous as pas fourni d'exemple de ton fichier donc quand tu me dis entre la ville et le nombre de colis ça me parle pas vraiment...

Bonne soirée

Jc

supermajo

Messages postés: 15
Date d'inscription: dimanche 16 décembre 2018
Statut: Membre
Dernière intervention: 19 mars 2019

21 janv. 2019 à 21:36

Désolée je croyais l'avoir transmis.

Voici une copie d'écran mais je ne sais pas si ça fonctionne........

cdlt

supermajo

Messages postés: 15
Date d'inscription: dimanche 16 décembre 2018
Statut: Membre
Dernière intervention: 19 mars 2019

21 janv. 2019 à 21:37

apparemment la copie d'écran a bien été transmise

titeufdu89

Messages postés: 371
Date d'inscription: samedi 28 juillet 2012
Statut: Membre
Dernière intervention: 4 mars 2019

36
22 janv. 2019 à 21:56

Salut Michel,

Effectivement, c'est plus confort, merci de l'info!

Après un second test le code n'était pas tout a fait opérationnel, en voici un second qui devrait être plus pertinent... à tester :

Sub duplique()
Application.ScreenUpdating = False
der = Range("A65536").End(xlUp).Row + 1
For n = 2 To Range("A65536").End(xlUp).Row
    For i = 2 To der
        If Range("E" & i) > 1 Then
        eti = Range("A" & i).Value
        mag = Range("B" & i).Value
        sam = Range("C" & i).Value
        nbr = Range("E" & i).Value
        Range("D" & i) = 1
            For j = i + 1 To i + nbr - 1
                If Range("A" & j).Value = eti And Range("B" & j).Value = mag And Range("C" & j).Value = sam Then
                Range("D" & j) = Range("D" & j - 1) + 1
                Range("E" & j) = nbr
                Else
                Rows(j).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
                Range("A" & j) = eti
                Range("B" & j) = mag
                Range("C" & j) = sam
                Range("D" & j) = Range("D" & j - 1) + 1
                Range("E" & j) = Range("E" & i).Value
                der = der + 1
                End If
            Next j
        i = j - 1
        End If
    Next i
Next n
End Sub

Bonne soirée

Jc

Discussions similaires

Insérer un nombre de lignes en fonction de la valeur d'une case

Remplir une cellule (texte) en fonction d'une autre (texte).

Excel si cellule contient texte alors...

EXCEL colorier cellule en fction de sa valeur

Copier une ligne en fonction d'une cellule

Couleur d'une cellule en fonction d'une autre cellule

Discussions similaires

Newsletters