Changement de nom et d'action suivant l'état d'une cellule

[G'Claire]

Salut le forum,

J'espère que ce début de fêtes se passe bien.

Voila comment pourrrai-je changer le nom d'un bouton ainsi que sont utilisation par rapport a un résultat d'unne cellule.

Je m'explique:

Je fais une recherche par morceau référence, qui me donne un résultat dans une listbox et par double clique je sélectionne la référence que je veux.

Cela m'ouvre un UserForm avec des renseignements et des données que je peu modifier.

Donc ce que j'aimerai c'est quand je clique sur le bouton
"Etat du dossier"que cela m'ouvre un UserForm (qui est créer) avec les renseignements suivants

O P Q R S
Etat Date dernier mouvement N° Mat Nom & Prénom

Et suivant l'état du dossier que cela me modifie le bouton qui me sert de soit pour Sortire le dossier soit pour le ranger et ensuite je ferai une validation

Je ne sais pas si c'est bien claire, mais je vous remercie d'avance pour votre aide, G'Claire

 

[Zon]

Salut,


Pas trés clair tout cela , par l'évènement dblclick de ta listbox:

toncommandbutton.caption=Talistbox.list(Talistbox.listindex,0)

A+++

 

[G'Claire]

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