Incrementer ou decrementer des cellules en cliquant

Efgé

XLDnaute Barbatruc

• 23 Décembre 2011

• #2

Re : Incrementer ou decrementer des cellules en cliquant

Bonjour tdenfert,
Une proposition dans l'exemple avec deux macro dans le code de la feuille:
Pour décrémenter les cellules:

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("Dujour")) Is Nothing And _
Target.Value > 0 And Target.Count = 1 Then
    Cancel = True
    With Target
        .Value = .Value - 1
        .Offset(0, 1).Value = .Offset(0, 1).Value - 1
    End With
End If
End Sub

Pour incrémenter les cellules:

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("Dujour")) Is Nothing And Target.Count = 1 Then
    Cancel = True
    With Target
        .Value = .Value + 1
        .Offset(0, 1).Value = .Offset(0, 1).Value + 1
    End With
End If
End Sub

Cordialement

 

Pièces jointes

• conso(2).xls

  25 KB · Affichages: 313

Vote positif 0 Vote négatif

T

tdenfert

XLDnaute Impliqué

• 23 Décembre 2011

• #3

Re : Incrementer ou decrementer des cellules en cliquant

Merci Elgé
c'est super exactement ce que je voulais

 

Vote positif 0 Vote négatif

T

tdenfert

XLDnaute Impliqué

• 23 Décembre 2011

• #4

Re : Incrementer ou decrementer des cellules en cliquant

Bonjour,

Un problème survient si je veux sélectionner une plage y compris en dehors de la plage du jour ???

erreur 13 incompatibilité de type

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 23 Décembre 2011

• #5

Re : Incrementer ou decrementer des cellules en cliquant

Re
Ajoute ceci sous la ligne Private Sub Worksheet_SelectionChange...

VB:

If Target.Count > 1 Then Exit Sub

Cordialement

 

Vote positif 0 Vote négatif

T

tdenfert

XLDnaute Impliqué

• 23 Décembre 2011

• #6

Re : Incrementer ou decrementer des cellules en cliquant

Genial

J'ai encore du boulot pour arriver à ce niveau

 

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 23 Décembre 2011

• #7

Re : Incrementer ou decrementer des cellules en cliquant

Salut tdenfert et Efgé,

J'ai aussi rencontré un petit problème :

Le bouton droit incrémente positivement à chaque clic, on peut donc passer de 1 à 4 en cliquant successivement trois fois.

Mais cela ne fonctionne pas ainsi avec le bouton gauche.
Des clics successifs dans la même cellule ne fonctionne pas, il faut sélectionner une autre cellule, puis revenir sur la précédente pour incrémenter négativement, et ceci à chaque fois qu'on veut incrémenter négativement d'une unité.

Passer du clic droit au clic gauche dans une même cellule (en cas d'erreur) ne fonctionne pas plus.

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 23 Décembre 2011

• #8

Re : Incrementer ou decrementer des cellules en cliquant

Re, Bonjour hoerwind 🙂,
@ hoerwind
Les problèmes rencontrés viennent du fait que le déclenchement se fait au changement de cellule, avec une Worksheet_SelectionChange.
Le problème est pire si l'on se déplace dans la zone avec les flèches directionnelles (essai, tu verras, c'est catastrophique)
Mais c'était la demande de base, donc....

Maintenant, si j'étais moi, je mettrai le code dans une Worksheet_BeforeDoubleClick, ce qui donnerai:

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("Dujour")) Is Nothing And _
Target.Value > 0 Then
    Cancel = True
    With Target
        .Value = .Value - 1
        .Offset(0, 1).Value = .Offset(0, 1).Value - 1
    End With
End If
End Sub

Enfin, tout ça c'est "si j'étais moi" 😀

Cordialement

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 23 Décembre 2011

• #9

Re : Incrementer ou decrementer des cellules en cliquant

Bonjour,

une autre piste avec une Toupie (SpinButton) et 2 programmes (on ne pourra pas dire que je manque de toupet 😉).

 

Pièces jointes

• SpinButton 2.xls

  34.5 KB · Affichages: 215

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 23 Décembre 2011

• #10

Re : Incrementer ou decrementer des cellules en cliquant

Re
Bonjour Fo_rum 🙂

Si on peux se laisser aller à son imagination....😀
Une proposition avec boutons et module de classe.

Bonne fêtes à tous et à tous les vôtres

Cordialement

 

Pièces jointes

• conso(Module_de_Classe).xls

  73.5 KB · Affichages: 222

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 23 Décembre 2011

• #11

Re : Incrementer ou decrementer des cellules en cliquant

Salut Efgé,

Je préfère de loin ta dernière proposition !
De plus elle permet d'effacer les valeurs de la colonne D sans problème, ce qui n'était pas le cas précédemment.

J'y ajoute un seul mot, non trois : bravo et merci

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 23 Décembre 2011

• #12

Re : Incrementer ou decrementer des cellules en cliquant

Bonjour,

eh oui, avec 36 000 boutons ... c'est la Classe !
Une autre solution pour s'affranchir de tout contrôle (activeX ou pas) donc avec une programmation des plus simples.

 

Pièces jointes

• FaussesToupies.xls

  26 KB · Affichages: 223

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 23 Décembre 2011

• #13

Re : Incrementer ou decrementer des cellules en cliquant

Re à tous,
@ Fo_rum,
Il n'y a, pour moi, aucune compétition de quelqu'ordre que ce soit, juste l'envie d'aider en progressant.
Je trouve ta dernière proposition bien plus simple et efficace que la mienne.

Maintenant ce fil donne plusiaurs solutions, les recherches futures n'en seront que plus constructives.


Bonne fêtes à toi et à tes proches.

Cordialement

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 23 Décembre 2011

• #14

Re : Incrementer ou decrementer des cellules en cliquant

Re,

Efgé à dit:

Re à tous,
@ Fo_rum,
Il n'y a, pour moi, aucune compétition de quelqu'ordre que ce soit, juste l'envie d'aider en progressant.
...
Cordialement

Cliquez pour agrandir...

Il en est de même pour moi et désolé si j'ai laissé croire le contraire 😱.

 

Vote positif 0 Vote négatif

K

Kuma007lau

Guest

• 8 Mars 2019

• #15

Bonjour, j'ai repiquer les Spin boutton , mais moi je ne veux modifier que la cellule que j'ai activer et non pas celle de droite en plus.
Comment faire ?

 

Vote positif 0 Vote négatif