Zon, le Forum
Merci de ta réponse, je viens de créer mon UserForm.
J'arrive bien a récupérer les données nécessaires a la visualisation de l'état du dossier (J'ai rempli manuellement les données dans la feuille de calcul, pour les test), mais quand je veux valider cela ne me met pas les changements dans la bonne lignes.
Je te joint le code de mon userForm si cela peu te donner une idée de la méthode utilisé.
Option Explicit
Private Sub cmdModif_Click()
FrameEtat.Visible = True
Label6.Visible = False
TextBoxEtat.Visible = False
ComboBoxMatricule.Visible = True
TextBoxEtat = ""
TextBoxPrenomNomOperateur = ""
txtDateDuMouvement = Format(Now, "DD/MM/YYYY")
End Sub
Private Sub cmdValider_Click() 'Mon problème vient de là
Range("A65500", Range("A7").End(xlDown)).Offset(1, 0).Select
ActiveCell.Offset(0, 15).Value = "'" & USF_EntreesSortiesDossiers.ComboBoxMatricule.Value
ActiveCell.Offset(0, 16).Value = "" & USF_EntreesSortiesDossiers.TextBoxPrenomNomOperateur.Value
ActiveCell.Offset(0, 17).Value = "'" & USF_EntreesSortiesDossiers.txtDateDuMouvement.Value
End Sub
Private Sub BoutSortir_Click()
Unload Me
End Sub
Private Sub ComboBoxMatricule_Change()
Dim H As Integer
H = ComboBoxMatricule.ListIndex + 6
TextBoxPrenomNomOperateur = Sheets("Tool_Intervenants").Range("C" & H)
End Sub
Private Sub UserForm_Initialize()
SupprimerFermeture Me 'Supprime la croix de fermeture
ComboBoxMatricule.Visible = False
ComboBoxMatricule.RowSource = "Tool_Intervenants!B6:B25" 'Récupération des N°Matricule
FrameEtat.Visible = False
With ActiveCell 'Recupértion des données dans la feuille Tool_Dossiers
.EntireRow.Select
TextBoxEtat = .Offset(0, 14)
txtDateDuMouvement = .Offset(0, 17)
TextBoxMatricule = .Offset(0, 15)
TextBoxPrenomNomOperateur = .Offset(0, 16)
End With
' Sert a modifier le nom du bouton cmdModif
If TextBoxEtat = "Entrée" Then cmdModif.Caption = "Sortire le dossier" Else
If TextBoxEtat = "Sortie" Then cmdModif.Caption = "Ranger le dossier"
End Sub
Donc je passe par un TextBox pour la recherche par morceau de référence, qui me donne une liste des référence au fur et a mesure de la saisie dans ce TextBox.
Une fois cette recherche effectuée par double clique sur la référence voulue dans la ListBox, cela m'ouvre un UserForm "USF_Resultat" dans lequel il y a un bouton qui m'ouvre le UserForm "USF_EntreesSortiesDossiers" pour cette gestion de dossier.
J'espère être plus claire, merci par avance pour ton aide, G'Claire