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

Crystel78 · 24 Février 2021

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 :

VB:

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 !

Laurent78 · 24 Février 2021

une petite idée en VBA :

VB:

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

eastwick · 24 Février 2021

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

Crystel78 · 24 Février 2021

eastwick à dit:
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 · 24 Février 2021

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

WTF · 24 Février 2021

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 · 24 Février 2021

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 · 24 Février 2021

eastwick à dit:
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 · 24 Février 2021

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 · 24 Février 2021

WTF à dit:
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 · 24 Février 2021

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 · 24 Février 2021

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 · 24 Février 2021

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 · 24 Février 2021

une petite idée en VBA :

VB:

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 · 24 Février 2021

Laurent78 à dit:

une petite idée en VBA :

VB:

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 · 24 Février 2021

Crystel78 à dit:
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

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

Crystel78

XLDnaute Nouveau

Laurent78

eastwick

XLDnaute Accro

Crystel78

XLDnaute Nouveau

Pièces jointes

eastwick

XLDnaute Accro

WTF

XLDnaute Impliqué

Laurent78

XLDnaute Occasionnel

Crystel78

XLDnaute Nouveau

WTF

XLDnaute Impliqué

Crystel78

XLDnaute Nouveau

WTF

XLDnaute Impliqué

Crystel78

XLDnaute Nouveau

WTF

XLDnaute Impliqué

Pièces jointes

Laurent78

XLDnaute Occasionnel

Crystel78

XLDnaute Nouveau

Laurent78

XLDnaute Occasionnel

Discussions similaires