cellule cliquable

[pika83]

bonjour
je souhaiterais que se produise un evenement sur une cellule apres un clic sur la cellule d'a coté.
Pour plus d'explication voir fichier joint
d'avance merci

 

[pika83]

Re : cellule cliquable

re,
desole je ne suis pas arrive a inserer le tableur pour vous montrer, je vais essayer de vous l'expliquer.

1-J'aimerais que : quand je clique sur AG4 (clic), il y ai un nombre aleatoire entre 1 et 8 qui apparaisse en AF4
2-Quand je copie la ligne 4 sur une quelquonque ligne, je voudrais que le meme evenement se reproduise. ex: c'est-à-dire quand je clique sur AG13 (clic), il y ai un nombre aleatoire entre 1 et 8 qui apparaisse en AF13
3-Quand je copie la ligne 4 sur une autre quelquonque ligne, je voudrais que le meme evenement se reproduise. ex: c'est-à-dire quand je clique sur AG17 (clic), il y ai un nombre aleatoire entre 1 et 8 qui apparaisse en AF17, mais sans modifier le resultat du tirage precedent (AF13)
4-et ainsi de suite

 

[patte d'ours]

Re : cellule cliquable

Ci joint ton fichier avec une toute petite macro de 2 lignes

Tu te mets sur la cellule où tu veux cliquer et tu fais CTRL w

Si tu veux transformer la macro pour cliquer directement dans la cellule où le résultat doit être affiché, il suffit de la transformer comme suit:

activecell=int(rnd()*8)+1

Si par hasard le CTRL w ne marche pas, ou si tu souhaites une autre touche de raccourci,crée une nouvelle macro (outils/macro/nouvelle macro) et tape la touche désirée dans la case raccourci clavier

Bonne soirée

 

[Spitnolan08]

Re : cellule cliquable

Bonsoir,

Presque la même que patte d'ours mais dans un gant de velours 😉 avec un double clic sur la cellule "Clic" en plaçant ce code dans le module de la feuille concernée et sans saisir de formule.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Randomize
If Target.Value = "Clic" Then Target.Offset(0, -1).Value = Int(8 * Rnd)
End Sub

Cordialement

 

[pika83]

Re : cellule cliquable

grand merci a tous les deux pour votre aide qui ma ete precieuse et peut ainsi continuer.😉