OVH Cloud OVH Cloud

données formulaire

1 réponse
Avatar
Jerome SABATHIE
bonjour,
j'ai un formulaire dans lequel je rentre des données qui quand je clic sur
ok se mette dans le feuille (nommée données). j'ai un début de code ou
chaque donnée se mette dans une cellule cité mais je voudrais pouvoir (a
chaque fois que je rentre d'autre données) que celle ci se place a la ligne
(ou cellules qui se trouve en dessous). mon code est :
Private Sub CmdValider_Click()

Sheets("données").Select
Range("d5") = Format(Textdate.Value, "mm/dd/yyyy")
Range("f5") = Textnom.Value
Range("g5") = Texttemps.Value
Range("f5") = Textmotif.Value

j'ai essayé d'y ajouter se bout de code:
if activesheet("données").[g5]="" then
activesheet("données").[g5].select
else
activesheet("données").range("g4").end(xldown).offset(1,0).select
end if

et la il me met propriété ou méthode non géré par cet objet " erreur 438"
Pourquoi? comment faire?
merci

1 réponse

Avatar
Daniel
Bonjour.
C'est "activesheet("données")" qui ne lui plait pas. Soit tu mets
Activesheet soit tu mets sheets("données")
Cordialement.
Daniel
"Jerome SABATHIE" a écrit dans le message de news:
44488d19$0$19687$
bonjour,
j'ai un formulaire dans lequel je rentre des données qui quand je clic sur
ok se mette dans le feuille (nommée données). j'ai un début de code ou
chaque donnée se mette dans une cellule cité mais je voudrais pouvoir (a
chaque fois que je rentre d'autre données) que celle ci se place a la
ligne (ou cellules qui se trouve en dessous). mon code est :
Private Sub CmdValider_Click()

Sheets("données").Select
Range("d5") = Format(Textdate.Value, "mm/dd/yyyy")
Range("f5") = Textnom.Value
Range("g5") = Texttemps.Value
Range("f5") = Textmotif.Value

j'ai essayé d'y ajouter se bout de code:
if activesheet("données").[g5]="" then
activesheet("données").[g5].select
else
activesheet("données").range("g4").end(xldown).offset(1,0).select
end if

et la il me met propriété ou méthode non géré par cet objet " erreur 438"
Pourquoi? comment faire?
merci