ce tableau est un extrait d'une norme pour trouver la section d'un câble électrique en fonction de l'intensité admissible et les modes de poses
Les lettres B et C sont des méthodes de reférences
PVC2 ou PVC3 correspondent au type d'isolant PVC avec 2 conducteur ou 3 conducteurs
B PVC3 PVC2
C vide PVC3
Cuivre
1.5 15 17
2.5 21 24
4 28 32
Aluminium
1.5 15 17
2.5 21 24
4 28 32
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.
Dans la ligne B, colonne PVC2, valeur immédiatement supérieure à 20, c'est 24, ce qui nous donne une section en cuivre de 2.5mm2
J'ai mis en gras le chemin pour trouver la solution
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.
Aucune réponse raisonnable tant que tu ne nous auras pas dit comment du détermine le nombre souligné dans la citation de ce que tu as écrit !
A moins que ta question ne soit finalement (et on oublie alors tout le préambule) : comment trouver, dans un tableau de valeurs, la valeur immédiatement supérieure à un nombre spécifié !
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
On oublie alors tout le préambule !
Au bout du compte, si je comprends bien, tu sais (et es seul à le savoir) quel est le nombre (20 dans ton cas) dont tu recherches celui immédiatement supérieur dans un tableau que tu connais (le tableau cuivre, dans ton cas) et, après avoir trouvé ce nombre (24 dans ton cas), extraire le nombre figurant dans la première colonne de la même ligne du tableau (cuivre dans ton cas) examiné ...
C'est çà ?
Confirme avant que je ne m'y mettes, s'il te plait !
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
On oublie le préambule ! oui je suis le seul à connaître le chiffre 20 car je vais le saisir dans une textbox !
Ce qui est important c'est bien de respecter la requête par exemple:
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.
Dans la ligne B, colonne PVC2, valeur immédiatement supérieure à 20 pour du cuivre, c'est 24, ce qui nous donne une section en cuivre de 2.5mm2
B PVC3 PVC2 C vide PVC3
Cuivre 1.5 15 17
2.5 21 24 4 28 32
Aluminium
1.5 15 17
2.5 21 24
4 28 32
je ne sais pas si tu te rends compte de ce que tu dis là est très loin d'être clair !
Je me fiche de ta ligne B (elle ne veut rien dire dans le contexte !)
PVC2 ne veut pour moi rien dire du tout non plus , mis à part que je choisirai une colonne et pas l'autre ( la 2ème si PVC3, la 3ème si PVC2) dans le tableau cuivre.
Si ce n'est pas cela non plus, il va falloir que tu nous montres un algo clair et précis de ton raisonnement !
Je t'ai posé plus haut une question. Réponds-y s'il te plait
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
Il te faut alors un tableau cuivre et un tableau aluminium...
Exemple pour le tableau cuivre, en y cherchant l'immédiatement supérieur à 20 dans la 3ème colonne :
Dim 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)
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
If cuivre(i, 2) > donne And cuivre(i, 2) < tremplin Then
par :
If cuivre(i, 2) >= donne And cuivre(i, 2) < tremplin Then
Juste pour le cas où tu mettrais une valeur exacte dans ta textbox, hein...
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
Que c'est pas facile de se faire comprendre !!je me rappelle une question lors d'un entretien d'embauche pour un poste de formateur "Que redoutez vous le plus ?" réponse "de ne pas me faire comprendre"
Alors ce qu'il manque, c'est bien entendu que dans ce tableau cuivre il faudrait qu'on nous donne le choix de savoir qu"elle est la méthode de référence ! dans notre exemple la lettre B, que l'on puisse également choisir le type d'isolant avec son nombre de conducteur PVC2 .
Ce qui nous amène dans la 1ere ligne et 3ème colonne!
Arbitrairement nous avons choisi une intensité de 20A, cela nous donne 24, valeur immediatement supérieure dans la colonne et qu'une msgbox nous affiche 2.5
à demain
B PVC3 PVC2 C vide PVC3
Cuivre
1.5 15 17
2.5 21 24 4 28 32
Aluminium
1.5 15 17
2.5 21 24
4 28 32
En effet. Et tu aurais pu le corriger toi-même en analysant ;
For i 0 To 2 et non For i 1 To 2
Essaye de comprendre et non de copier simplement.
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
"Que redoutez vous le plus ?" réponse "de ne pas me faire comprendre"
Ma réponse claire, simple et nette : il suffit, pour ne pas être dans un tel cas, d'apprendre à aller à l'essentiel et de savoir l'exprimer.
Regarde ce qu'il t'aurait suffi de dire :
"Je veux, dans un tableau de x lignes et y colonnes, extraire dans une colonne yn du dit tableau la valeur immédiatement supérieure ou égale à un nombre nb et la valeur correspondance, sur la même ligne, de la colonne xn."
Car là était ton problème et la manière de le cerner. Tout le reste (le préambule) n'était que la motivation d'une telle recherche et ne regardait que toi.
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
Et voilà maintenant le même code, avec une flexibilité totale ! c'est toi qui choisis :
- la colonne d'extraction (variable yrecherche) de la valeur égale ou immédiatement supérieure à un nb spécifié (donne)
- la colonne d'extraction (variable ycorresp) de la correspondance à trouver
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)
Que veux-tu de mieux ?
Il te reste à faire quoi, selon ce que je devine ?
Fastoche : un tableau de "répartition" ===>>>>
B PVC3 PVC2
C vide PVC3
Tu dois "fouiller" dans ce tableau pour extraire ;
- dans sa colonne 1 (ta variable ycorresp) le n° de ligne Numligne correspondant à ton choix (B ou C) ===>> ce sera ta variable
- sur cette ligne Numligne de ton tableau, chercher dans quelle colonne (ta variable yrecherche) se trouve ton choix "complémentaire" (ex : PVC3, PVC2, ...)
Comment traiter cette chose simple ? en t'inspirant très largement (mais pas en copiant) du code que tu as déjà et qui, lui, est l'extraction finale sur les bases de donne, de yrecherche et ycorresp.
Retrousse-toi un peu les manches (c'erst ulktra-facile).
____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer Cliquer sur "Réponse acceptée" en bas d'une solution adéquate est
Bien entendu qu'il faut que je comprenne le code car le tableau que je t'ai donné n'est qu'un extrait !! il était bien tard hier soir !!voilà tout !! mais oui je suis du genre à retrousser mes manches et je vais bien entendu décortiquer ton code !!!
Voila ucfoutu !! j'ai tout testé ! j'ai juste trouvé une erreur !!rires !!
Bon voila j'ai fais ma selection de colonne par optionbutton et la donnée par textbox ! de plus j'ai rajouté une ligne et une colonne aux données d'entrées pour voir si je pouvais m'approprier le code !!
Merci et à la prochaine pour un nouveau défit !!!
Private Sub Command4_Click()
Dim cuivre(3, 3) As Single, donne As Single, diff As Single, tremplin As Single, i As Integer
'voilà ton tableau cuivre
cuivre(0, 0) 1.5: cuivre(0, 1) 15.5: cuivre(0, 2) = 17.5: cuivre(0, 3) = 18.5
cuivre(1, 0) 2.5: cuivre(1, 1) 21: cuivre(1, 2) = 24: cuivre(1, 3) = 25
cuivre(2, 0) 4: cuivre(2, 1) 28: cuivre(2, 2) = 32: cuivre(2, 3) = 34
cuivre(3, 0) 6: cuivre(3, 1) 36: cuivre(3, 2) = 41: cuivre(3, 3) = 43
donne = Text1.Text
If ((Controls("Option1").Value True) And (Controls("Option7").Value True)) Or ((Controls("Option2").Value = True) And (Controls("Option8").Value = True)) Then
colonne = 3
End If
If ((Controls("Option1").Value True) And (Controls("Option8").Value True)) Then
colonne = 2
End If
If ((Controls("Option3").Value True) And (Controls("Option8").Value True)) Then
colonne = 4
End If
yrecherche = colonne '<<<<< si on veut chercher dans la xème colonne
ycorresp = 1 '<<<<<<< si la colonne de "Section" est la 1ère
diff cuivre(0, yrecherche - 1) - donne: trouve 0
tremplin = donne * 3 '<<<<< 3 numéro de colonne max
If diff <> 0 Then
For i = 0 To 3 '<<<<<< 3 numéro de ligne max , début 0
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 "Iz =" & cuivre(trouve, yrecherche - 1) & " Section cuivre= " & cuivre(trouve, ycorresp - 1)
End Sub
