Discussion :

[SI-SHARE]

Bonjour,
ayant fais beaucoup de recherches je n'ai toujours pas trouvé a solution , je crois que c'est juste une question de syntaxe, mon problème est simple:
j'ai deux colonnes de type date :
A1,A2,A3.....
B1,B2,B3...

Dans mon code VBA j'ai une fonction "datefin" qui à deux paramètres en entrés :datefin(A1,B1) ,date fin (A2,B2)......
Cette fonction retourne une date.
Ce que je voudrais !
Appelez cette fonction depuis une macro qui se lance à l'ouverture du fichier :
comment passez les paramètres de cellules dans cette foncton
commennt affichez le résultat dans une msgbox en date .
Je vous remercie

[Philippe Tulliez]

Bonjour,
Un excellent tutoriel à lire Les fonctions personnelles dans Excel
Exemple 1 - Un fonction calculant l' hypoténuse

Code :

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

1
2
3
Function Hypotenuse(Cote1 As Double, Cote2 As Double) As Double
 Hypotenuse = Sqr(Cote1 ^ 2 + Cote2 ^ 2)
End Function

Exemple 2 - Une fonction qui renvoie la date la plus grande entre les deux dates passées en argument.

Code :

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

1
2
3
Function DateFin(Date1 As Date, Date2 As Date) As Date
 DateFin = Application.WorksheetFunction.Max(Date1, Date2)
End Function

[SI-SHARE]

Bonjour philipe,
Merci pour ta réponse je m'y penche sur le tuto ,je suis novice en VBA
Voici ma macro :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Auto_Open()
If MsgBox("Bienvenue vous allez déclarer un incident ", vbYesNo, "Demande de confirmation") = vbYes Then
    Dim datte As Date
    datte = DateFin(deb, duree)
    MsgBox ("la date de fin est :" & datte)
 
     End If
End Sub

IL y'a une erreur d'incompatibilité de type ;il y'a une erreur de syntaxe :
La fonction que j'appelle prends en paramètres les céllules (A1,B1); (A2,B2); (A3,B3) ce sont des types dates et la fonction retourne une date que je veux afficher dans une msgbox
comment passer les valeurs des cellules dans les paramètres de la fonction appeller??
Mercii beaucoup je bloque depuis deux jours

[SfJ5Rpw8]

bonjour,

montre nous la ligne de déclaration de ta fonction "DateFin"


d'où viennent (déclaration ?) tes variables "deb" et "duree" ?

[SI-SHARE]

Voici la déclaration de la fonction elle retourne une date que je veux afficher dans une msgbox mais pour cela il faut aussi passer les valeur des cellulles DateFin(A1,B1) :

Code :

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

Function DateFin(deb As Date, duree As Date) As Date

Je vous remercie

[Invité]

bon alors passe lui!!

Code :

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

1
2
3
4
Private Sub Auto_Open()
If MsgBox("Bienvenue vous allez déclarer un incident ", vbYesNo, "Demande de confirmation") = vbYes Then
    MsgBox ("la date de fin est :" & DateFin([A1], [B1]))
End If

[Invité]

Bonjour,
les valeurs deb, duree sont initialisé où car l’éventement Auto_Open() je connais pas.
test ta fonction seule dans un premier temps qui devrait fonctionner:

Code :

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

1
2
3
4
5
6
Sub Test()
 MsgBox ("la date de fin est :" & DateFin("12/12/2013", "13/12/2012"))
End Sub
Function DateFin(Date1 As Date, Date2 As Date) As Date
 DateFin = Application.WorksheetFunction.Max(Date1, Date2)
End Function