Discussion :

[bosk1000]

bonjour

voila, j'ai un code ci dessous qui a partir des donné rempli sur un formulaire, sont "sensé" se mettre sur une feuille excel

la première ligne fonctionne, mais la deuxiemme, ne remplie que la premiere celule de la ligne et ne termine pas

idem pour la suite, en bref les information concernant le motif, la date et la durée ne se remplisse que la première fois, après ça ne fonctionne plus



code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub BTNVALIDER_Click()
 
Range("a65536").End(xlUp).Select
 
'ecrire l'elu
ActiveCell.Offset(1, 0).Select 'decent d'une ligne
ActiveCell.Value = (elusbox.Value) 'pour copier le nom du la boite de dialogue elubox
 
'ecrire le motif
ActiveCell.Offset(0, 1).Select 'decale d'une colone
ActiveCell.Value = (motifbox.Value) 'pour copier le motif de la boite de dialogue motifbox
 
'ecrire la date
ActiveCell.Offset(0, 1).Select 'decale d'une colone
ActiveCell.Value = CDate(datebox.Value)
 
'ecrire l'heure
ActiveCell.Offset(0, 1).Select 'decale d'une colone
ActiveCell.Value = CDate(duréebox.Value)
Selection.NumberFormat = "h:mm;@"
 
Unload inserheure 'ferme le formulaire
End Sub
 
 
 
Private Sub UserForm_Initialize()
'pour appliquer la liste de choix des élus
elusbox.RowSource = "source!a3:a" & Range("source!a65536").End(xlUp).Row
' pour appliquer la liste de choix de motif
motifbox.RowSource = "source!b3:b" & Range("source!b65536").End(xlUp).Row
 
End Sub
 
Private Sub BTNANNULER_Click()
'pour annuler le formulaire
Unload inserheure
End Sub

[cb_60]

Bonjour
Pas tester, mais cela devrais fonctionner??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
ActiveCell.Offset(1, 0).Value = (elusbox.Value)
ActiveCell.Offset(0, 1).Value = (motifbox.Value) 
ActiveCell.Offset(0, 2).Value = CDate(datebox.Value)
ActiveCell.Offset(0, 3).Value = CDate(duréebox.Value)
ActiveCell.Offset(0, 3).NumberFormat = "h:mm;@"

[bosk1000]

rectificatif

cette macro a bien voulu fonctionner au test cette après-midi

je ne sais pas pourquoi avant non, et après oui

les joies de l'informatique....

par contre si quelqu'un sait comment forcé l'ecriture d'une combobox pour obliger la personne a saisir une date ou une heure, je suis preneur