Ajouter le contenu d'une cellule à une formule

Ikito

XLDnaute Occasionnel

• 20 Février 2020

• #2

Bonjour,

Peux-tu nous proposer un fichier ?
Comment sont les caractères dans la cellule ? Précédés d'un apostrophe ? En format texte ?

 

Vote positif 0 Vote négatif

K

kinolu

XLDnaute Nouveau

• 20 Février 2020

• #3

voilà mon fichier de base

 

Pièces jointes

• Classeur1.xlsx

  9 KB · Affichages: 7

Vote positif 0 Vote négatif

WTF

XLDnaute Impliqué

• 20 Février 2020

• #4

Bonjour Kinolu,
Je pense qu'il faut que tu écrive une fonction personnalisée.
Tu devrais trouver tout ce dont tu as besoin sur le net

 

Vote positif 0 Vote négatif

K

kinolu

XLDnaute Nouveau

• 20 Février 2020

• #5

Il n'y a pas plus simple ?

 

Vote positif 0 Vote négatif

Ikito

XLDnaute Occasionnel

• 20 Février 2020

• #6

Par VBA :

VB:

Sub calculer()

For i = 2 To 17
    signe1 = Cells(i, "B")
    signe2 = Cells(i, "D")
    signe3 = Cells(i, "F")
    val1 = Cells(i, "A")
    val2 = Cells(i, "C")
    val3 = Cells(i, "E")
    val4 = Cells(i, "G")
    
    If (signe1 = "+") Then
    somme = val1 + val2
    Else
    somme = val1 - val2
    End If
    If (signe2 = "+") Then
    somme = somme + val3
    Else
    somme = somme - val3
    End If
    If (signe3 = "+") Then
    somme = somme + val4
    Else
    somme = somme - val4
    End If
    Cells(i, "I") = somme
Next

End Sub

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

• 20 Février 2020

• #7

Bonjour à tous,

Une fonction personnalisée:

VB:

Function Evalue(x As String)
   Evalue = Application.Evaluate(x)
End Function

 

Pièces jointes

• kinolu- Calcul expression- v1.xlsm

  13.7 KB · Affichages: 3

Vote positif 0 Vote négatif

Solution

K

kinolu

XLDnaute Nouveau

• 20 Février 2020

• #8

Merci beaucoup à vous 3 !

 

Vote positif 0 Vote négatif