Discussion :

[yfchauer]

Bonjour à tous,

Je vais essayer d'être précis sur ma demande.
J'ai un groupe de boutons sur une plage (G2:G15) et un texte Ex. suivant sur la cellule A2
Je souhaiterais qu'à chaque fois que j'appuie sur un des boutons en G, le texte se déplace dans la cellule d'après
Ex. si j'appuie sur le bouton en G2, le texte "suivant" en A2 passe en A3 ainsi de suite et si j'appuie sur le bouton en G15 (le dernier bouton) de la plage,
Le texte "suivant" remonte en A2.

Merci d'avance pour votre aide.



En fait, il s'agit du compteur de dispatche et à chaque fois qu'un jeton est donné à une personne, son compteur est incrémenté de +1 en cliquant sur le bouton
Et pour savoir qui sera le destinataire du prochain jeton, On inscrit sur la ligne en A "Suivant".
Voilà pourquoi je cherche un bout de code me permettant le déplacement de ce mot sur la ligne du prochain
et de ne plus systématiquement saisir "Suivant" à chaque fois qu'un jeton est distribué
Voici une partie du fichier

[Theze]

Bonjour,

Je te re-poste le classeur. Attention, la position des boutons est importante par rapport aux cellules sur lesquelles ils sont posés car la propriété TopLeftCell est utilisée.

Hervé.

[yfchauer]

Bonjour,


Merci de la réponse,
Mais je constate que le "suivant" précédent n'est pas effacé si je clique sur un bouton avec saut de ligne.
Comment peut-on corriger cela?
Cordialement

[Theze]

Re,

Je pensais que tu cliquais sur les boutons les uns après les autres ;-(
Remplace la proc "Test" par celle-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub Test(Btn As MSForms.CommandButton)
 
    Range(Btn.TopLeftCell.Address).Offset(, -1).Value = Range(Btn.TopLeftCell.Address).Offset(, -1).Value + 1
    Range("A10:A31").Value = ""
 
    If Btn.TopLeftCell.Address(0, 0) = "D31" Then
 
        Range("A10").Value = "Suivant"
 
    Else
 
        Range(Btn.TopLeftCell.Address).Offset(1, -3).Value = "Suivant"
 
    End If
 
End Sub

Hervé.

[yfchauer]

Bonjour Theze
Merci de la réponse, elle fonctionne comme je le souhaite