[EXCEL] Affecte valeur d'une cellule Fermé

Question

Bonjour,Y a-t-il une fonction Excel qui permette d’affecter la valeur d’une cellule à une autre cellule ?Par exemple, je désire que faire c2 := d4, et ce en appliquant la formule =f(c2;d4) dans a1.Merci de votre aide !Cordialement,shp

random · Answer

indirect(adresse())

shp · Answer

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

shp · Answer

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

Utilisateur anonyme · Answer

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

shp · Answer

un range.Merci !@+

Utilisateur anonyme · Answer

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

Utilisateur anonyme · Answer

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

[EXCEL] Affecte valeur d'une cellule

7 réponses

Discussions similaires