Re: [fr-users] Additionner la valeur d'une cellule à une autre

Fais gaffe au type de données, je n'ai fait aucune vérification. Et si veux
additionner blah avec 2, ça va mal se passer...



Le ven. 8 juin 2018 à 21:51, Jimenez Kévin <97jimenezkevin@gmail.com> a
écrit :

> Merci beaucoup je fait mon tableau final avant de tester tout ça !
>
> Le ven. 8 juin 2018 à 21:47, Thierry Jeanneret <
> thierry.jeanneret@gmail.com> a écrit :
>
> > Écoute,
> >
> > Pour la touche clavier, je te laisse voir. Tu vas dans l'administration
> > des macros et tu regardes "assignation", sauf erreur.
> >
> > Par contre, bien sûr, tu peux la multiplier. Mais normalement c'est pas
> > fait pour ça. Tu ferais mieux d'écrire une boucle qui parcourt les cellules
> > de la colonne de saisie et qui cherche les valeurs différentes de 0, pour
> > faire l'addition quand elle en trouve.
> >
> > Si vraiment tu butes, fais moi signe. Note que tu peux faire un truc
> > comme :
> >
> > Dim ligne as integer
> > ligne = 2
> > valeur = oDoc.Sheets(0).getCellRangeByName("B" & ligne).String
> >
> > Thierry
> >
> >
> >
> > Le ven. 8 juin 2018 à 21:32, Jimenez Kévin <97jimenezkevin@gmail.com> a
> > écrit :
> >
> > > Est-ce que avec ta macro si je fais un copier coller en changeant les
> > > cellules je peux faire ceci sur plusieurs ligne?
> > >
> > > Le ven. 8 juin 2018 à 21:21, Jimenez Kévin <97jimenezkevin@gmail.com> a
> > > écrit :
> > >
> > > > Merci beaucoup pour la macro Thierry,
> > > > Le fonctionnement général que je voulais y est et ça fonctionne. Mais
> > > > peut-on activé la macro grâce à une touche clavier ?
> > > >
> > > > Le ven. 8 juin 2018 à 20:54, Thierry Jeanneret <
> > > > thierry.jeanneret@gmail.com> a écrit :
> > > >
> > > > > 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> 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> 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> 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.22
> > > > > > >
> > > > > > > > Le 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 ?
> > > > > > > > >
> > > > > > > > > Thierry
> > > > > > > > >
> > > > > > > > >
> > > > > > > > >
> > > > > > > > > > Le 7 juin 2018 à 22:24, demande_aide_fr@libreoffice.org a écrit
> > > > > > > :
> > > > > > > > > > Bonjour
> > > > > > > > > >
> > > > > > > > > > Voici une nouvelle question envoyée à l'aide du formulaire de
> > > > > > > demande
> > > > > > > > > d'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 valeur
> > > > > > > > > numé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 une
> > > > > > > > > valeur dans la cellule B2.
> > > > > > > > > > --
> > > > > > > > > > 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

-- 
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