Bonjour à tous

Voilà je dois faire la synthèse d´un questionnaire, avec l´aide d´amis, je voudrais entrer dans un ordinateur les résultats réponses par réponses, je voudrais donc savoir s´il existe une formule qui me permettrait d´ecrire dans une case le nombre de réponse une par une (en appuyant sur une seule touche) et dans une autre case ca me donne le total

Par exemple dans la case A1 je tape sur une touche et ca fait +1 au chiffre marqué dedans
Et que dans la case A5 ca me marque le résultat en A1

Merci d´avance

Pour faire simple je taperais mes réponses dans la case A1, dans la case A2 il y aurait la formule : "=A1+1" et dans la case A5 : "=A2"

Mais dans ce cas là autant mettre directement "=A1+1" dans A5

En faite pour la case A1 je voudrai pas a avoir ecrire 1,2,3,4,5,6,7,8,9 car j´ai 186 personnes qui ont répondu a 18 questions, j´ai pas fini si je fais comme ca !!
En faite je voudrai juste taper sur une touche du clavier et ca me fasse tout de suite +1 dans une case

Est ce possible ?

Je me rappele plus de la fonction qui fait ça directement, mais si tu veux numéroter des colonnes ou des lignes de 1 à 189, tu peux déjà faire ça.
Tu met 1 dans la premiere, =A1+1 dans la deuxieme, ensuite tu fais entrée ça te met le résultat : 2.
Puis dans la case "A1+1" tu peux cliquer sur un petit carré en bas à droite.
Clique dessus et reste appuyer et fais glisser vers la droite par exemple jusqu´à la colonne 186.

Pour numéroter les cases y a pas de probleme, moi ce qu´il me faut juste c´est la formule

Comme ca dans la case ou j´aurai entrer cette maudite formule ca s´additionne directement en appyant juste sur une touche

En bas de la colonne ou tu rentres le résultats, mets la formule :
=SOMME(a:b) ou a représente les coordonnées de la cellule de départ et b celles de la cellule de fin

Slt à tous et merci pour vos réponses

En faite j´ai réussi a faire ce que je voulais faire en créer eune macro et en ecrivant le code suivant:
Option Explicit

Private Sub CommandButton1_Click()
´
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("B2:B21")) Is Nothing Then
ActiveCell = ActiveCell + 1
End If

End Sub

Maineant des que je clique sur une case comprise entre b2 et b21 ca fait +1 automatiquement

@+