XL 2019 Doubler chaque ligne d'une colonne (Important SVP)

[cloud7801]

Bonjour,

Je me permet d'envoyer un message car au taff j'ai un excel comptable à faire, mais je bloque sur une commande.
En gros, ma colonne E reprensente les identifiants clients (il y en a 500), qui ressemble a sa :
188524
189736
187445
184297
....
Moi j'aimerais que cela devienne
188524
188524
189736
189736
187445
187445
184297
184297

Doubler chaque ligne, quelqu'un aurait une idée svp je bloque depuis ce matin

MERCIIIIIIII

 

[Dudu2]

Bonjour,
En VBA ?
Le colonne a combien de lignes de titre ?
Il faut prendre toutes les valeurs de la colonne ?

 

[cloud7801]

franchement je m'y connais pas en macro excel, mais pourtant j'ai l'impression que c'est une manip simple.
mais si t'a une idée et si tu peux m'indiquer la marche a suivre je suis preneur,

 

[cloud7801]

mais sur ma version excel je n'ai pas l'onglet developement (excel 2019)

 

[cloud7801]

c'est juste une colonne qui commence par la ligne 1, la ligne 1 représente la 1ere valeur 188453, et oui, il y a 560 lignes que je dois doubler

 

[Jacky67]

Bonjour,

Je me permet d'envoyer un message car au taff j'ai un excel comptable à faire, mais je bloque sur une commande.
En gros, ma colonne E reprensente les identifiants clients (il y en a 500), qui ressemble a sa :
188524
189736
187445
184297
....
Moi j'aimerais que cela devienne
188524
188524
189736
189736
187445
187445
184297
184297

Doubler chaque ligne, quelqu'un aurait une idée svp je bloque depuis ce matin

MERCIIIIIIII

Bonjour,
Ceci placé dans le module de la feuille et lancer une seul fois

Sub insertLigne()
    Dim i&
    For i = Cells(Rows.Count, "e").End(xlUp).Row To 1 Step -1
        Rows(i).Copy: Rows(i).Insert
    Next
End Sub

**
Pour appliquer
-Activer la feuille en question
-Alt+F11
-Coller le code ci dessus dans la fenêtre à droite
-Placer la souris dans le code
-Appuyer sur F5
-Retour sur la feuille

 

[cloud7801]

Je te remercie Jacky, vraiment, mais je ne sais pas ou rentrer cette macro je suis novice dans excel, tu pourrais m'indiquer l'endroit stp

 

[Dudu2]

Ou sinon, juste sur la colonne:

Sub a()
    Call DoubleLignesColonne(ActiveSheet, 5)
End Sub


Sub DoubleLignesColonne(Wsh As Worksheet, NoColonne As Integer)
    Dim Tab1() As Variant
    Dim Tab2() As Variant
    Dim NbLignes As Long
    Dim i As Long
    Const NbLignesTitre = 0
   
    With Wsh
        'Défiltrer pour ne pas fausser le xlUp avec des lignes de fin filtrées
        If Not .AutoFilter Is Nothing Then .AutoFilter.ShowAllData
        NbLignes = .Cells(Rows.Count, NoColonne).End(xlUp).Row
       
        Tab1 = .Cells(NbLignesTitre + 1, NoColonne).Resize(NbLignes - NbLignesTitre).Value
        ReDim Tab2(1 To UBound(Tab1, 1) * 2, 1 To 1)
       
        For i = 1 To UBound(Tab1, 1)
            Tab2(i * 2 - 1, 1) = Tab1(i, 1)
            Tab2(i * 2, 1) = Tab1(i, 1)
        Next i
       
        .Cells(NbLignesTitre + 1, NoColonne).Resize((UBound(Tab2, 1))).Value = Tab2
    End With
End Sub

 

[Jacky67]

Je te remercie Jacky, vraiment, mais je ne sais pas ou rentrer cette macro je suis novice dans excel, tu pourrais m'indiquer l'endroit stp

Re..
J'ai mis la marche à suivre dans le post précèdent

 

[cloud7801]

oui merci Jacky j'ai vu ou le faire, merci a DUDU aussi pour sa réponse, j'ai utiliser la macro a jacky, effectivement sa ma bien fait ce que je voulais mais sa ma niker mes autres colonne, Mais c'est pas grave j'ai copier le colonne doubler et je les rentrer dans une copie que j'avais fait

 

[cloud7801]

Mais merci a vous, j'aurais deux trois autre questions si vous pouvez m'aidez

 

[Jacky67]

Mais merci a vous, j'aurais deux trois autre questions si vous pouvez m'aidez

Content que tu aies retrouvé tes petits
1 question=1 post
1 autre question=un autre post

 

[Dudu2]

mais sa ma niker mes autres colonne,

Ça t'a niké les autres colonnes parce que @Jacky67 a doublé toutes les colonnes, pas seulement la 5ème (E).

Mais c'est pas grave j'ai copier le colonne doubler et je les rentrer dans une copie que j'avais fait

C'est quand même dommage de faire du VBA puis des manips manuelles pour terminer l'affaire.

 

[cloud7801]

Oui je sais DUDU mais bon tampis c'est pas grave

 

[Jacky67]

Ça t'a niké les autres colonnes parce que @Jacky67 a doublé toutes les colonnes, pas seulement la 5ème (E).

C'est quand même dommage de faire du VBA puis des manips manuelles pour terminer l'affaire.

Hello Dudu2
Jacky, il a fait ce qui était demandé soit
Doubler chaque ligne, quelqu'un aurait une idée svp