Merci pour les réponses.

Je ne vois pas comment traduire c2 := d4 depuis une formule se situant dans a1.

Merci encore de votre aide !

Cordialement,

shp

Bonjour,

Je souhaite faire un mini-générateur de planning, c’est-à-dire lorsque je planifie une action a dans un créneau pour un formateur f sur le planning général P, si f est libre alors a est noté dans P et dans l’emploi du temps de f, sinon un message signalant que f est occupé et il faut que l’action saisie soit effacée.
C’est cette dernière instruction qui pose problème.
Voici le code que j’ai essayé :

Function FRecopie(Cel_edt, Cel_planning)
'Cel_edt : cellule de l'emploi du temps du formateur
'Cel_planning : cellule du planning général à générer


If Cel_edt = "" Then
'si le formateur est libre

Cel_edt = Cel_planning
'l'emploi du temps du formateur reçoit l'action prévue au planning général
Else

msg = MsgBox("F oqp !", vbCritical): Cel_planning = ""
'envoi d'une boîte de message puis effacement de l'action sur le planning général
End If

FRecopie = Cel_edt
End Function


3 anomalies :
- la MsgBox s’affiche 2 fois
- le contenu de Cel_planning ne s’efface pas
- la fonction retourne #VALEUR! dans la cellule où elle est appelée

Merci de m’indiquer les erreurs dans ce code.

Cordialement,

shp

Salut,

1.) Il serait souhaitable de déclarer le type des variables
dans la définition.

Function FRecopie (Cel_edt As Range, Cel_Planning As Range)

2.) Si dans la dernière instruction tu fais :

FRecopie = Cel_edt

La déclaration devrait être :

Function FRecopie (Cel_edt As Range, Cel_Planning As Range) As Range

et l'instruction :

Set FRecopie = Cel_edt

Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Un range.

Merci !

@+

Re:

ici aussi ça coince :

If Cel_edt = "" Then
Cel_edt = Cel_planning
Else
msg = MsgBox("F oqp !", vbCritical): Cel_planning = ""
End If

devrait se lire comme suit :

If Cel_edt.Value = "" Then
Set Cel_edt = Cel_planning
Else
msg = MsgBox("F oqp !", vbCritical): Cel_planning.Value = ""
End If

Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Re:

assez bizarre, il y a anguille à cause de la [Function] que je ne
comprends pas, je jetterai peut-etre un oeil dans mon bouquin ce soir !

désolé pour le reste :-(

Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~