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

Résolu

Valeur

supermajo Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
supermajo Messages postés 19 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

A voir également:

Vba insérer une ligne si cellule contient
Excel si cellule contient partie texte ✓ - Forum Excel
Insérer une vidéo dans powerpoint - Guide
Si cellule contient texte alors ✓ - Forum Excel
Aller à la ligne dans une cellule excel - Guide
Excel cellule couleur si condition texte - Guide

3 réponses

Réponse 1 / 3

via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention 2 746

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 19 Date d'inscription Statut Membre Dernière intervention

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 19 Date d'inscription Statut Membre Dernière intervention

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 14512 Date d'inscription Statut Membre Dernière intervention 2 746

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 19 Date d'inscription Statut Membre Dernière intervention

Merci beaucoup via55.
Bien cordialement

Réponse 3 / 3

titeufdu89 Messages postés 374 Date d'inscription Statut Membre Dernière intervention 38

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 19 Date d'inscription Statut Membre Dernière intervention

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

supermajo Messages postés 19 Date d'inscription Statut Membre Dernière intervention

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 374 Date d'inscription Statut Membre Dernière intervention 38

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 19 Date d'inscription Statut Membre Dernière intervention

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 19 Date d'inscription Statut Membre Dernière intervention

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

Discussions similaires

Probléme avec GRANDE.VALEUR - SI - ET

Calculer le nombre de cellules contenant un nombre compris entre deux valeurs

Compter le nombre d’occurrences de la valeur d'une cellule dans une plage

Validation des données

Moyenne excluant des valeurs

Copier des valeurs si deux libellés sont identiques

Votre réponse

Discussions similaires