Macro ou autre pour mettre une valeur dans un tableau

Bonsoir

Je souhaiterais savoir s'il est possible de dispatcher de manière aléatoire le contenu d'une cellule de référence dans plusieurs cellules d'un tableau... et pouvoir refaire cette opération jusqu'à remplir totalement le tableau....

Ci joint le fichier test

Merci pour l'aide qui n'est pas évident et qui doit surement passer par un code VBA.

Cdlt

Ma

Bonjour,

Essayez ceci

le code

Sub Appliquer_la_selection()
    Dim Lig As Long, Col As Long, i As Long
    Randomize
    For i = 1 To 5
        Lig = Int((24 - 13 + 1) * Rnd) + 13
        Col = Int((4) * Rnd) + 1
        If Cells(Lig, (Col * 2) + 1) = "" Then
            Cells(Lig, (Col * 2) + 1) = Cells(6, "G")
        Else
            i = i - 1
        End If
    Next i
End Sub

Sub Effacer_tout()
    Range("C13:C24,E13:E24,G13:G24,I13:I24").ClearContents
End Sub

Cdlt

Bonjour

Bonjour à tous

Une variante.

Bye !

Bonjour

Et surtout un grand merci , exactement ce que je voulais ....cela fonctionne à merveille :-)

Bel aprem et merci encore

Ma