Mélanger des noms dans une colonne

Bonjour

En colonne a partir de A3 ,j'ai une séries de noms ,pouvez vous me donner un code vba pour les mélanger dans cette même colonne?

Je vous remercie

Bonjour,

Essayez :

Sub melanger()
Dim t, i&, n&, aux
   t = Range([a3], Cells(Rows.Count, 1).End(xlUp))
   Randomize
   For i = 1 To UBound(t): n = 1 + Int(Rnd * UBound(t)): aux = t(i, 1): t(i, 1) = t(n, 1): t(n, 1) = aux: Next
   [a3].Resize(UBound(t)) = t
End Sub

Bonjour mafraise

Merci pour le code cela ne fonctionne pas comme souhaité je dois mélanger des noms

Crdlt

Bonjour,

Chez moi cela fonctionne correctement donc si ça ne fonctionne pas chez toi c'est que cela tient à ta feuille ou à ton classeur :

Donner Plus d'information ou mieux fournir un classeur type bidonné ...

A+

Bonsoir galopin01

Jy comprend plus rien aujourd'hui cela fonctionne

j'ai eu quelques problèmes avec office

Crdlt