XL 2013 Bouton toupie sur une plage de cellule

[nicodemarss]

Bonjour à tous,

Je souhaite que le bouton toupie (exemple ci-joint) influe et incrémente 1 sur toute la plage de A2 à A11 et pas seulement sur une seule cellule.

Est-ce que quelqu'un sait comment s'y prendre svp ??

Merci par avance pour votre aide

 

[fanch55]

Bonjour,

Affecter à la toupie le code ci-dessous à mettre dans le code de la feuille : Sub Compteur1_Change() Dim Plage As Range Set Plage = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row) With Shapes(Application.Caller) For Each cell In Plage cell.Value = cell.Value + IIf(.OLEFormat.Object.Value = 0, -1, 1) Next .OLEFormat.Object.Value = 0 End With End Sub

 

[nicodemarss]

Hello fanch55 ! merci pour ta réponse !

Oula! ^^ euhh je sais pas du tout comment faire est-ce que tu peux me joindre un fichier par exemple ?

Merci encore !!!

 

[fanch55]

exemple

 

[nicodemarss]

Super mercii !!

Imaginons que je veuille changer la colonne où je dois incrémenter +1 ou -1
Par exemple de Y7 à Y18 (modif en gras)

je change comme cela ?

Sub Compteur1_Change()
Dim Plage As Range
Set Plage = Range("Y7:Y" & Cells(Rows.Count, "Y").End(xlUp).Row)
With Shapes(Application.Caller)
For Each cell In Plage
cell.Value = cell.Value + IIf(.OLEFormat.Object.Value = 0, -1, 1)
Next
.OLEFormat.Object.Value = 0
End With
End Sub

 

[fanch55]

Tout à fait

 

[nicodemarss]

super merci pour ton aide !! tres bonne journée

 

[fanch55]

Une précision ;
Set Plage = Range("Y7:Y" & Cells(Rows.Count, "Y").End(xlUp).Row)
sélectionne toutes les cellules de la colonne Y à partir de la ligne 7 incluse

Si en fait tu ne veux que Y7 et Y8 ( j'avais lu trop rapidement ) :
Set Plage = Range("Y7:Y8")