XL 2016 Ajouter un caractère à la fin d'une formule Excel.

[Crystel78]

Bonjour,

Je possède un classeur très important sur lequel j'aimerais rajouter un nombre en fin de formule.
Ma formule est du type : =SI($cellule;$cellule).
J'aimerais pouvoir rajouter -1,5 à la fin de celle-ci, ce qui donnerait : =SI($cellule;$cellule; -1,5).
J'ignore cependant complètement comment rajouter un caractère à la fin.

En cherchant sur internet, j'ai pu trouver qu'avec ceci :

Cells.Select
With ActiveCell
sAvant = ""
sApres = ""
    
    
Selection.Replace What:=sAvant, Replacement:=sApres, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End With

On pouvait modifier un caractère, mais je n'ai pas de point de repaire, pour la fin de la formule, sachant que chaque cellule est différente l'une de l'autre. Le seul point de repaire que j'ai, c'est le début de ma formule "=SI(

Merci d'avance pour l'aide que vous pourriez m'apporter !

 

[eastwick]

Bonjour, un fichier est indispensable dans le cas présent.

 

[Crystel78]

Bonjour, un fichier est indispensable dans le cas présent.

Bonjour,

Voici un fichier exemple.
Les colonnes et les cellules à l'intérieur sont aléatoires, c'était juste pour vous donner un exemple, puisque cette modification, j'aimerais l'effectuer sur beaucoup plus de cellules que dans l'exemple.

Merci pour votre aide

 

[eastwick]

Que cherchez vous à faire précisément dans le fichier ?

 

[WTF]

Bonjour Crystel
Ta demande n'est pas très claire.

Une proposition avec au moins 9/10 de répondre à coté :

Formule en A1 : =SI($I$9<>"";C36&"-1,5";"")

Qui veut dire :
- Si : I9 est non vide
- Alors : indique ce qui est écrit en C36 et "-1,5"
- Sinon : vide

 

[Laurent78]

Bonjour,
Le classeur fournis est "vide", non ? juste quelques cellules avec une couleur de fond et 3 cellules avec un contenu sans cohérence. Pas de VBA. J'ai loupé un truc ?

 

[Crystel78]

Que cherchez vous à faire précisément dans le fichier ?

Je suis désolé, je ne suis pas très précise
Ce que j'aimerais, c'est que pour chaque formule du type : =xxx($cellule;$cellule )
La transformer en : =xxx($cellule;$cellule; -1,5)
Tout simplement

 

[WTF]

Ca ne peut pas être systématique, il faut d'abord que tu écrives ta formule.
Si c'est une somme, ca peut être =SOMME(Cellule1;Cellule2;-1,5)
Ou si moyenne : =MOYENNE(Cellule1;Cellule2;-1,5)

 

[Crystel78]

Ca ne peut pas être systématique, il faut d'abord que tu écrives ta formule.
Si c'est une somme, ca peut être =SOMME(Cellule1;Cellule2;-1,5)
Ou si moyenne : =MOYENNE(Cellule1;Cellule2;-1,5)

Merci pour votre réponse,
Pour rebondir sur l'exemple d'une Moyenne, si dans un classeur j'ai plusieurs moyenne dans plusieurs colonnes du type : =MOYENNE(Cellule1;Cellule2)
De quelle façon faudrait-il que j'opère pour ajouter à chaque moyenne de mon classeur : -1,5, comme dans votre exemple ?

 

[WTF]

Vraiment sans fichier d'exemple c'est dur :
Il faudrait faire comme ca (sauf si je ne comprends pas la demande, mais sans fichier ...)
=MOYENNE(Cellule1;Cellule2;-1,5)

 

[Crystel78]

Je ne peux malheureusement pas envoyer de fichier plus précis, par souci de confidentialité.
Dans l'idée ce que j'aimerais concevoir c'est une boucle qui parcours toutes les cellules de mon classeur "Feuil1" et pour chaque cellule du type "=MOYENNE(Cellule1;Cellule2) ajouter à la fin "-1,5" soit : =MOYENNE(Cellule1;Cellule2;-1,5). Mais je ne suis même pas certain que ce soit possible en VBA.

Si cela est trop difficile sans fichier précis, je le conçois parfaitement, et je continuerai à chercher de mon coté.

Je vous remercie en tout cas pour le temps que vous m'avez tous consacré.

 

[WTF]

Un exemple en PJ, mais peu probable que ca réponde au besoin.
Le plus simple serait d'avoir un bout de fichier anonymisé bien entendu

 

[Laurent78]

une petite idée en VBA :

Sub EnEnglais()
Dim Cel As Range
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    For Each Cel In Selection
        If Left(Cel.Formula, 4) = "=SUM" Then
         MsgBox Cel.Formula
         Cel.Formula = Left(Cel.Formula, Len(Cel.Formula) - 1) & ",-1.5)"
         MsgBox Cel.Formula
        End If
    Next Cel
End Sub

Sub EnFrancais()
Dim Cel As Range
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    For Each Cel In Selection
        If Left(Cel.FormulaLocal, 6) = "=SOMME" Then
         MsgBox Cel.FormulaLocal
         Cel.FormulaLocal = Left(Cel.FormulaLocal, Len(Cel.Formula) - 1) & ";-1,5)"
         MsgBox Cel.FormulaLocal
        End If
    Next Cel
End Sub

 

[Crystel78]

une petite idée en VBA :

Sub EnEnglais()
Dim Cel As Range
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    For Each Cel In Selection
        If Left(Cel.Formula, 4) = "=SUM" Then
         MsgBox Cel.Formula
         Cel.Formula = Left(Cel.Formula, Len(Cel.Formula) - 1) & ",-1.5)"
         MsgBox Cel.Formula
        End If
    Next Cel
End Sub

Sub EnFrancais()
Dim Cel As Range
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    For Each Cel In Selection
        If Left(Cel.FormulaLocal, 6) = "=SOMME" Then
         MsgBox Cel.FormulaLocal
         Cel.FormulaLocal = Left(Cel.FormulaLocal, Len(Cel.Formula) - 1) & ";-1,5)"
         MsgBox Cel.FormulaLocal
        End If
    Next Cel
End Sub

Merci beaucoup !
C'est exactement ce que je recherchais, vous êtes parfait !
Excusez moi encore de ne pas avoir été explicite

 

[Laurent78]

Merci beaucoup !
C'est exactement ce que je recherchais, vous êtes parfait !
Excusez moi encore de ne pas avoir été explicite

je file le dire à ma femme