A voir également:
- Signification programme
- Programme demarrage windows 10 - Guide
- Signification :p - Forum Mail
- Signification smiley :3 ✓ - Forum Mail
- Que signifie cet emoji :3 ✓ - Forum Loisirs / Divertissements
- Tu es un amour signification ✓ - Forum Loisirs / Divertissements
4 réponses
Bonjour,
Pour Obj1 calcul peut-etre, mais Obj2 ca m'etonnerai
Le code fait une selection de cellule en fonction des valeurs de Obj1 et Mod1
Si Obj1=0 selection cellule Mod1 et apparemment ca s'affiche kake part puisque vous voyez le resultat
Avec votre fichier ce serait plus facile a vous expliquer
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Pour Obj1 calcul peut-etre, mais Obj2 ca m'etonnerai
Le code fait une selection de cellule en fonction des valeurs de Obj1 et Mod1
Si Obj1=0 selection cellule Mod1 et apparemment ca s'affiche kake part puisque vous voyez le resultat
Avec votre fichier ce serait plus facile a vous expliquer
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Bonsoir le fil, bonsoir le forum,
F à déjà tout dit. Je me permets juste le code sommairement commenté :
F à déjà tout dit. Je me permets juste le code sommairement commenté :
Sub CalEntr()
' Macro calcul d'entraxe PRZ
ActiveSheet.Unprotect 'déprotège l'onlget actif
'définit la variable obj1 (qui est une cellule ou une plage de cellules à l'intersection des plages nommées "DifLG" et "etage1"
Set obj1 = Application.Intersect(Range("DifLg"), Range("etage1"))
'définit la variable Mod1 (qui est une cellue ou une plage de cellules à l'intersection des plages nommées "Entraxe" et "etage1"
Set Mod1 = Application.Intersect(Range("Entraxe"), Range("etage1"))
'Calcul des valeurs nécessaires dans Mod1 pour atteindre un résultat spécifique (ici 0) dans Obj1,
obj1.GoalSeek _
Goal:=0, _
ChangingCell:=Mod1
'ici, ni obj2 ni Mod2 ont été définies. Soient elles le sont dans un autre code, soit il va y avoir un bug...
'Sinon même principe que pour obj1 et Mod1
obj2.GoalSeek _
Goal:=0, _
ChangingCell:=Mod2
ActiveSheet.Protect 'protège l'onglet
End Sub
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
cette macro utilise la technique "GoalSeek", décrite ici: https://www.commentcamarche.net/faq/8675-utiliser-valeur-cible-sous-excel
cette macro utilise la technique "GoalSeek", décrite ici: https://www.commentcamarche.net/faq/8675-utiliser-valeur-cible-sous-excel
Bonjour, merci beaucoup pour vos réponses, j'avoue que ce n'est peut-être pas trop clair pour tout le monde, donc à la demande de f, je vous transmet le lien du fichier excel en question (ne vous inquiétez pas aucune info figurant dans ce fichier est confidentielle). Lien : https://www.cjoint.com/c/LBokjGkRJdv
La ligne en question s'appelle "Entraxe des poulies (avec courroie)", pour générer le résultat qui figurera dans la case C35, il vous faut appuyer sur le bouton "calculer entraxe poulies (transmission à courroies)" juste à droite de la case. Voilà j'espère que ça vous aidera un peu plus.
Merci encore !
La ligne en question s'appelle "Entraxe des poulies (avec courroie)", pour générer le résultat qui figurera dans la case C35, il vous faut appuyer sur le bouton "calculer entraxe poulies (transmission à courroies)" juste à droite de la case. Voilà j'espère que ça vous aidera un peu plus.
Merci encore !
