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

Signaler
Messages postés
2
Date d'inscription
lundi 15 septembre 2014
Statut
Membre
Dernière intervention
15 septembre 2014
-
Messages postés
2
Date d'inscription
lundi 15 septembre 2014
Statut
Membre
Dernière intervention
15 septembre 2014
-
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!

2 réponses

Messages postés
2483
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
18 juin 2021
1 134
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 »
Messages postés
2
Date d'inscription
lundi 15 septembre 2014
Statut
Membre
Dernière intervention
15 septembre 2014

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!