Discussion :

[miyhun]

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
Merci

[SfJ5Rpw8]

Bonjour,


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

[miyhun]

Comme ça? :

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

[SfJ5Rpw8]

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

Cellule A => Cellule B => Cellule C => Cellule D

[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

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