Pages

Affichage des articles dont le libellé est Apps. Afficher tous les articles
Affichage des articles dont le libellé est Apps. Afficher tous les articles

Excel Web Apps formulaire vba sujet

mardi 8 avril 2014




Bonjour,

j'ai conçu un formulaire sous excel mais il y a des codes que je trouve pas ou que je n'arrive pas à adapter à mon projet.

J'ai inséré 3 DTpicker et je voudrais que les infos s'enregistre dans certaines colonnes de mon tableau excel :
DTPicker1 qui doit s'enregistrer dans la colonne B
DTPicker2 qui doit s'enregistrer dans la colonne F
DTPicker3 qui doit s'enregistrer dans la colonne I
je n'arrive pas à trouver de réponse concernant le code que je dois écrire... :(

Deuxièmement, j'ai inséré un bouton modifier et un scrollbar afin de pouvoir rechercher les données à modifier.
Comment puis je rechercher la fiche enregistrée pour la modifier ?


Troisièmement, une fois le formulaire réalisé, comment je peux y avoir accès à partir d'excel ?
j'ai trouvé quelques éléments de réponse mais je ne comprend pas trop comment cela fonctionne.

Beaucoup de questions..
Merci d'avance !













Fichiers attachés








Excel Web Apps Erreur de compilation sujet




Bonjour,

je travaille sur la conception d'un formulaire pour gérer des aides et je rencontre plusieurs problèmes..
Je souhaite rentrer des données dans un textbox sous forme de date qui sera enregistrée dans le tableau excel. Cependant je ne trouve pas le bon code. J'ai essayé avec celui ci mais quand je clique sur F5 le message qui apparait est : erreur de compilation affiche 'instruction incorrecte à l'intérieur d'une procédure'.
Pourriez vous me donner des conseils ?
If TextBox2.Value = "Format date" Then MsgBox ("Ecrire la date au format jj/mm/aaaa")
If saisie.date_ev.Value <> "" Then
If Not IsDate(saisie.date_ev.Value) Then
MsgBox "Date incorrecte.", vbCritical + vbOKOnly, "Erreur"
saisie.date_ev.Value = ""
saisie.date_ev.SetFocus
saisie.Hide
saisie.Show
Else
saisie.date_ev.Value = ActiveCell.NumberFormat = "mm/dd/yyyy" 'date/mois inversé
Exit Sub
End If

Merci d'avance !