Bonsoir,
Voici quelques lignes qui devraient vous servir de guide :
'———————————————— Début -----------------------------
' Hypothèses de départ :
' La feuille de calcul est située en première position dans le classeur (feuille No 0)
' La saisie se fait dans la cellule B2
' Le résultat est donné dans la cellule A2
' A faire : Placer un bouton où ça va bien, et lier ce bouton à cette macro pour qu'elle se
déclenche lorsqu'on click dessus. Pour cela :
' - Insérer - Contrôles de formulaire - Bouton
' - Choisir l'emplacement, dessiner un bouton
'- Click droit sur le bouton pendant qu'il est sélectionné en mode conception, puis click sur
Contrôle.
'- Dans Evènements, Exécuter action, chercher la macro que vous venez de saisir.
' Ensuite, saisir une valeur dans B2, cliquer sur le bouton...
Sub Main
Dim oDoc As Object
Dim valeur As Integer
Dim resultat As Integer
oDoc = thisComponent
' Récupération de la valeur entrée et de la valeur courante
valeur = oDoc.Sheets(0).getCellRangeByName("B2").String
resultat = oDoc.Sheets(0).getCellRangeByName("A2").String
' Calcul de la nouvelle valeur de A2
resultat = resultat + valeur
' Mise en place de la nouvelle valeur dans A2
oDoc.Sheets(0).getCellRangeByName("A2").value = resultat
' Mise de la cellule de saisie à 0
oDoc.Sheets(0).getCellRangeByName("B2").value = 0
End Sub
————————————————— Fin ——————————————————————
Mettez-les telles quelles dans le Module1 du document que vous voulez traiter. Ce n'est qu'un
exemple.
Thierry
Le 8 juin 2018 à 19:46, Jimenez Kévin <97jimenezkevin@gmail.com> a écrit : C'est tout à fait ça. Je veux rajouter le nombre écrit dans la case B2( de l'exemple) à la valeur de la case A2 (de l'exemple) puis effacé la valeur que je viens de rentrer dans la case B2 (de l'exemple). Je suis en train de travailler sur une macro mais je n'y arrive pas du tout je ne m'y connais pas assez. Le ven. 8 juin 2018 à 19:42, Thierry Jeanneret <thierry.jeanneret@gmail.com <mailto:thierry.jeanneret@gmail.com>> a écrit : En fait, c'est votre terminologie qui pose problème. Dans une tête d'informaticien moyen, lorsqu'on incrémente une valeur ça veut dire par défaut qu'on lui ajoute 1. Il semble que vous souhaitiez en fait ajouter la nouvelle valeur (saisie dans B2 dans votre exemple) au contenu pré-existant de votre cellule de résultat (A2 dans votre exemple). D'après le morceau de feuille de calcul, vous souhaitez procéder en trois pas : Saisie, puis vérification/validation/addition, puis effacement de la cellule de saisie. Très clairement il vous faut une macro, en effet. Reste à bien réfléchir à votre approche, car si vous nous dites que vous voulez appliquer le même processus à un grand nombre de données, je vous vois mal écrire une macro par paire saisie-résultat. Thierry Le 8 juin 2018 à 18:48, Jimenez Kévin <97jimenezkevin@gmail.com <mailto:97jimenezkevin@gmail.com>> a écrit :J'en ai parler à d'autre personne et ils m'ont conseillé d'utiliser une macro. Le ven. 8 juin 2018 à 12:38, J.M <jmpniort@laposte.net <mailto:jmpniort@laposte.net>> a écrit : Bonjour, Puisqu'il s'agit d'incrémenter une valeur dans une cellule définie, est-ce qu'un Compteur lié à cette cellule ne serait pas plus adapté ? Jean-Michel PIERRE Tél : 06.19.55.73.22Le 8 juin 2018 à 12:23, Jimenez Kévin <97jimenezkevin@gmail.com <>> a écrit : En faite mon tableau finir aura beaucoup de case que je veux incrémenter. Je veux juste écrire le nombre que je veux rajouter dans une case sans avoir à effacer ce qui est déjà inscrit puis écrire la nouvelle valeur. C'est pour cela que je veux une sorte de case qui me sert juste pour écrire une valeur et que le reste se fasse tout seul. Le ven. 8 juin 2018 à 11:15, Thierry Jeanneret <thierry.jeanneret@gmail.com <>> a écrit :Bonjour, Il semble que votre question n'ait pas de sens. A quoi sert de saisir une valeur en B2, de l'additionner à A2, si c'est pour oublier le résultat sitôt après ? Pourquoi ne pas incrémenter directement A2 quand vous en avez besoin ? ThierryLe 7 juin 2018 à 22:24, demande_aide_fr@libreoffice.org <> a écrit : Bonjour Voici une nouvelle question envoyée à l'aide du formulaire de demanded'aide (http://fr.libreoffice.org/get-help/poser-une-question/ <>).Si vous répondez, merci de penser à utiliser la fonction "répondre àtous" de votre logiciel de courrier électronique de façon que le demandeur reçoive une copie de votre réponse.Email:: 97jimenezkevin@gmail.com <> Sujet:: Additionner la valeur d'une cellule à une autre OS:: Windows 10 Version:: 6.0.x Question:: Bonjour, Je voudrais additionner la valeur numérique de la cellule A2 à la valeurnumérique entrée manuellement dans la cellule B2. Une fois effectuer je voudrais que la case B2 soit de nouveau vide.La cellule A2 doit alors s'incrémenter à chaque fois que je rentre unevaleur dans la cellule B2.-- Envoyez un mail à users+unsubscribe@fr.libreoffice.org <> pour vousdésinscrireLes archives de la liste sont disponibles àhttps://listarchives.libreoffice.org/fr/users/ <>Privacy Policy: https://www.documentfoundation.org/privacy <>-- Envoyez un mail à users+unsubscribe@fr.libreoffice.org <> pour vous désinscrire Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/ <> Privacy Policy: https://www.documentfoundation.org/privacy <>
-- Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/ Privacy Policy: https://www.documentfoundation.org/privacy