XL 2013 Bouton toupie sur une plage de cellule

fanch55

XLDnaute Barbatruc

• 23 Septembre 2021

• #2

Bonjour,

Affecter à la toupie le code ci-dessous à mettre dans le code de la feuille : VB: 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

 

Vote positif 0 Vote négatif

N

nicodemarss

XLDnaute Nouveau

• 23 Septembre 2021

• #3

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 !!!

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 23 Septembre 2021

• #4

exemple

 

Pièces jointes

• nicodemarss.xlsm

  18 KB · Affichages: 17

Vote positif 0 Vote négatif

N

nicodemarss

XLDnaute Nouveau

• 23 Septembre 2021

• #5

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 23 Septembre 2021

• #6

Tout à fait

 

Vote positif 0 Vote négatif

N

nicodemarss

XLDnaute Nouveau

• 23 Septembre 2021

• #7

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 23 Septembre 2021

• #8

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")

 

Vote positif 0 Vote négatif