Ramener tous cellules col A
d
Bonjour
JE souhaiterais que tous les noms qui sont dans les differentes cellules soient ramenees dans les lignes de la colonne A et comme ca je pourrais les trier puis supprimer les doublons
merci de m'aider
d
Invité
Salut le forum
Delfils, ta question est en rapport avec la ficelle
https://forum.excel-pratique.com/viewtopic.php?t=7545
La macro pourrait déjà te permettre de le faire en une étape.
A te relire
Mytå
P.S. Merci de répondre sur la ficelle, et non dans ma messagerie privé.
f
Bonsoir,
essaie avec ce code :
Sub unique()
Dim Uniques As Object, Cel As Range, DerLig As Long, DerCol As Byte
DerLig = [B65000].End(xlUp).Row
Set Uniques = CreateObject("Scripting.Dictionary")
For i = 8 To DerLig
DerCol = Cells(i, 256).End(xlToLeft).Column
For Each Cel In Range(Cells(i, 2), Cells(i, DerCol))
If Not Uniques.Exists(Cel.Value) And Not IsNumeric(Cel.Value) Then _
Uniques.Add Cel.Value, Cel.Value
Next Cel
Next i
Range("A1:A" & Uniques.Count).Value = Application.Transpose(Uniques.items)
End SubAvec ton fichier, clique sur le rectangle jaune....
https://www.excel-pratique.com/~files/doc/Copie_de_NAeIjClasseur2.xls