formul en vba

BERRACHED said

XLDnaute Accro

• 27 Juillet 2008

• #2

Re : formul en vba

Salut,tanerbus,le Forum

la traduction de votre Formule en Vb a l'aide de l'enregistreur évidemment ça donne ca :

Code:

Sub Trd_Frmle()
    ActiveCell.FormulaR1C1 = _
    "=SUMIF(IF(LEN(R[-6]C)=3,Feuil3!C[3],Feuil3!C[4]),R[-6]C,Feuil3!C20:C[17])"
End Sub

quant au resultat je te laisse le soin d'éssayé

Cordialement

 

Vote positif 0 Vote négatif

T

tanerbus

Guest

• 27 Juillet 2008

• #3

Re : formul en vba

désolé je me suis mal exprimé mais j'aimerais obtenir une fonction

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 27 Juillet 2008

• #4

Re : formul en vba

bonjour tanerbus,

peux-tu s'il te plait expliquer plus explicitement ce que fait cette formule.

A+

 

Vote positif 0 Vote négatif

BERRACHED said

XLDnaute Accro

• 27 Juillet 2008

• #5

Re : formul en vba

Ré,
si j'ai bien compris tu veut éviter de l'écrire a chaque fois ?

Voir ce fichier

Cordialement

 

Pièces jointes

• Trd_Frmle.xls

  23.5 KB · Affichages: 45

Vote positif 0 Vote négatif

T

tanerbus

Guest

• 27 Juillet 2008

• #6

Re : formul en vba

ma formule additionne les chiffres de la colonne de la colonne T selon un critère

le critère est si la variable = 3 caractère alors la plage de la somme.si = colonne F sinon colonne G



j'ai tester ca
mais sa marche pas

Public Function fonction(variable As Range)
fonction = SUMIF(IF(LEN(variable)=3,feuil3!C6,feuil3!C7),variable,feuil3!C20)
End Function

 

Vote positif 0 Vote négatif

T

tanerbus

Guest

• 27 Juillet 2008

• #7

Re : formul en vba

BERRACHED said à dit:

Ré,
si j'ai bien compris tu veut éviter de l'écrire a chaque fois ?

Voir ce fichier

Cordialement

Cliquez pour agrandir...

non je veut crée une fonction comme la fonction : somme ou si ect ......

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 27 Juillet 2008

• #8

Re : formul en vba

Un essai de réponse...

Code:

Function Essai(Cellule As Range)
Dim NumCol As Integer
Dim NumLig As Double
Dim Total As Double
    NumCol = 7 + (Len(Cellule.Value) = 3)
    Total = 0
    For NumLig = 1 To 65535
        If Sheets("Feuil3").Cells(NumLig, NumCol).Value = Cellule.Value Then Total = Total + Sheets("Feuil3").Cells(NumLig, 20).Value
    Next NumLig
    Essai = Total
End Function

Ne connaissant pas l'équivalent de "somme.si" en VBA, j'ai écrit un bout de code pour le rempacer, mais son exécution est relativement longue... 🙁

 

Dernière édition: 27 Juillet 2008

Vote positif 0 Vote négatif

BERRACHED said

XLDnaute Accro

• 27 Juillet 2008

• #9

Re : formul en vba

Ré,

Voir ce fil il traite le mémé sujet tu pourra t'inspirer :

https://www.excel-downloads.com/threads/equivalent-a-nbcar-b3-en-vba.33122/


Cordialement

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 27 Juillet 2008

• #10

Re : formul en vba

je te propose ça (si j'ai bien compris) :

Code:

Public Function formul(critere As Range) As Integer

Dim plage  As Range, somme_plage As Range

If Len(critere.Value) = 3 Then
    Set plage = ThisWorkbook.Sheets("Feuil3").Range("F:F")
Else
    Set plage = ThisWorkbook.Sheets("Feuil3").Range("G:G")
End If

Set somme_plage = ThisWorkbook.Sheets("Feuil3").Range("T:T")

formul = WorksheetFunction.SumIf(plage, critere, somme_plage)

End Function

A+

 

Vote positif 0 Vote négatif

T

tanerbus

Guest

• 27 Juillet 2008

• #11

Re : formul en vba

mromain à dit:

je te propose ça (si j'ai bien compris) :

Code:

Public Function formul(critere As Range) As Integer

Dim plage  As Range, somme_plage As Range

If Len(critere.Value) = 3 Then
    Set plage = ThisWorkbook.Sheets("Feuil3").Range("F:F")
Else
    Set plage = ThisWorkbook.Sheets("Feuil3").Range("G:G")
End If

Set somme_plage = ThisWorkbook.Sheets("Feuil3").Range("T:T")

formul = WorksheetFunction.SumIf(plage, critere, somme_plage)

End Function

A+

Cliquez pour agrandir...

je comprend la formule est ces tout a fait sa que je recherche mais malheureusement sa ne marche pas je ne ces pas pourquoi

Marcel32 à dit:

Un essai de réponse...
Code:

Function Essai(Cellule As Range)
Dim NumCol As Integer
Dim NumLig As Double
Dim Total As Double
NumCol = 7 + (Len(Cellule.Value) = 3)
Total = 0
For NumLig = 1 To 65535
If Sheets("Feuil3").Cells(NumLig, NumCol).Value = Cellule.Value Then Total = Total + Sheets("Feuil3").Cells(NumLig, 20).Value
Next NumLig
Essai = Total
End Function

Cliquez pour agrandir...

celle la marche très bien, même si la formule me parais moins claire mais bon sa ira.



je tien remercier tout le forum www.excel-downloads.com pour cette efficacité

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 27 Juillet 2008

• #12

Re : formul en vba

As-tu essayé de remplacer le Integer dans la définition de la fonction de mromain par un Double ??

Code:

Public Function formul(critere As Range) As [b]Double[/b]

 

Vote positif 0 Vote négatif

R

Raja

XLDnaute Accro

• 27 Juillet 2008

• #13

Re : formul en vba

Bonsoir,

Peut être ce code te servira. On ne sait jamais.

Code:

ActiveCell.Formula = "=IF(LEN(R9C3)=3,SUMIF(Feuil3!C6,R9C3,Feuil3!C20),SUMIF(Feuil3!C7,R9C3,Feuil3!C20))"

 

Dernière édition: 27 Juillet 2008

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 28 Juillet 2008

• #14

Re : formul en vba

Je viens de tester avec Double et la fonction de mromain fonctionne d'enfer !!
Le rasultat est obtenu immédiatement (temps de calcul quasiment nul).

 

Vote positif 0 Vote négatif

T

tanerbus

Guest

• 28 Juillet 2008

• #15

Re : formul en vba

je confirme que avec as Double la fonction de mromain marche très bien de plus calcul plus rapide

merci

 

Vote positif 0 Vote négatif