VBA, argumenter une cellule avec nombre et faire calcul dans une autre

Résolu/Fermé
guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 - 21 févr. 2019 à 09:50
guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 - 23 févr. 2019 à 08:51
Bonjour à tous,

je recherche un moyen pour faire des calcul sur 2 cellules différentes sans formules dans celle-ci, si je les argumente avec un nombre.petit fichier .
exemple : si dans B10 se mets 100 en D10 j'obtiens 2 ou vise versa si je mets 2 en D10 j'obtiens 100 dans b10 .je pense passer par target mais la je cale .

https://www.cjoint.com/c/IBviYsTNzRd


merci à vous

2 réponses

ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
21 févr. 2019 à 14:29
Bonjour

Essaies ceci
https://www.cjoint.com/c/IBvnC3bcj4B

Cdlmnt
0
guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 2
22 févr. 2019 à 08:24
Bonjour,
merci cela fonctionne , mais je m'aperçois que c plus complexe que ça, je pensais retravailler déçus mais la je cale.je vous envois le fichier total que j'ai 4 feuilles différentes avec le même objectif si vous pouviez m'aider
je vous en remercie par avance.

merci à vous
https://www.cjoint.com/c/IBwhx2p8O8d

bien à vous
0
ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
22 févr. 2019 à 15:07
Voilà

https://www.cjoint.com/c/IBwofAkQCXB
Si le nombre vides/coeff n'est pas entier, j'ai arrondi au nombre de palette supérieur. Si ça ne te convient pas, tu inhibes cette ligne en mettant un apostrophe devant '
If Target.Value Mod coeff <> 0 Then pal = pal + 1

Cdlmnt
0
guismo33 Messages postés 351 Date d'inscription samedi 7 décembre 2013 Statut Membre Dernière intervention 21 mars 2021 2
23 févr. 2019 à 08:51
Bonjour Ccm81,

je te remercie pour ce travail, tout fonctionne correctement .


bien à vous
0