Discussion :

[xoff60]

Bonjour à tous,

Avant d'avancer plus loin dans mon VBA, je souhaiterai savoir si il est possible d'envoyer des données d'un userform à plusieurs cellules en fonction de 3 critères.
Il s'agit d'un classeur de saisies des heures de production, nos opérateurs peuvent être amenés à travailler sur plusieurs postes dans la même journée.
Donc je souhaite mettre en place un userform de saisie afin d'y renseigner la date, le nom, les différents poste de travail avec les temps associés.

Je ne sais pas si cela est clair alors pour expliquer ma demande une photo explicative.

[Menhir]

Avant d'avancer plus loin dans mon VBA, je souhaiterai savoir si il est possible ...

Oui c'est possible.

[xoff60]

Merci pour ta réponse Menhir.
Existe quelques exemples sur le forum car je n'ai pas trouvé.
Cela m'évitera de partir de 0 et surtout de comprendre le fonctionnement de cette fonction VBA.

[unparia]

Bonjour
Comment résister à l'envie de partager la succulence de cette expression :

Cela m'évitera de partir de 0 et surtout de comprendre le fonctionnement de cette fonction VBA

A moins qu'elle ne traduise un fond de pensée ...

Elle mériterait en tout état de cause de figurer sur un autre forum, bien particulier, de ce site

[Menhir]

Existe quelques exemples sur le forum car je n'ai pas trouvé.
Cela m'évitera de partir de 0 et surtout de comprendre le fonctionnement de cette fonction VBA.

Il faut faire une boucle For To pour scruter l'ensemble des lignes.
Pour chaque ligne, faire un If pour vérifier si la date est conforme.
Si c'est le cas, faire un Select Case pour vérifier si la valeur dans la colonne F se site dans l'un des cinq cas de ton formulaire.
Si ça tombe dans un des cas, on met la valeur correspondante dans la colonne I.

[BENNASR]

bonsoir
voir cette discussion

https://www.developpez.net/forums/d1...feuille-excel/

ou celle la :

Code :

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

https://www.developpez.net/forums/d1487136/logiciels/microsoft-office/excel/copie-donnees-userform-vers-feuille-excel/

[Invité]

Bonsoir,
j'ai fait un teste avec de A2:A8 le N° de machine.

je stocke dans la première colonne de ma liste le N° de Ligne et dans la deuxième colonne la nom de la machine!

dans mon UserForm j'ai mis deux comboBox!

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
Private Sub ComboBox1_Change()If Me.ComboBox1.ListIndex > -1 Then MsgBox "Ligne: " & Me.ComboBox1.List(Me.ComboBox1.ListIndex, 0)
End Sub
 
 
Private Sub ComboBox2_Change()
If Me.ComboBox2.ListIndex > -1 Then MsgBox "Ligne: " & Me.ComboBox2.List(Me.ComboBox2.ListIndex, 0)
End Sub
 
 
 
 
Private Sub UserForm_Initialize()
With ThisWorkbook.Sheets("Feuil3").UsedRange
    ReDim T(.Rows.count, 1)
    For i = 2 To .Rows.count
       T(i - 2, 0) = i: T(i - 2, 1) = .Cells(i, "A")
    Next
End With
For i = 1 To 2
With Me.Controls("ComboBox" & i)
    .BoundColumn = 2
    .ColumnCount = 2
    .ColumnWidths = "0;10"
    .List = T
End With
Next
 
 
End Sub