Faire un bouton pour pouvoir prendre un moy aux hasard dans la colonne A

Bonjour,

Voila j'ai un projet en micro informatique et j'aimerais faire un bouton pour pouvoir prendre un mot aux hasard dans la colonne A.

J'avais réussi à mettre une formule qui me donné aléatoirement un chiffre dans ma cellule P15 mais j'aimerais avoir un bouton pour la réguler et quelle ne change pas tous le temps comme avec la formule je vous joins la formule trouvée

=INDIRECT(ADRESSE(ALEA.ENTRE.BORNES(4;189);ALEA.ENTRE.BORNES(1;1)))

J'ai excel 2019

demandé moi s'il faut le fichier.

voila merci pour votre aide.

Bonjour et bienvenue sur le forum

loick a écrit :

demandé moi s'il faut le fichier.

Bye !

voila le fichier c'est un peu le bordel mais moi je m'y retrouve il ne faut pas toucher aux cellules de p3 à v10 c'est si on connais le produit on rentre juste c'est coordonnées. c'est à partir de p15

Bonjour,

Une proposition ?

Cdlt.

Public Sub aleatoire()
Dim lastRow As Long, lRow As Long
Const RW = 4
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row - 2
        lRow = WorksheetFunction.RandBetween(RW, lastRow)
        .Cells(15, 16).Value = .Cells(lRow, 1).Value
    End With
End Sub

Merci ça marche super cool de votre part