Discussion :

[Maxence45]

Bonjour , j'ai 3 variables 2 de types numériques et une de type chaine et que je pose comme condition :

si x = coucou OU que y = coucou OU que z = coucou ( coucou étant une valeur de type string )

et que je veux faire une opération sur les 2 variables numériques ( mais ici on sait pas si c'est x y ou z les variables de types numériques ) , comment je peux faire ?

merci

[Maxence45]

en gros comment traduire en langage VBA : les variables de type numérique ?

[Maxence45]

regardez j'ai cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 ElseIf (x = "coucou") Or (y = "coucou") Or (z = "coucou") Then
        rrr =

la variable rrr doit etre égale par exemple à la multiplication des 2 variables numériques vous voyez ce que je veux dire ? mais on sait pas ( à cause des OU ) quelles sont les 2 variables numériques ...

[swissmade]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
rrr=0
if isnumeric(x)=true then rrr=x
if isnumeric(y)=true then rrr=rrr+y
if isnumeric(z)=true then rrr=rrr+z

Je pense que c est ca que tu cherchai si j ai bien compris

[Maxence45]

non pas du tout lol

[swissmade]

non pas du tout lol

J ai relu ta question et je comprend toujours la meme chose...
A par le fait que ce soit une multiplication mais le principe reste le meme...

Enfin si tu peux présiser un peu?!

[Maxence45]

je crois que j'ai précisé au maximum , imagine 3 cellules de excel , toutes sur la meme ligne , 1 de ces cellules contient du texte , les 2 autres une valeur numérique , et tu dois écrire une fonction qui renvoit la moyenne des 2 numériques si l'une des 3 cellules contient une valeur de type chaine , comment tu fais vu qu'à la base tu sais pas dans quelles cellules sont les valeurs numériques ....

on écrit donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 ElseIf (x = "coucou") Or (y = "coucou") Or (z = "coucou") Then
        rrr =

mais dans le rrr = je dois écrire la moyenne des 2 , mais je ne peux ni écrire (x+y) / 2 , ni (x+z) / 2... vu que je sais pas si c'est x , y ou z les porteurs de valeurs numériques , tu vois ce que je veux dire ?

merci de pas poster de code tout fait sinon je progresse pas .

[Singular]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Function MoyenneDesNumeriques(ByRef vTableau() As Variant) As Variant
' Cette fonction renvoit la moyenne des numériques présents dans le tableau
'       vTableau.  Elle renvoit Null si aucun numérique n'est présent dans le
'       tableau.
    Dim vSomme As Variant
    Dim lTotal As Long
    Dim lb As Long
    Dim ub As Long
    Dim i As Long
 
    lb = LBound(vTableau)
    ub = UBound(vTableau)
 
    For i = lb To ub
        If IsNumeric(vTableau(i)) Then
            vSomme = vSomme + 1
            lTotal = lTotal + vTableau(i)
        End If
    Next i
 
    If lTotal = 0 Then
        MoyenneDesNumeriques = vSomme / lTotal
    Else
        MoyenneDesNumeriques = Null
    End If
End Function

Envoyé par Maxence45:

merci de pas poster de code tout fait sinon je progresse pas .

Désolé pour le code tout fait, mais c'est plus long et difficile à expliquer et tu as le droit de progresser grâce à la connaissance des autres. T'as pas à réinventer la roue à chaque fois; t'as seulement qu'à comprendre le principe de fonctionnement.