Macro coller

Bonjour,

Je cherche une macro qui me collerait la valeur 1 n'importe où dans une feuille et si possible dans 5 cases accolées.

Merci d'avance

Bonjour ,

Je ne comprend pas exactement se que tu souhaite faire

Si tu veut placer la valeur 1 dans une case choisi aléatoirement dans une feuille , tu peut utiliser la fonction rnd pour créer de façon aléatoire un nombre entre 0 et 1 .

Sub Aléa()
Dim u As Double
Randomize
u = Rnd  ' u prend une valeur entre 0 et 1
End Sub

Cordialement

Rebonjour ,

Voila une petite macro qui sélectionne une cellule aléatoirement dans la feuille et y place la valeur "1" (ainsi que sur les 4 cellules en dessous )

Option Explicit
Sub Aléa()
Dim c As Double
Dim l As Double
Dim i As Integer
Randomize
c = Rnd
c = c * 16384
l = Rnd
l = l * 1048576
Cells(l, c).Select
Cells(l, c).Value = 1
For i = 1 To 4
    Cells(l + i, c).Value = 1
Next
End Sub

En éspéant que cela puissent t'aider

Cordialement ,