Additionner en tapant Enter...??

Bonjour
Une proposition de solution avec un bouton associé à la macro ci dessous

Sub compteur
rem define variables
dim document   as object
dim mafeuille  as object
 
mafeuille = ThisComponent.CurrentController.ActiveSheet
dim maCellule as integer

maCellule = thisComponent.CurrentSelection.getvalue

maCellulePlusUn=maCellule + 1

maCellule_nouvelle = thisComponent.CurrentSelection ' cellule à mettre au format
maCellule_nouvelle.setValue(maCellulePlusUn)
End Sub

Pour inclure la macro
Copier le code
Avec le classeur ouvert touches ALT+F11
Dans la fenêtre « macro » sélectionner avec + le document en cours
Sélectionner « Standard » et Bouton « nouveau »
dans la boite de dialogue laisser module1 et Ok
Coller le code dans la fenêtre ouverte
enregistrer

Pour avoir un bouton
Affichage>Barre d'outil>Contrôle de formulaire
Cliquer sur l'icône « Équerre crayon » « (Des)activer le mode ébauche »
Cliquer sur l'icône buton
Quand le curseur croix apparaît dessiner le bouton
Sélectionner le bouton>clik droit>Contrôle
Onglet : Événement
Cliquer sur le bouton en regard de « Exécuter l'action »
Dans la fenêtre « assigner une action » cliquer sur bouton « macro »
Dans la fenêtre « Sélecteur de macro » sélectionner avec + le module contenantt la macro
Dans la même fenêtre sélectionner la macro et bouton « ok »
Et OK dan la fenêtre « assigner une action »

Pour avoir la macro dans la barre d'outil
Outils>personnaliser
Onglet : Barre d'outil
Au niveau de « Contenu de la barre d'outil »
-Sélectionner une ligne vide
-Bouton « Ajouter »

Dans la nouvelle boite de dialogue
dans la fenêtre catégorie descendre jusqu'à MacroOpenOffice
cliquer sur + pour développer jusqu'au document actif
document actif
Module
Une fois le module sélectioné
dans la fenêtre « Commandes » sélectionner la macro
Bouton ajouter
Bouton Fermer

De retour dans l'onglet « barre d'outil « Bouton »OK »

Waw.
J'avoue...j'ai eu un peu peur en lisant...j'ai un peu pensé "non non je vais pas faire ça...trooop compliqué"
Puis je me suis dit que ce ne serait vraiment pas sympa pour vous qui avez pris le temps.
Donc
je l'ai fait
et
CA MARCHE!
Magnifique!!!!
Je n'ai rien compris du tout à ce que je faisais et je le regrette mais en tout cas, vos explications étaient plus que claires!!
1000 mercis encore!