Discussion :

[rifchavon]

Bonjour à tous,

A partir d'un choix effectué dans une liste déoulante sur userform j'aimerais récupérer une valeur qui se situe dans la meme fueille et qui dépend du choix de l'utilisateur et qui va me servir pour mes calculs.
Aussi je vous donne un exemple:
L'utilisateur fait un choix de materiaux ex: AAAC
Je dois ensuite à partir d'une valeur calculé trouver les deux valeur normalisée (la première valeur supérieure à Scc et la première valeur inférieure a Scc)qui se situent dans un tableau et qui dépend du type de matériaux
Soit par exemple:
Scc: section du conducteur calculée théorique
AAAC: matériau constituant le conducteur (cette valeur est stockée dans une liste qui s'appelle Lconductor.listindex)
Voila le code que j'ai tapé et qui ne fonctionne pas:

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
Dim Snorm As Double
    Dim i As Integer
    Dim indiceligne As Integer
    Dim indicecolonne As String
    Dim k As Integer
 
    i = Lconductor.ListIndex + 7
 
    If (i = 7) Then indicecolonne = "AG" =>colonne: section normalisée pour conducteur 1
    If (i = 8) Then indicecolonne = "AH" =>colonne: section normalisée pour conducteur 2
 
    If (i = 9) Then indicecolonne = "AI" =>... 3
    If (i = 10) Then indicecolonne = "AJ" =>... 4
 
    k = 7
    Do Until ActiveSheet.Range(indicecolonne & k).Value - Scc > 0
            indiceligne = k
            k = k + 1
            Loop
    Snorm = ActiveSheet.Range("indicecolonne" & "indiceligne").Value
    MsgBox Snorm

A priori ici je n'essaye de récupérer que la première section normalisée de valeur juste supérieure à Scc..
On m'affiche un message d'erreur que je n'arrive pas à interpréter.
Merci d'avance pour votre aide

[dadavyvy]

1/ Je ne vois pas quand est initialisée la variable Scc. Je suppose donc que c'est une variable globale.
2/ Tu ne dis pas ou se situe l'erreur dans ton code, mais a priori ce la vient de :

Code :

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

Snorm = ActiveSheet.Range("indicecolonne" & "indiceligne").Value

Tu voulais surement ecrire sans les guillements :

Code :

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

Snorm = ActiveSheet.Range(indicecolonne & indiceligne).Value

[deaqu1]

Pour éviter tout ce code tu peux utiliser, une fonction tel que:

Code :

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

1
2
Snorm= Application.WorksheetFunction.VLookup _
(arg1,Range("a1:k20"), 5)

avec arg1: ta valeur recherché venant de ta userform, arg2: ton tableau de correspondance, et arg3: ta colonne ou se trouve ta valeur finale recherchée...

C'est plus simple à mon avis