Bonjour,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
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
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
Re..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
Content que tu aies retrouvé tes petitsMais merci a vous, j'aurais deux trois autre questions si vous pouvez m'aidez
Ça t'a niké les autres colonnes parce que @Jacky67 a doublé toutes les colonnes, pas seulement la 5ème (E).mais sa ma niker mes autres colonne,
C'est quand même dommage de faire du VBA puis des manips manuelles pour terminer l'affaire.Mais c'est pas grave j'ai copier le colonne doubler et je les rentrer dans une copie que j'avais fait
Hello Dudu2Ç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.