Fusionner 2 lignes ou Dissocier une colonne

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
j
jujuladebrouille
Nouveau venu
Nouveau venu
Messages : 1
Inscrit le : 28 mai 2018
Version d'Excel : 2010 FR

Message par jujuladebrouille » 28 mai 2018, 17:34

Bonjour,

j'ai un petit soucis avec excel voici comment se présente mes données (voir si dessous), je voudrai que mes deux lignes (2 et 3) ne fasse plus qu'une ligne.

Je pense qu'il y a plusieurs solution comme :

- Soit arriver à copier une ligne sur deux (mon cas comporte environ 21000 lignes)
- Soit arriver à dissocier la colonne 1

Mais je ne connais pas les manipulation

merci par avance


exemple.xlsx
(12.29 Kio) Téléchargé 8 fois
Avatar du membre
bernard22
Membre dévoué
Membre dévoué
Messages : 877
Appréciations reçues : 11
Inscrit le : 26 mars 2015
Version d'Excel : 2013FR

Message par bernard22 » 28 mai 2018, 18:27

Bonsoir,
Si ce traitement est à faire 1 seule fois, on peut faire avec des formules. Si c'est une opération récurrente, envisager VBA.
Un exemple par formule si jujuladrbrouille est aussi juju la bidouille

1 - J'insère une colonne en A
2 - Je copie en A2 le contenu de B3
3 - Je recopie jusqu'en bas du fichier.
4 - J'ajoute en colonne S une colonne filtre pour sélectionner les lignes paires et impaires.
5- Je filtre cette colonne sur "0"
6 - Je recopie toutes le lignes (sauf la dernière) sur la feuil2
exemple.xlsx
(14.57 Kio) Téléchargé 4 fois
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'450
Appréciations reçues : 428
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 28 mai 2018, 18:33

Bonjour,

bonjour Bernard22

une proposition via une macro
Sub aargh()
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        i = dl
        While i > 1
            If .Cells(i, 3) <> "" Then
                .Cells(i, 1).Resize(, 16).Cut .Cells(i + 1, 3)
                .Rows(i).Delete shift:=xlUp
                i = i - 2
            End If
        Wend
    End With
End Sub
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message