Randomizer sur plusieurs colonnes

Bonjour

Dans le fichier ci-joint vous avez les explications de ce que je voudrais faire

Je vous remercie pour votre aide

8classeur1.xlsm (16.54 Ko)

bonjour,

essaie ceci

Sub Test()
    Dim v As Integer
    v = Range("A1").Value
    GenereSerieAleatoireSansDoublons v, Range("B3")
    GenereSerieAleatoireSansDoublons v, Range("C3")
    GenereSerieAleatoireSansDoublons v, Range("D3")
    GenereSerieAleatoireSansDoublons v, Range("E3")

End Sub

Bonjour h2so4

Ton code fonctionne bien

As tu une idée pour simplifier les lignes ci-dessous, je dois aller jusque X3

 GenereSerieAleatoireSansDoublons v, Range("B3")
    GenereSerieAleatoireSansDoublons v, Range("C3")
    GenereSerieAleatoireSansDoublons v, Range("D3")
    GenereSerieAleatoireSansDoublons v, Range("E3")

re-bonjour,

une façon de faire :

    Dim v As Integer
    v = Range("A1").Value
    For i = 2 To 24 'B à X
        GenereSerieAleatoireSansDoublons v, Cells(3, i)
    Next i

Merci nickel comme je souhaitais

Bonne soirée

Crdlt

Rechercher des sujets similaires à "randomizer colonnes"