Je pose le problème, le câble d'ame cuivre (choisi par optionbutton),en methode de référence B (choisi dans une combobox) de type PVC2 (choisi dans une combobox) est parcouru par une intensité de 20A.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim cuivre(2, 2) As Single, donne As Single, diff As Single, tremplin As Single, i As Integer 'voilà ton tableau cuivre : on le construit, pour exemple, donc cuivre(0, 0) 1.05: cuivre(0, 1) 15: cuivre(0, 2) = 17 cuivre(1, 0) 2.5: cuivre(1, 1) 21: cuivre(1, 2) = 24 cuivre(2, 0) 4: cuivre(2, 1) 28: cuivre(2, 2) = 32 donne 20 ' <<<<< tu es seul à savoir pourquoi et comment ! diff cuivre(0, 2) - donne: trouve 0 tremplin = donne * 2 If diff <> 0 Then For i = 1 To 2 If cuivre(i, 2) > donne And cuivre(i, 2) < tremplin Then diff cuivre(i, 2): tremplin diff: trouve = i End If Next End If MsgBox "valeur impmédiatement supérieure ou égale : " & cuivre(trouve, 2) & " pour une correspondance de " & cuivre(trouve, 0)
If cuivre(i, 2) > donne And cuivre(i, 2) < tremplin Then
If cuivre(i, 2) >= donne And cuivre(i, 2) < tremplin Then
"Que redoutez vous le plus ?" réponse "de ne pas me faire comprendre"
Dim cuivre(2, 2) As Single, donne As Single, diff As Single, tremplin As Single, i As Integer 'voilà ton tableau cuivre cuivre(0, 0) 1.05: cuivre(0, 1) 15: cuivre(0, 2) = 17 cuivre(1, 0) 2.5: cuivre(1, 1) 21: cuivre(1, 2) = 22 cuivre(2, 0) 4: cuivre(2, 1) 28: cuivre(2, 2) = 21 donne = 20 yrecherche = 3 '<<<<<====== si tu veux chercher dans la 3ème colonne ycorresp = 2 '<<<<<<< si la colonne de "correspondance" est la 1ère diff cuivre(0, yrecherche - 1) - donne: trouve 0 tremplin = donne * 2 If diff <> 0 Then For i = 0 To 2 If cuivre(i, yrecherche - 1) >= donne And cuivre(i, yrecherche - 1) < tremplin Then diff cuivre(i, yrecherche - 1): tremplin diff: trouve = i End If Next End If MsgBox "valeur impmédiatement supérieure ou égale : " & cuivre(trouve, yrecherche - 1) & " pour une correspondance de " & cuivre(trouve, ycorresp - 1)