Incrementer ou decrementer des cellules en cliquant

[tdenfert]

Bonjour,

Comme je ne suis pas vraiment à l'aise en VBA si quelqu'un avait la gentillesse de me donner une piste ....
J'ai mis les explications dans le fichier.

Merci à tous ceux qui voudrons bien m'aider

Bonnes fêtes

 

[Efgé]

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:

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:

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

 

[tdenfert]

Re : Incrementer ou decrementer des cellules en cliquant

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

 

[tdenfert]

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

 

[Efgé]

Re : Incrementer ou decrementer des cellules en cliquant

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

If Target.Count > 1 Then Exit Sub

Cordialement

 

[tdenfert]

Re : Incrementer ou decrementer des cellules en cliquant

Genial

J'ai encore du boulot pour arriver à ce niveau

 

[hoerwind]

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.

 

[Efgé]

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:

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

 

[Fo_rum]

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

 

[Efgé]

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

 

[hoerwind]

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

 

[Fo_rum]

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.

 

[Efgé]

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

 

[Fo_rum]

Re : Incrementer ou decrementer des cellules en cliquant

Re,

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

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

 

[Kuma007lau]

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 ?