[VBA-E]recherche d'une valeur particulière
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:
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
