Additionner en tapant Enter...?? Résolu/Fermé

Question

Bonjour à tous/tes, 

En vue d'inventorier des mails, j'ai créé un petit tableau sous OOCalc.
L'idée est toute bête, une colonne "Type de mails", une colonne "nombre", une colonne "Suivis"..enfin bref, vous voyez.
Je me demandais si dans la colonne "Nombre", il était possible de faire +1 dans chaque cellule juste en tapant "Enter" (ou toute autre touche susceptible d'effectuer ladite opération, je ne suis pas sélective! enfin pas pour ça!)
D'avance merci pour  vos conseils, trucs et astuces!

yclik · Answer

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 »

iz@@@ · Answer

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!

Additionner en tapant Enter...??

2 réponses

Discussions similaires