Comme je dis de le faire en combinant mes poste #3 et #9comment en effacer 10 de façon aléatoire sur cette ligne.
Sub test()
Dim TAléa() As Long, P As Long, A As Long, J As Long, Plg As Range
ReDim TAléa(1 To 20): For P = 1 To 20: TAléa(P) = P: Next P
For P = 20 To 2 Step -1
A = Int(Rnd * P) + 1: J = TAléa(A): TAléa(A) = TAléa(P): TAléa(P) = J
Next P
Set Plg = ActiveSheet.[A1:T1]
For P = 1 To 10
Plg.Columns(TAléa(P)).Value = Empty
Next P
End Sub
Sub test()
Dim TAléa() As Long, P As Long, A As Long, J As Long, Plg As Range
ReDim TAléa(1 To 20): For P = 1 To 20: TAléa(P) = P: Next P
For P = 20 To 2 Step -1
A = Int(Rnd * P) + 1: J = TAléa(A): TAléa(A) = TAléa(P): TAléa(P) = J
Next P
Set Plg = ActiveSheet.[A1:T1]
For P = 1 To 10
Plg.Columns(TAléa(P)).Value = Empty
Next P
End Sub
merci, je débute en VBA et je m'arrache les cheveux.Bonjour.
Vous pouvez jusque changer le Set: Set Plg = ActiveSheet.Range(Cells(A, B), Cells(A, C))