XL 2016 addition dans une cellule

pascal006

XLDnaute Nouveau
Bonjour
j'ai télécharger un fichier Excel sur le net pour la gestion de compte
et j'aimerai apporter quelques modif si c'est possible .
dans se fichier je voudrais que la cellule B17 garde cette appercu "30+30+30"
ou autre exemple " 20+50+80+60+45"
le problème Excel n'additionne pas le résulta qui se retrouve en cellule B28
Merci de votre aide.
Pascal
 

Pièces jointes

  • Mon Budget.xlsx
    16.6 KB · Affichages: 35

phlaurent55

Nous a quittés en 2020
Repose en paix
Bonjour,

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

P.

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 o_Oo_Oo_O

À+
Philippe
 
Dernière édition:

mapomme

XLDnaute Barbatruc
Supporter XLD
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

mapomme

XLDnaute Barbatruc
Supporter XLD
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

pascal006

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

pascal006

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

Discussions similaires

Statistiques des forums

Discussions
312 248
Messages
2 086 596
Membres
103 252
dernier inscrit
Ersar