Microsoft 365 Modification formules via VBA

Thomi · 5 Janvier 2024

Bonjour à tous, j'ai une formule dans un fichier simple qui est la suivante :

=SOMME.SI.ENS(R3:R12000;R3:R12000;">0";O3:O12000;"";L3:L12000;"=1")

J'ai besoin via VBA de modifier cette formule afin d'atteindre ce résultat :

=SOMME.SI.ENS(R3:R12000;R3:R12000;">0";O3:O12000;"")

Or via VBA en utilisant ce code qui marche dans tous les cas de figure que j'ai eu besoin jusqu'a present :

VB:

Sub rEMPLACERDANSINDICS()

   Application.DisplayAlerts = False
 
    'Définir la plage de cellules à rechercher et remplacer
    Dim plage As Range
    Set plage = Selection

plage.Replace what:=";L3:L12000;"=1"", replacement:="", _
    searchorder:=xlByRows, MatchCase:=False, _
    searchformat:=False, ReplaceFormat:=False
 End sub

J'ai un message d'erreur de compilation : Erreur de syntaxe qui apprait

Je me doute que le problème vient du fait que j'ai des "" dans ma formule et pose probleme en VBA mais je n'arrive pas trouver de solution pour contourner cette contrainte.

Je vous remerice de votre aide

Dudu2 · 5 Janvier 2024

Bonjour,

Ça ?

VB:

Sub a()
    Dim Formule As String
    Dim k As Integer
   
    If TypeOf Selection Is Range Then
        If Selection.Cells.Count = 1 Then
            If Selection.HasFormula Then
                Formule = Selection.FormulaLocal
                k = InStrRev(Formule, ";L3:L12000;""=1"")"
                If k > 0 Then
                    Selection.FormulaLocal = Left(Formule, k - 1) & ")"
                End If
            End If
        End If
    End If
End Sub

Microsoft 365 Modification formules via VBA

Thomi

XLDnaute Nouveau

Dudu2

XLDnaute Barbatruc

Discussions similaires