Discussion :

[plizzreboot]

Bonjour tout le monde,
petit nouveau sur le forum et en VBA excel aussi
donc ma question: est il possible de remplir un tableau similaire a mon tableau "donnees" mais sur des feuilles différentes, suivant le choix fait dans la comobobox,
tout en renseignant de manière commune le tableau existant?

Dans le détail, j'ai un userform, ou je saisi mon activité, nous sommes plusieurs a l'utiliser, et je souhaiterai avoir un tableau de données principal (qui est repris dans un TCD) et des tableaux individuels, qui se rempliront donc suivant le choix "intervenant" de la combobox.

la macro marche bien sans cette option, me concernant, ça ne me gène pas d'avoir mes temps mélangés avec ceux des collègues, mais d'autre veulent voir leur feuille remplie individuellement.

Ci joint le fichier dans l'etat actuel

On pourrait presque (et la vous me direz que je fantasme peut être un peu trop ^^ ) n'afficher que la feuille de l’intervenant concerné lors de la saisie.
mais la, ce serait du grand luxe, et je pense que cela rendrait la macro autrement plus complexe.


Merci d'avance

SUIVI ACTIVITE avec macro - B.xlsm

[plizzreboot]

Re bonjour,
pour faire avancer mon schmilblick (et parceque j'ai lu sur un autre post que c'etait preferable )
j'ai copié collé le code de mon fichier.

et ce que je souhaiterai obtenir, c'est que suivant le choix du combobox 2, la macro incrémente a la fois le tableau principal (comme actuellement) mais en plus, vienne remplir la feuille de l'intervenant concerné proprement, c'est a dire en ne laissant pas de ligne vide.

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
39
40
41
42
43
44
45
Private Sub ComboBox1_Change()
 
End Sub
 
Private Sub ComboBox5_Change()
ComboBox5.Value = Format(ComboBox5.Value, "dd/mm/yy")
End Sub
 
Private Sub ComboBox4_Change()
 
End Sub
 
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub
 
Private Sub CommandButton2_Click()
'Recuperation de la derniere ligne et inscription des données
Dim intLine As Integer
 intLine = Range("a65000").End(xlUp).Row + 1
 
  Cells(intLine, 1).Value = DTPicker1.Value
  Cells(intLine, 2).Value = ComboBox4.Value
  Cells(intLine, 3).Value = ComboBox1.Value
  Cells(intLine, 4).Value = ComboBox2.Value
  Cells(intLine, 5).Value = ComboBox3.Value
  Cells(intLine, 6).Value = TextBox1.Value
 
End Sub
 
Private Sub TextBox2_Change()
 
End Sub
 
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
 
End Sub
 
Private Sub Label5_Click()
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub

[a_diard]

Bonjour

il te suffit dans la macro

Private Sub CommandButton2_Click()

de rajouter le code pour renseigner la feuille de l'intervenant concerné

le nom de l'intervenant étant la clef pour sélectionner sa feuille.

sur la base du code déjà réalisé ceci me semble sans difficultés....

par exemple

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
Private Sub CommandButton2_Click()
'Recuperation de la derniere ligne et inscription des données
Dim intLine As Integer
 intLine = Range("a65000").End(xlUp).Row + 1
 
  Cells(intLine, 1).Value = DTPicker1.Value
  Cells(intLine, 2).Value = ComboBox4.Value
  Cells(intLine, 3).Value = ComboBox1.Value
  Cells(intLine, 4).Value = ComboBox2.Value
  Cells(intLine, 5).Value = ComboBox3.Value
  Cells(intLine, 6).Value = TextBox1.Value
  intLine = Sheets("DONNEES " & ComboBox2.Value).Range("a65000").End(xlUp).Row + 1
   With Sheets("DONNEES " & ComboBox2.Value)
  .Cells(intLine, 1).Value = DTPicker1.Value
  .Cells(intLine, 2).Value = ComboBox4.Value
  .Cells(intLine, 3).Value = ComboBox1.Value
  .Cells(intLine, 4).Value = ComboBox2.Value
  .Cells(intLine, 5).Value = ComboBox3.Value
  .Cells(intLine, 6).Value = TextBox1.Value
  End With
 
End Sub

ceci restant à optimiser.....

[plizzreboot]

Bonjour a_diard,
Merci beaucoup, c'est exactement le résultat que je cherchais



et je mets le sujet en