Microsoft 365 Dupliquer une ligne dans la même feuille selon plusieurs conditions

VirginieO · 7 Juin 2022

Bonjour à tous,
J'ai cherché vainement dans plusieurs discussions pour trouver ma réponse. Aussi, si j'ai mal cherché, veuillez m'en excuser.
J'ai une feuille excel qui comporte plusieurs milliers de lignes et une cinquantaine de colonnes.
Je vous joins un exemple.
Pour chaque ligne, une structure unique avec ses détails (colonnes M à R), mais plusieurs individus (de 0 à 3 maximum) :
- premier individu de la colonne A à D
- deuxième individu de la colonne E à H
- troisième individu de la colonne I à L
Je souhaite pouvoir copier les données de M à R dans une autre ligne (idéalement, juste en dessous), autant de fois qu'il y a d'individus indiqués.
Ex : pour la ligne 2, je voudrais recopier les données une fois
Ex : pour la ligne 3, je voudrais recopier les données deux fois (puisqu'il y a 3 individus)
Et s'il n'y a qu'un seul individu (ou zéro), elle ne se recopie pas.
Merci pour votre aide !
Virginie

chris · 7 Juin 2022

Bonjour

Ce n'est rien à faire avec PowerQuery, intégré à Excel si on a un tableau propre
Ici

tantôt Prenom et tantôt Prénom
Civilite ou Civilité
Titre ou Fonction
Espace ou _

De ce fait 4 étapes inutiles sur 11...

VirginieO · 10 Juin 2022

Bonjour Chris,
Et merci pour cette réponse. Je vais creuser...

sylvanu · 10 Juin 2022

Bonjour Virginie, Chris,
Une autre approche en VBA. La macro s'exécute automatiquement lorsqu'on sélectionne la Feuil2, avec :

VB:

Sub Worksheet_Activate()
    Dim itablo, tablo_out, i%, i_out%, N%
    Range("A2:D1000").ClearContents
    Application.ScreenUpdating = False
    With Sheets("Feuil1")
        tablo = .Range("A2:L" & .Range("A65500").End(xlUp).Row)
    End With
    ReDim tablo_out(4 * UBound(tablo), 3)   ' Max taille tableau de sortie
    i_out = 0   ' Pointeur d'écriture
    For i = 1 To UBound(tablo)
        For N = 1 To 10 Step 4          ' 4 champs à copier
            If tablo(i, N) <> "" Then   ' Si champ non vide
                tablo_out(i_out, 0) = tablo(i, N + 0)
                tablo_out(i_out, 1) = tablo(i, N + 1)
                tablo_out(i_out, 2) = tablo(i, N + 2)
                tablo_out(i_out, 3) = tablo(i, N + 3)
                i_out = i_out + 1       ' Ligne suivante pour le prochain
            End If
        Next N
    Next i
    [A2].Resize(UBound(tablo_out, 1), 1 + UBound(tablo_out, 2)) = tablo_out ' Restitution résultat
    Columns.AutoFit 'Ajustement largeurs colonnes
End Sub

VirginieO · 10 Juin 2022

Merci Sylvanu ! C'est exactement ce que je voulais !
Belle journée à vous

Microsoft 365 Dupliquer une ligne dans la même feuille selon plusieurs conditions

VirginieO

XLDnaute Nouveau

Pièces jointes

chris

XLDnaute Barbatruc

VirginieO

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

VirginieO

XLDnaute Nouveau

Discussions similaires