Discussion :

[varik]

Bonjour tout le monde !!

je vais essayer de m’exprimer très clairement car le sujet est un peu compliqué .
je dispose de deux types de classeur excel :
le premier type X me sert à calculer le prix pour chaque produit en fonction de la quantité.
le deuxième type Y me sert à éditer directement le prix avec les charges et tout le reste . le soucis est que je dois ouvrir le bon fichier X afin d'avoir le montant exact en fonction de la quantité et le réintroduire dans le le classeur y .

ma question est de savoir si c'est possible d’exécuter directement dans le classeur y une macro qui avec un simple clic sur le lien href du classeur y me demande de saisir la quantité et me renvoie le prix dans le champ cible du classeur Y .


merci de me renseigner ou donner des exemples

[varik]

Bonsoir

je vous écris car j'ai besoin de votre aide , j'aurais besoin d'une fonction qui prend une valeur x en entrée et qui retourne le résultat après le calcul dans un classeur fermé correspondant .

je désire utiliser la valeur calculé dans un autre classeur à partir duquel je pense lancer la macro qui demande d'entrer la valeur X .

merci pour votre collaboration

[AlainTech]

Pour la deuxième fois: prière de ne pas ouvrir plusieurs discussions sur le même sujet.

Si tu veux obtenir de l'aide, il faudra faire un minimum d'efforts et ne pas attendre une solution toute faite.
Montre-nous ce que tu as déjà fait.
Quelles recherches as-tu fait?
Quels codes as-tu essayé?
Sur quoi butes-tu?

[AlainTech]

Pour la deuxième fois: prière de ne pas ouvrir plusieurs discussions sur le même sujet.

[varik]

Bonjour tout le monde!!
j'essaie de faire une macro qui lancé à partir d'un classeur x, me demande de saisir en entrée un entier qui doit être calculé dans le case corréspondante du classeur ciblé.


la valeur saisie doit être comparé à un coefficient , ensuite on insère la valeur dans une cellule pour être calculé . enfin on récupère le résultat dans une autre cellule (c'est la partie ou j'arrive pas à décrire avec les IF THEN)

j'essaie d'en savoir plus sur la syntaxe à utiliser . merci de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Test()
Dim objWorkbookSource As Workbook, objWorkbookCible As Workbook
 
Set objWorkbookSource = Workbooks.Open(Application.GetOpenFilename) 'linksupdate:=False
Set objWorkbookCible = Workbooks.Add()
 
 
msg = "Veuillez saisir votre distance"
lgr = InputBox(msg, tittle, Default)
If [(lgr / 1000) <= Cells(23, 41)] Then [Worksheet.Cells(24, 41) = lgr;returnWorksheet.Cells(25, 41) ]
ElseIf [Worksheet.Cells(23, 42) >= (lgr / 1000) > Worksheet.Cells(23, 41);Worksheet.Cells(24, 42)] Then [WorksheetSheet.Cells(24, 42) = lgr]
ElseIf [(lgr / 1000) >= Cells(23, 43)] Then [Worksheet.Cells(24, 43) = lgr;Worksheet.Cells(24, 43)]
End If
 
Set objWorkbookCible = Workbooks.Add()
 
 
Traitement_Error:
Apllication.DisplayAlerts = True
Set objWorkbookSource = Nothing
Set objWorkbookCible = Nothing
End Sub