jeanyves.gascon
XLDnaute Nouveau
Bonjour
Voilà mon petit soucis :
Lors de la validation d'un formulaire, je renseigne les cellules de la
ligne (feuille B) depuis laquelle j'appelle le formulaire par un
double click.
Les sources de données se situent dans une autre feuille (A).
Je souhaiterai qu'après la validation, toute les valeurs sélectionnées
via une listBox soient effacées sur feuille A, soit la ligne entière,
et qu'ensuite cette feuille soit triée selon les valeurs dans la
première colonne.
Voici comment les choses commencent :
Puis, le formulaire s'ouvre
Je choisis une ligne :
Voilà tout est dit
Merci de vos éclairages et vos commentaires
Bon week-end à toutes et tous
JeanYves
Voilà mon petit soucis :
Lors de la validation d'un formulaire, je renseigne les cellules de la
ligne (feuille B) depuis laquelle j'appelle le formulaire par un
double click.
Les sources de données se situent dans une autre feuille (A).
Je souhaiterai qu'après la validation, toute les valeurs sélectionnées
via une listBox soient effacées sur feuille A, soit la ligne entière,
et qu'ensuite cette feuille soit triée selon les valeurs dans la
première colonne.
Voici comment les choses commencent :
Code:
' depuis la feuille "RIF", procédure d'appel du formulaire F_RIF_1
Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel
As Boolean)
If Target.column = 7 then
F_RdV_1.Show
End if
Cancel = True
End Sub
Puis, le formulaire s'ouvre
Code:
' Initialisation du formulaire
Private Sub UserForm_Initialize()
' Alimenter la ListBox (LB_Nom_P)
With LB_Nom_P
.ColumnCount = 10 'dix valeurs sont nécessaires
.ColumnWidths = "100;100;100" ' seules 3 dont visibles
.ColumnHeads = True ' étiquettes des colonnes
.RowSource = "Transit_RdV_RIF!A2:L1OO" ' données sources
.MultiSelect = fmMultiSelectSingle
End With
Me.Label_UserName = Environ("UserName")
Me.Label_Now = Format (Now, "DD/MM/YYYY HH:MM")
End Sud
Je choisis une ligne :
Code:
' Les dix valeurs selectionnées alimentent la Feuil "RIF!" depuis la
cellule.Offset (colonne 7)
Private Sub CommandButton_Click ()
ActiveCell = TB_Nom_RIF.Value
ActiveCell.Offset(,1) = TB_Prenom_RIF.Value
ActiveCell.Offset(,2) = TB_Tel_RIF.Value
ActiveCell.Offset(,4) = LB_Nom_p.List (,3)
ActiveCell.Offset(,5) = LB_Nom_p.List (,4)
ActiveCell.Offset(,6) = LB_Nom_p.List (,5)
ActiveCell.Offset(,7) = LB_Nom_p.List (,6)
ActiveCell.Offset(,8) = LB_Nom_p.List (,7)
ActiveCell.Offset(,9) = LB_Nom_p.List (,8)
ActiveCell.Offset(,10) = LB_Nom_p.List (,9)
ActiveCell.Offset(,11) = LB_Nom_p.List (,10)
ActiveCell.Offset(,12) = LB_Nom_p.List (,11)
ActiveCell.Offset(,13) = Me.Label_UserName
ActiveCell.Offset(,14) = Me.Label_Now
' lignes de code qui devront effacer les données sélectionnées
' sur la ligne de la RowSource dans la Feuille "Transit_RdV_RIF!"
' lignes de codes pour trier la Feuille "Transit_RdV_RIF!"
' A2: O100
UnLoad F_RIF_1
End Sub
Voilà tout est dit
Merci de vos éclairages et vos commentaires
Bon week-end à toutes et tous
JeanYves