XL 2019 Formule pour calculer le contenu d'une cellule

natorp

XLDnaute Accro

• 17 Mars 2022

• #2

Bonjour Olivier

Peut-être comme ça ?
On sélectionne les cellules D2 à D5 et on convertit :


Puis

et terminer
Ce qui donne :


Et on peut en faire la somme

Cordialement, Gérard

 

Vote positif 0 Vote négatif

O

olivier777

XLDnaute Nouveau

• 17 Mars 2022

• #3

Bonjour Gérard,
merci pour ta réponse
Cela fonctionne bien sur mais comme il peut y avoir 1 à x valeurs et que ces colonnes sont embarquées dans un fichier contenant des colonnes à droite et à gauche je casse la structure de la feuille si je fais ça.
Pour cela que je cherchais à trouver une formule dans la colonne E
Mais ce n'est peut être pas possible
Merci

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 17 Mars 2022

• #4

Bonjour,
à généraliser

VB:

Sub TestFormule()

   For i = 2 To 5
  
   Cells(i, 5).Value = Evaluate("=" & Replace(Cells(i, 4), "/", "+"))
Next i
End Sub

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 17 Mars 2022

• #5

Re, un peu comme ceci, se calcul à l'activation de l'onglet

 

Pièces jointes

• additione contenu cellule.xls

  35 KB · Affichages: 3

Vote positif 0 Vote négatif

O

olivier777

XLDnaute Nouveau

• 17 Mars 2022

• #6

Merci st007
du coup il faut une macro
Et une formule avec "=remplacer(...)" quelque part ne pourrait pas se faire ?

 

Vote positif 0 Vote négatif

S

st007

XLDnaute Barbatruc

• 17 Mars 2022

• #7

Je pense pouvoir affirmer que oui
sinon avec une colonne supplémentaire
en ayant placé en colonne K la formule : =SUBSTITUE(D2;"/";"+"), étirée sur le même nombre de ligne que ta colonne D
Défini un "nom" EV , =EVALUER(Feuil1!$K$2)
et placé "=EV" en colonne E
mais çà reste une macro... et un fichier en contenant.

 

Vote positif 0 Vote négatif

O

olivier777

XLDnaute Nouveau

• 17 Mars 2022

• #8

Merci st007
du coup je me suis inspiré de ton idée et au lieu d'ajouter une colonne supplémentaire j'ai modifié EV en rajoutant le substitue, ce qui donne :
EV=EVALUER(SUBSTITUE(Feuil1!$K$2;"/";"+"))
ça à l'air d'être pas mal
Encore merci

 

Vote positif 0 Vote négatif