Compiler des fonctions perso en une seule

Version imprimable

10/11/2015, 16h22
miyhun

Compiler des fonctions perso en une seule

Bonjour, j'ai un problème pour compiler 3 fonction perso (à peu près identique)... J'aimerais d'une valeur trouver un résultat. Seulement celui ci est identifiable par un chemin du genre Cellule A => Cellule B => Cellule C => Cellule D
j'ai réussi à créer une bidouille en créant des lignes qui affiche les résultats intermédiaires. Seulement celle ci ne me convient qu'à moitié... j'aimerais supprimer ces "cellules d'étape"
Comment faire en VBA? Pour que genre, il garde en "mémoire" les résultats intermédiaires et s'en serve pour la suite des calculs.
J'ajoute que je suis totalement newbie en programmation :lol:
Merci
11/11/2015, 16h24
SfJ5Rpw8

Bonjour,

utilise les balises de codes [Code] TES FORMULES [/code] pour nous montrer tes formules...

Comme ça? :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 Option Explicit
Function RechercheTypeBrut(Nom As Range) As String
 Application.Volatile
 Dim WsS As Worksheet
Dim Cel As Range, C As Range
Dim Tablo
Dim i As Integer
Dim Valeur As String
    Set WsS = Worksheets("Patch DMX")
        If Not IsEmpty(Nom) Then
            Tablo = Split(Nom, "/")
            For i = 0 To UBound(Tablo)
                Set C = WsS.Columns(1).Find(Tablo(i), , xlValues, xlWhole)
                If Not C Is Nothing Then
                    Valeur = Valeur & C.Offset(0, 1) & "/"
                End If
            Next i
            RechercheTypeBrut = Left(Valeur, Len(Valeur) - 1)
            Valeur = ""
        End If
End Function
 
Function RechercheAmpBrut(Nom As Range) As String
 Application.Volatile
 Dim WsS As Worksheet
Dim Cel As Range, C As Range
Dim Tablo
Dim i As Integer
Dim Valeur As String
    Set WsS = Worksheets("Amperage")
        If Not IsEmpty(Nom) Then
            Tablo = Split(Nom, "/")
            For i = 0 To UBound(Tablo)
                Set C = WsS.Columns(1).Find(Tablo(i), , xlValues, xlWhole)
                If Not C Is Nothing Then
                    Valeur = Valeur & C.Offset(0, 1) & "/"
                End If
            Next i
            RechercheAmpBrut = Left(Valeur, Len(Valeur) - 1)
            Valeur = ""
        End If
End Function
 
Function SomInterne(RangeInput As Range) As Double
 
 SomInterne = Evaluate(Replace(RangeInput, "/", "+"))
End Function

Chacune des 3 fonctions se rapporte à la cellules engendrée par la précédente

11/11/2015, 16h38
SfJ5Rpw8

Et comment tu utilise ( lie...) ces fonctions entre-elles ... dans tes cellules :

Citation:

Envoyé par miyhun

Cellule A => Cellule B => Cellule C => Cellule D
11/11/2015, 17h01
miyhun

Dans la A1 j'écris manuellement 1 ou plusieurs valeurs (dans ce cas séparées de "/")
Dans A2, la fonction va me chercher les Types correspondant à chaque valeur de A1 dans la feuille "Patch DMX"
Dans A3 elle va me chercher la correspondance de chaque valeurs de A2 dans la feuille "Amperage"
Dans A4 elle m'additionne les valeurs de A3

Le problème n°1 est que dans A2, je supprime les doublons pour une meilleure visibilité à l'impression
Le problème n°2 est que A3, je n'ai pas envie qu'elle apparaisse, elle ne me sert à rien visuellement
11/11/2015, 18h34
SfJ5Rpw8

encore une fois c'est incomplet pour nous aider à comprendre tu aurais pu mettre tes formules .... afin que l'on voit si l'on peu modifier tes fonctions pour en faire une seule ..
11/11/2015, 18h38
miyhun

Je crois les avoir mis plus haut non?
11/11/2015, 18h40
SfJ5Rpw8

Citation:

Envoyé par miyhun

Je crois les avoir mis plus haut non?

non ... quand on dit formule l'on parle pas du code VBA mais des formules contenues dans ta feuille de calcul ..! , si tu n'utilise pas de formule comment utilise tu tes fonctions ?
11/11/2015, 18h42
miyhun

j'utilise pas de formule... Juste des recherches de valeurs dans différentes colonnes, de différentes feuilles

Bonjour,

Je ne sais pas si tu as trouvé une solution mais comme la différence entre les deux fonctions est le nom de la feuille, il suffit de demander en argument la colonne qui a pour parent la feuille concernée :

Code:

1
2
3
4
5
6
7
8
9
10
 
Sub Test()
 
    'Appelle la même fonction...
    'pour la feuille "Patch DMX"
    MsgBox RechercheBrut(Worksheets("Patch DMX").Columns(1), Range("A1"))
    'pour la feuille "Amperage"
    MsgBox RechercheBrut(Worksheets("Amperage").Columns(1), Range("A1"))
 
End Sub

et la fonction pourrait ressembler à ça :

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
27
 
Function RechercheBrut(Colonne As Range, Nom As Range) As String
 
    Dim Cel As Range, C As Range
    Dim Tablo
    Dim i As Integer
    Dim Valeur As String
 
    Application.Volatile
 
    If Not IsEmpty(Nom) Then
 
        Tablo = Split(Nom.Value, "/")
 
        For i = 0 To UBound(Tablo)
 
            Set C = Colonne.Find(Tablo(i), , xlValues, xlWhole)
 
            If Not C Is Nothing Then Valeur = Valeur & C.Offset(0, 1) & "/"
 
        Next i
 
        RechercheAmpBrut = Left(Valeur, Len(Valeur) - 1)
 
    End If
 
End Function

16/11/2015, 07h27
Invité

Bonjour,
Si j'ai bien compris, tu dispose de 3 feuilles de données et une feuille de résultat.

La feuille résultat récupère la somme de 3 recherche sur chaque feuille de données.

Pour résoudre cette problématique, tu as procédé par étapes, maintenant tu voudrais fusionner ces étapes?

Le problème c'est que ton raisonnent est faut! Il faudrait que tu implémentes un fonction de recherche universelle qui te retourne la valeur recherchée qui servirait a implémenter la fonction sommes.

Mysomme(recherche(A),recherche(B),recherche(C)) !

Ce que je veux dire, c'est que tu ne peux pas partir d'une solution que tu as choisi par dépit comme base pour échafauder une solution finale!

Il faut reprendre l'analyse du début!