Equivalence Formule Matricielle en VB.

Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Entraide Applications Microsoft Office Excel Equivalence Formule Matricielle en VB.

2 réponses

Golem13

01/12/2005 à 13:02

Bonjour.

Je tente de transcrire une formule matricielle en fonction perso.

je remercie encore CrisV pour son aide precieuse pour la matricielle.

{=PETITE.VALEUR(SI(ZN=0;LIGNE(ZN);"");1)}

= = = fonction perso -

Function Basse(plage1 As Range, VAL1, Position)

Dim Tabl As Variant
Tabl = plage1.Value
compteur = 0
'
For Z = 1 To UBound(Tabl)
'
'
If Tabl(Z, 1) = VAL1 Then
'
compteur = compteur + 1
'
ElseIf Position = compteur Then
Basse = Z - 1
Exit For
'
End If
'
Next Z
'
End Function

= = = =

Cette Fonction Perso marche, mais un avis sur le code VBA serait le
bienvenu.

@ +

2 réponses

JB

01/12/2005 à 13:42

Bonjour,

Function basse(rng As Range)
temp = rng(1)
p = 1
For i = 2 To rng.Count
If rng(i) < temp Then
temp = rng(i)
p = i
End If
Next
basse = p
End Function

Cordialement JB

Golem13

02/12/2005 à 12:04

Bonjour.

Merci pour cet exemple de formule perso.

Je continue à parfaire mon premier jet .

@ +

Bonjour,

Function basse(rng As Range)
temp = rng(1)
p = 1
For i = 2 To rng.Count
If rng(i) < temp Then
temp = rng(i)
p = i
End If
Next
basse = p
End Function

Cordialement JB

Equivalence Formule Matricielle en VB.

2 réponses

Veuillez sélectionner un problème