Ecriture résultat fonction sur cellule automatiquement
--------------------------------------------------------------------------------
Bonjour,
j'ai une macro qui apelle une fonction qui retourne une date comme résultat.
voici le code :
#
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Private Sub Workbook_Open() Select Case MsgBox("Pour calculer les délais d'intervention suivant les différentes sévérités pour l'instant cliquez sur Oui " & Chr(10) & "Pour calculer les délais d'intervention suivant les différentes sévérités en saisissant manuellement la date cliquez sur non", vbYesNo, "Demande de confirmation") Case vbYes MsgBox ("la date de fin de délai pour une sévérité A est :" & DateFin([A2], [B2]) & Chr(10) & "la date de fin de délai pour une sévérité B est :" & DateFin([A3], [B3]) & Chr(10) & "la date de fin de délai pour une sévérité C est :" & DateFin([A4], [B4]) & Chr(10) & "la date de fin de délai pour une sévérité D est :" & DateFin([A5], [B5])) Case vbNo Dim Var As String Var = "Appuyer sur OK pour saisir la date manuellement dans les cases correspondantes puis enregistrer le fichier avant de fermer" MsgBox Var End Select End Sub
La ou je bloque :
Ma fonction est toujours appelé suivant deux paramètres des dates de début qui sont dans la colonne A et comme deuxième paramètre une duréé qui est fixe pour etre plus claire :
le deuxième paramètre est soit b2,b3,b4,b5
mon classeur excel doit avoir des résultats de la sorte :
date début
a2=27/07/2013 datefin(a2,b2) datefin(a2,b3) datefin(a2,b4) datefin(a2,b5)
a3=14/05/2010 datefin(a3,b2) datefin(a3,b3) datefin(a3,b4) datefin(a3,b5)
a4=15/05/2013 datefin(a4,b2) datefin(a4,b3) datefin(a4,b4) datefin(a4,b5)
Eérait-il possible possible de lancer les appels de ma fonction depuis ma macro pour qu'il traite automatiquement avec les paramètres fixes
Je vous remercie
bien cordialement
Partager