XL 2021 Transformer une formule en vba

gege5959 · Mercredi à 10:16

Bonjour,

Je suis débutant et je cherche à transcrire la formule suivante en vba mais j'ai toujours des messages d'erreur alors que la formule fonctionne dans une cellule
=SOMME(NB.SI.ENS(A1:E1;G1:J1))
Le but étant de compter le nombre de doublons dans une plage avec pour critère une autre plage
Cette formule sera intégrée à 2 boucles si bien qu'elle pourrait finir par exemple par =SOMME(NB.SI.ENS(A500:E500;G300:J300))

Je l'ai écrite comme suit:
com1 = activeWorksheetFunction.somme(activeWorksheetFunction.nb.si.ens(Sheets("sol2").Range(Cells(i, j), Cells(i, j + 4)), Sheets(feu1).Range(Cells(posi, colref1 ), Cells(posi, colref1 +3))))

Message d'erreur: «erreur définie par l'application ou par l'objet»

Merci d'avance pour votre éclairage

laurent950 · Mercredi à 21:54

sylvanu à dit:
A priori, le demandeur veut le résultat en variable, d'où le souci.

VB:

Sub Macro3()
    Dim rng1 As String
    Dim rng2 As String
    
    ' ' =SOMME(NB.SI.ENS(A1:E1;G1:J1))
    ' Adresse relative en notation A1
    rng1 = Range(Cells(1, 1), Cells(1, 4)).Address(RowAbsolute:=False, ColumnAbsolute:=False)
    rng2 = Range(Cells(1, 7), Cells(1, 10)).Address(RowAbsolute:=False, ColumnAbsolute:=False)

    ' Formule en français avec ; comme séparateur
    ActiveCell.FormulaLocal = "=SOMME(NB.SI.ENS(" & rng1 & ";" & rng2 & "))"
End Sub

laurent950 · Mercredi à 22:25

Astuces

VB:

Sub Macro6_Corrige()

'Je l 'ai écrite comme suit:
'com1 = activeWorksheetFunction.somme(activeWorksheetFunction.nb.si.ens(Sheets("sol2").Range(Cells(i, j), Cells(i, j + 4)), Sheets(feu1).Range(Cells(posi, colref1), Cells(posi, colref1 + 3))))

    Dim wsSol As Worksheet, wsFeu As Worksheet
    Dim rng1 As String, rng2 As String
    Dim i As Long

    Set wsSol = Sheets("sol2") ' Sheets("sol2")
    Set wsFeu = Sheets("feu1") ' Sheets(feu1)
   
    ' Cette formule sera intégrée à 2 boucles si bien qu'elle pourrait finir par exemple par =SOMME(NB.SI.ENS(A500:E500;G300:J300))
    For i = 1 To 500  ' Exemple A500:E500 / Mais pour G300:J300 ? il faut 500 Lignes aussi donc G500:J500
        ' Construire les adresses A1 relatives avec le nom des feuilles
        rng1 = wsSol.Range(wsSol.Cells(i, 1), wsSol.Cells(i, 4)).Address(RowAbsolute:=False, ColumnAbsolute:=False, External:=True)
        rng2 = wsFeu.Range(wsFeu.Cells(i, 7), wsFeu.Cells(i, 10)).Address(RowAbsolute:=False, ColumnAbsolute:=False, External:=True)
       
        ' Formule avec SOMME(NB.SI.ENS) en français
        wsSol.Cells(i, 13).FormulaLocal = "=SOMME(NB.SI.ENS(" & rng1 & ";" & rng2 & "))"
    Next i
End Sub

gege5959 · Jeudi à 07:43

AtTheOne à dit:
bonsoir à toutes & à tous, bonsoir @gege5959

De cette façon, avec EVALUATE

VB:

Sub tst() '... Rg1 = [A1:E1].Address(external:=True) Rg2 = [G1:J1].Address(external:=True) TT = Evaluate("Sum(CountIf(" & Rg1 & "," & rg2 & "))") '... End Sub

Chez moi cela fonctionne !
À bientôt

Bonjour,

Merci pour votre macro.
Elle ressemble assez à une autre plus haut mais elle pourra m'être utile.
Cordialement.

gege5959 · Jeudi à 07:44

laurent950 à dit:

VB:

Sub Macro3()
    Dim rng1 As String
    Dim rng2 As String
   
    ' ' =SOMME(NB.SI.ENS(A1:E1;G1:J1))
    ' Adresse relative en notation A1
    rng1 = Range(Cells(1, 1), Cells(1, 4)).Address(RowAbsolute:=False, ColumnAbsolute:=False)
    rng2 = Range(Cells(1, 7), Cells(1, 10)).Address(RowAbsolute:=False, ColumnAbsolute:=False)

    ' Formule en français avec ; comme séparateur
    ActiveCell.FormulaLocal = "=SOMME(NB.SI.ENS(" & rng1 & ";" & rng2 & "))"
End Sub

Bonjour,

Merci beaucoup. C'est exactement ce que je cherchais. Cordialement.

AtTheOne · Jeudi à 08:48

Bonjour à toutes et à tous, bonjour @gege5959
Merci pour le retour.

gege5959 à dit:
Elle ressemble assez à une autre plus haut

Oui postée 3 minutes plus tôt, mais avec cette différence que je place le résultat dans une variable et non pas en formule dans une cellule.
Vu ton 1er post :

gege5959 à dit:
com1 = activeWorksheetFunction.somme(activeWorksheetFunction.nb.si.ens(Sheets("sol2").Range(Cells(i, j), Cells(i, j + 4)), Sheets(feu1).Range(Cells(posi, colref1 ), Cells(posi, colref1 +3))))

Et le post 8 :

gege5959 à dit:
ValMin = Application.WorksheetFunction.Min(Range(Cells(18, 1), Cells(31, 840))) .

J'avais cru comprendre que c'était ce que tu recherchais
Apparemment je me trompais 🫢
À bientôt

sylvanu · Jeudi à 08:59

Re,

AtTheOne à dit:
Apparemment je me trompais

Et vous n'êtes pas le seul. 🙂

kiki29 · Jeudi à 09:45

Salut, à lire/pratiquer 1 2

XL 2021 Transformer une formule en vba

gege5959

XLDnaute Nouveau

laurent950

laurent950

XLDnaute Barbatruc

gege5959

XLDnaute Nouveau

gege5959

XLDnaute Nouveau

AtTheOne

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

kiki29

XLDnaute Barbatruc

Discussions similaires

XL 2021 Transformer une formule en vba

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency