XL 2016 addition dans une cellule

Patrice33740

XLDnaute Impliqué

• 30 Juin 2017

• #2

Le beurre ou l'argent du beurre, il faut choisir !
tu peux taper
=30+30+30
dans la cellule il aura alors 90 et dans la barre des formules tu verra ce qu'il y a écrit ci-dessus

 

Vote positif 0 Vote négatif

pascal006

XLDnaute Nouveau

• 30 Juin 2017

• #3

Merci pour ta réponse donc pas de solution possible .

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 30 Juin 2017

• #4

Bonjour à tous,

Seule une solution par macro est possible
voir fichier joint

à+
Philippe

 

Pièces jointes

• 111.xlsm

  23.1 KB · Affichages: 34

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 30 Juin 2017

• #5

Bonjour,

et pourquoi pas la méthode traditionnelle ?
les nombres les un sous les autres et la somme en dessous ...

P.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 30 Juin 2017

• #6

gosselien à dit:

Bonjour,

et pourquoi pas la méthode traditionnelle ?
les nombres les un sous les autres et la somme en dessous ...

P.

Cliquez pour agrandir...

Cher compatriote Gosselien, nous sommes du même avis, mais si on n'avait pas de demandes farfelues de temps en temps, les répondeurs réguliers que nous sommes risqueraient de tomber dans la déprime 😵😵😵

À+
Philippe

 

Dernière édition: 30 Juin 2017

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 30 Juin 2017

• #7

Bonjour à tous.

Vous pouvez également saisir =90+N("30+30+30") ou =255+N(" 20+50+80+60+45")
La partie +N("...") apparaitra dans la barre de formule, sans incidence dans le calcul.

 

Vote positif 0 Vote négatif

pascal006

XLDnaute Nouveau

• 30 Juin 2017

• #8

Résolu
merci beaucoup je vais utiliser la macro de phlaurent55

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 30 Juin 2017

• #9

Re,

pascal006 à dit:

Résolu
merci beaucoup je vais utiliser la macro de phlaurent55

Cliquez pour agrandir...

il est possible d'entrer qq chose plus complexe dans les cellules, du genre:
(((5*4)-19)+2)*11 --------> résultat = 33

la macro est également prévue pour pouvoir utiliser le point décimal ou la virgule

à+
Philippe

 

Vote positif 0 Vote négatif

pascal006

XLDnaute Nouveau

• 30 Juin 2017

• #10

Franchement merci les gars vous êtes super fort

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 1 Juillet 2017

• #11

Bonjour Pascal006, à tous,

Une autre proposition qui conserve les saisies normales et les formules normales. On agit simplement sur le type d'affichage (valeurs ou formules).

Pour les saisies, on peut utiliser :

• 51 (si une seule valeur) ou =51 ou +51
• =1+2+3 (si plusieurs valeurs) ou +1+2+3 ou +1+2+6/2

Les formules sont des formules Excel ordinaires de type =SOMME(B13:B25)

Un clique sur le bouton bascule entre un affichage des valeurs et un affichage des formules.

Code du bouton nommé "Bascule":

VB:

Sub Basculer()
Dim estValeur As Boolean
   With ActiveSheet.Shapes("Bascule").TextFrame2.TextRange.Characters
      estValeur = .Text = "Aff Val"
      .Text = IIf(estValeur, "Aff Form", "Aff Val")
   End With
   ActiveWindow.DisplayFormulas = Not estValeur
End Sub

 

Pièces jointes

• pascal006- Mon Budget- v1.xlsm

  26.4 KB · Affichages: 23

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 1 Juillet 2017

• #12

Bonjour Pascal006, à tous,

Une autre méthode (toujours avec des saisies et formules ordinaires) dans fichier v2. On affiche la formule en commentaire. Le code est dans le module de code de la feuille "BUDGET":

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zone As Range, xarea As Range, xcell As Range
   Set Zone = Range("b7:m7,b13:m27")
   On Error Resume Next
   If Not Intersect(Target, Zone) Is Nothing Then
      For Each xarea In Zone.Areas
         For Each xcell In xarea
            xcell.Comment.Delete
            If xcell.Formula <> "" Then xcell.AddComment xcell.FormulaLocal
         Next xcell
      Next xarea
   End If
End Sub

nota: on peut combiner les deux méthodes -> voir v1+2

 

Pièces jointes

• pascal006- Mon Budget- v2.xlsm

  26.4 KB · Affichages: 23
• pascal006- Mon Budget- v1+2.xlsm

  29.5 KB · Affichages: 28

Vote positif 0 Vote négatif

pascal006

XLDnaute Nouveau

• 1 Juillet 2017

• #13

Merci Mapomme je prend la version v1-2
j'en profite pour autre question...tout les mois j'ai certaine dépense qui son fixe comme le loyer.
Une solution pour afficher ou valider le montant d'un simple clic ou bien cocher une case, voir un menu déroulant?
Bon week-end

 

Vote positif 0 Vote négatif

pascal006

XLDnaute Nouveau

• 1 Juillet 2017

• #14

Re
J'ai modifier mon fichier de départ avec ajout de lignes sur les revenus et de même pour les dépenses.
- Je n'ai plus l'info des commentaires qui apparait automatique sur les nouvelles lignes quand je fais une addition Ex :"+30+30"
- Je trouve pas la solution pour afficher se fameux bouton " Aff form"
c'est beaucoup plus compliquer que je le pensais.
Merci par avance pour votre travail

 

Vote positif 0 Vote négatif

pascal006

XLDnaute Nouveau

• 1 Juillet 2017

• #15

Voici le fichier joint🙂

 

Pièces jointes

• pascal006- Mon Budget- v1+2 modifier.xlsm

  28.9 KB · Affichages: 19

Vote positif 0 Vote négatif