Bonsoir
voici une macro qui devrais me servir pour savoir a quel date sont arriver
les recommande envoyer mon soucis est le suivant
dans la ligne:"If c.Value = g Then c.Offset(0, 2).Value = Format(Date$, "DD/MM/YYYY") "

je doit avoir une erreur mais je ne sait pas comment faire pour que je puisse
indiquer la date en effet avec cette formule la date est obligatoirement la date du jour

voici ma macro:
Private Sub CommandButton5_Click()
Dim g
g = InputBox("Entrer le N° de RECOMMANDER EN ENTIER")
If g = "" Then Exit Sub
For Each c In Range("D3:D65000")
If c.Value = g Then c.Offset(0, 2).Value = Format(Date$, "DD/MM/YYYY")
Next c
Unload UserForm2
End Sub

merci de toutes vos aides

Bonsoir,

Peux-tu essayer

If c.Value = g Then c.Offset(0, 2).Formula = Format(Date(), "DD/MM/YYYY")
ou bien Format(Date, "DD/MM/YYYY")

A+

Christophe


"stephane le nouveau" <pasdespam> a écrit dans le message de news:pdp1
Bonsoir
voici une macro qui devrais me servir pour savoir a quel date sont arriver
les recommande envoyer mon soucis est le suivant
dans la ligne:"If c.Value = g Then c.Offset(0, 2).Value = Format(Date$, "DD/MM/YYYY") "

je doit avoir une erreur mais je ne sait pas comment faire pour que je puisse
indiquer la date en effet avec cette formule la date est obligatoirement la date du jour

voici ma macro:
Private Sub CommandButton5_Click()
Dim g
g = InputBox("Entrer le N° de RECOMMANDER EN ENTIER")
If g = "" Then Exit Sub
For Each c In Range("D3:D65000")
If c.Value = g Then c.Offset(0, 2).Value = Format(Date$, "DD/MM/YYYY")
Next c
Unload UserForm2
End Sub

merci de toutes vos aides

bonjour Stephane,

si tu exécute la macro au pas à pas :
est ce que la valeur de l'inputbox est trouver dans la plage ?

tu pourrais faire un test en réduisant la plage ou en ajoutant un point d'arrêt
à la ligne Unload UserForm2, ceci te permetterais de vérifier les valeurs des
variable c et g

ou bien, modifie la macro pour vérifier ce test.

Private Sub CommandButton5_Click()
Dim g, c, x
g = InputBox("Entrer le N° de RECOMMANDER EN ENTIER")
If g = "" Then Exit Sub
For Each c In Range("D3:D65000")
If c.Value = g Then
MsgBox "valeur trouver en cellule " & c.Address
c.Offset(0, 2).Value = Format(Date$, "DD/MM/YYYY")
x = 1
Exit For
End If
Next c
If x = 0 Then MsgBox "aucune valeur trouvée)"
Unload UserForm2
End Sub

isabelle
[..]

à tout hasard modifie cette ligne
c.Offset(0, 2).Value = Format(Date$, "DD/MM/YYYY")
par
range(c.address).Offset(0, 2).Value = Format(Date, "DD/MM/YYYY")

isabelle

isabelle a écrit :
[..]

merci isabelle pour ton aide

en fait dans mon input box je recheche une valeur sur la colonne D et je
voudrais que lorsque la valeur est trouver il ouvre un autre fenetre dans
lasquelle je pourrais entrer la date de mon choix.

"isabelle" <as.isabellevIE> a écrit dans le message de
news:6f8c
> bonjour Stephane,
>
> si tu exécute la macro au pas à pas :
> est ce que la valeur de l'inputbox est trouver dans la plage ?
>
> tu pourrais faire un test en réduisant la plage ou en ajoutant un point
d'arrêt
> à la ligne Unload UserForm2, ceci te permetterais de vérifier les valeurs
des
[..]
> Exit For
> End If
> Next c
> If x = 0 Then MsgBox "aucune valeur trouvée)"
> Unload UserForm2
> End Sub
>
> isabelle
>arriver
> > les recommande envoyer mon soucis est le suivant
> > dans la ligne:"If c.Value = g Then c.Offset(0, 2).Value = Format(Date$,
"DD/MM/YYYY") "
> >
> > je doit avoir une erreur mais je ne sait pas comment faire pour que je
puisse
> > indiquer la date en effet avec cette formule la date est obligatoirement
la date du jour
[..]

il faut remplacer Date
par
inputbox("Entrer la date")

c.Offset(0, 2).Value = Format(inputbox("Entrer la date"), "DD/MM/YYYY")

à moins que tu veuille un userform avec controle calendrier ?

isabelle

stephane le nouveau a écrit :
[..]

je n'y avais pas penser peut etre que c'est parce que je ne c'est pas faire.
mais c'est pas bête

merci encore

"isabelle" <as.isabellevIE> a écrit dans le message de
news:3209
[..]