Discussion :

[zving2]

Salut tout le monde
J’ai un problème que j’espère trouver la solution dans ce forum.
Alors il s’agit de :
Après sélection(s) dans la ListeBox « Sélection_dépenses », en fait une copier de la Date inscrite sur « TextBox_Date » de mon UserForm dans la Feuil1 colonne « F » ou « G » ou « H » ou « J » ou « K » selon les cas
Merci d’avance à vous

[Jean-Philippe André]

Bonjour,

pour des raisons de sécurité, pratiquement aucun membre ne pourra ouvrir ton fichier xlsm, aussi je t'invite à nous copier ton code directement entre balises CODE.

[zving2]

voila j'ai un UserForm qui contiens une List Box nommé (Sélection_dépenses) un Text Box Nommé (TextBox_Date) et deux Botton (Liste) et (Valider).
ma List Box est alimenté par la Feuil1 colonne A (ID), B (Nom & Prénom), C (Structure) :
le code marche très bien:

Code :

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

1
2
3
4
5
6
Private Sub Liste_dépenses_Click()
Sélection_dépenses.ColumnHeads = True
With Sheets("Feuil1").Range("A2")
Sélection_dépenses.RowSource = Range(.Cells, .End(xlDown)(1, 3)).Address(External:=True)
End With
End Sub

après avoir alimenté ma List Box je vais faire une multiple sélection des mes agent selon les cas puis j'inscris une date sur mon Text Box.
jusque la çava.

il me manque le code du Botton (Valider) qui vas selon la sélection dans List Box copier la date de (TextBox_Date) dans la Feuil1 sur les liges correspondante (ID) et colonne « F » ou « G » ou « H » ou « J » ou « K » selon que la cellule est vide.