Renvoyer une info saisie dans InpuBox dans une cellule relative ?

[fabbeno]

Bonsoir,

je souhaiterais pourvoir inscrire une date dans une cellule à partir d'une message box.
la colonne est fixe (c'est la colonne M) mais c'est la ligne qui peut changer donc c'est à l'utilisateur de la choisir.
J'ai deja commencer la macro comme suit :
ex : ligne = 14 CR = 28/05/2007

MACRO
Dim ligne As Integer
Dim CR As Date
Message = "Saisir le numéro de la ligne"
Title = "CRendu"
ligne = InputBox(Message, Title, Default)
Message = "Saisir la date du Compte Rendu"
Title = "CRendu_date"
CR = InputBox(Message, Title, Default)

Mais je bloque car je n'arrive faire inscrire dans la cellule M14 la date 28/05/2007

Merci d'avance pour votre aide
Fabrice

 

[wilfried_42]

Re : Renvoyer une info saisie dans InpuBox dans une cellule relative ?

Bonjour FAbbeno

Inputbox renvoie toujours le l'apha

Dim ligne As Integer
Dim CR As Date
dim saisie as string
Message = "Saisir le numéro de la ligne"
Title = "CRendu"
saisie = InputBox(Message, Title, Default)
ligne = val(saisie)
Message = "Saisir la date du Compte Rendu"
Title = "CRendu_date"
saisie = InputBox(Message, Title, Default)
cr = cdate(saisie)

ou encore :

Dim ligne As Integer
Dim CR As Date
Message = "Saisir le numéro de la ligne"
Title = "CRendu"
ligne = val(InputBox(Message, Title, Default))
Message = "Saisir la date du Compte Rendu"
Title = "CRendu_date"
CR = cdate(InputBox(Message, Title, Default))

 

[fabbeno]

Re : Renvoyer une info saisie dans InpuBox dans une cellule relative ?

Merci Wilfried pour les précisions et corrections.

1) mais je n'arrive toujours pas à formuler pour que la cellule ait la coordonnées saisie dans inputbox (la colonne est fixe et c'est la ligne qui change)
dois je utiliser cell (M, ligne) ou autre chose.

2) Je suppose qu'après pour inscrire la date saisie dans inputbox il faudra taper activecell. value = CR ??

Merci

 

[wilfried_42]

Re : Renvoyer une info saisie dans InpuBox dans une cellule relative ?

re:

Cells Fonctionne à l'envers de Range
soit tu ecris
Range("M" & ligne) = cr
soit
Cells(ligne,13) = cr
13 etant la 13eme colonne soit la colonne M

 

[fabbeno]

Re : Renvoyer une info saisie dans InpuBox dans une cellule relative ?

Merci beaucoup, cela fonctionne.
Bonne soirée.