aléatoire

[celine123]

bonjour a tous,
j'ai un fichier Excel contenant 6 feuilles
sur les six feuille j’aimerai mettre des X de façon aléatoire par bloc pour les six feuilles
je pense que ça doit être possible par des macro

 

[Paf]

bonjour

à essayer

Sub AleaX()
Dim T1(1 To 60, 1 To 2), i As Long, Ws As Worksheet
For Each Ws In Worksheets
    Randomize
    For i = 1 To 60
        T1(i, 2) = "x"
    Next
    For i = 1 To 60 Step 4
        decal = Int(4 * Rnd)
        T1(i + decal, 1) = "X"
        T1(i + decal, 2) = ""
    Next
    Ws.Range("G6").Resize(60, 2) = T1
    Erase T1
Next
End Sub

A+

 

[celine123]

nickel ça marche merci !!!