variables de différents types

Version imprimable

25/11/2007, 22h46
Maxence45

variables de différents types

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
25/11/2007, 22h48
Maxence45

en gros comment traduire en langage VBA : les variables de type numérique ?
26/11/2007, 00h35
Maxence45
regardez j'ai cette ligne :
Code:

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 ...

Code:

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

26/11/2007, 01h16
Maxence45

non pas du tout lol
26/11/2007, 01h20
swissmade

Citation:

Envoyé par Maxence45

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?!
26/11/2007, 01h35
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:

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 .

Code:

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

Citation:

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. ;)

26/11/2007, 13h30
Maxence45

tu utilises des tableaux , j'ai pas le droit d'en utiliser vu que je ne les ai pas encore vu ...
26/11/2007, 13h48
Singular

Alors tu ne peux que déterminer chaque type de donnée par une succession de trois Ifs dans lesquels tu additionnes et comptes chaque valeur en fonction de son type. Pas compliqué mais le code prend de l'espace. Dommage que tu ne sois pas rendu aux tableaux! :aie:

Si toutes tes entrées sont des chaines, ta fonction devrait renvoyer Null...