Récupérer valeur case dépendant paramètres
rominou67
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
rominou67 Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
rominou67 Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai un gros tableau excel avec de nombreuse formules.
Je prend un exemple,
quand dans la case A1 je mets 2, dans la case B10 j'obtiens 13
quand dans la case A1 je mets 3, dans la case B10 j'obtiens 49.
La relation entre A1 et B10 est compliqué, il doit y avoir une dizaine de relation entre ces 2 cases, donc je connais pas la fonction f(A1)=B10.
J'aimerai néanmoins avoir les valeurs de B10 quand A1 parcourt les valeurs {1;2;3;4} sans pour chaque fois taper la valeur dans A1 puis copier/coller la valeur de B10.
Savez-vous comment faire ?
Merci
j'ai un gros tableau excel avec de nombreuse formules.
Je prend un exemple,
quand dans la case A1 je mets 2, dans la case B10 j'obtiens 13
quand dans la case A1 je mets 3, dans la case B10 j'obtiens 49.
La relation entre A1 et B10 est compliqué, il doit y avoir une dizaine de relation entre ces 2 cases, donc je connais pas la fonction f(A1)=B10.
J'aimerai néanmoins avoir les valeurs de B10 quand A1 parcourt les valeurs {1;2;3;4} sans pour chaque fois taper la valeur dans A1 puis copier/coller la valeur de B10.
Savez-vous comment faire ?
Merci
A voir également:
- Récupérer valeur case dépendant paramètres
- Recuperer message whatsapp supprimé - Guide
- Parametres de mon ordinateur - Guide
- Paramètres dns - Guide
- Récupérer mon compte facebook désactivé - Guide
- Comment récupérer un compte facebook piraté - Guide
2 réponses
Bonjour
Peut être avec une macro du style :
Sub calcul()
deb = InputBox("Borne inférieure ?")
fin = InputBox("Borne Supérieure ?")
For n = deb To fin
Range("A1") = n
x = Range("B10").Value
mes = mes & n & " = " & x & Chr(10)
Next
MsgBox (mes)
End Sub
ou si tu préféres le résultat dans la cellule B2 au lieu de la fenêtre de résultat, tu remplaces MsgBox(mes) par : Range("B2") = mes
Cdlmnt
PS En résolvant mathématiquement le systeme d'équation pour A1 2 et B10 13 et A1 3 et B10 49 on obtient que B10= 36 * A1 - 59
"L'imagination est plus importante que le savoir." A. Einstein
Peut être avec une macro du style :
Sub calcul()
deb = InputBox("Borne inférieure ?")
fin = InputBox("Borne Supérieure ?")
For n = deb To fin
Range("A1") = n
x = Range("B10").Value
mes = mes & n & " = " & x & Chr(10)
Next
MsgBox (mes)
End Sub
ou si tu préféres le résultat dans la cellule B2 au lieu de la fenêtre de résultat, tu remplaces MsgBox(mes) par : Range("B2") = mes
Cdlmnt
PS En résolvant mathématiquement le systeme d'équation pour A1 2 et B10 13 et A1 3 et B10 49 on obtient que B10= 36 * A1 - 59
"L'imagination est plus importante que le savoir." A. Einstein