Compteur spécial

darkkiller56 · 18 Avril 2012

Bonjour tout le monde et merci d'avance pour l'attention que vous porterez à ce message.

Je suis novice en VBA et je voudrais créer des compteurs un peu spéciaux dans mes cellules. J'ai fais un tableau de test ici : Regarde la pièce jointe Comptage.xls

Plus précisément j'ai de gros comptages de cellules (vivantes pas excel 😉) à faire et je ne peux pas lâcher le microscope des yeux. Je voudrais pouvoir sélectionner n'importe quelle cellule en jaune (par exemple C3) et que quand j'appuie sur une touche (+ par exemple) cela ajoute +1 à la valeur de ma cellule (donc si j'appuie 5 fois sur +, la cellule affiche 5 etc..).

Si en appuyant sur - cela pouvait aussi soustraire 1 à la valeur de la cellule ce serait parfait !
Il faudrait aussi que les valeurs affichées dans les cellules puissent être exploitables car cela ne me servira à rien si je dois tout recopier (sauf si un gros collage spécial est possible pour "fixer les valeurs" bien sûr).

En espérant avoir été assez précis (et pas trop long ^^).
Merci beaucoup et n'hésitez pas si je peux aider en quoi que ce soit !

Hulk · 18 Avril 2012

Re : Compteur spécial

Hello Darkkiller, Forum 🙂

Avec le clavier je ne sais pas faire, mais essaie avec cette méthode, c'est pas mal aussi.

Clique-droit sur l'onglet de la feuille voulue, cliquer "Visualiser le code" puis dans la partie droite, coller ceci...

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' Double-click    


    If Not Application.Intersect(Target, Range("C3:L68")) Is Nothing Then
        ActiveCell.Value = ActiveCell + 1
        Cancel = True
    Else
        Exit Sub
    End If

End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) ' Click-droit
    
    If Not Application.Intersect(Target, Range("C3:L68")) Is Nothing Then
        ActiveCell.Value = ActiveCell - 1
        Cancel = True
    Else
        Exit Sub
    End If

End Sub

Donc en faisant le double-click dans la zone jaune, la cellule active = la cellule active + 1.

En faisant click-droit dans la zone jaune, la cellule active = la cellule active - 1.

darkkiller56 · 18 Avril 2012

Re : Compteur spécial

Merci beaucoup! Mais le seul soucis c'est que comme je ne peux pas regarder l'ordinateur pendant que j'augmente le comptage d'une cellule (qui peut aller jusqu'à 300-400) il y a de gros risques que je quitte la cellule sans me rendre compte avec un double clique... 🙁
Mais je vais tester et en tout cas, le code marche.

Compteur spécial

darkkiller56

Guest

Pièces jointes

Hulk

XLDnaute Barbatruc

darkkiller56

Guest

Discussions similaires

Compteur spécial

darkkiller56

Guest

Pièces jointes

Hulk

XLDnaute Barbatruc

darkkiller56

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency