Amélioration de mon Tableau VBA

Question

Je cherche à amélioré mon tableau. En fait, j'ai des cellules A8:A22 à qui j'ai fait une liste déroulante vers un tableau de données. J'aimerais changer ma façon de faire. Au lieu d'Avoir une liste déroulante, j'aimerais que l'on clic sur la case (A8:A22) et qu'un pop-up allume dans lequel notre liste (Tableau de données) se trouve et que l'on clic sur le bon. Bref au lieu du scroll, j'aimerais que sa soit que du clicage... MErci...

Invité · Answer

Il faut utiliser l'évènement Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub Pour le changement de cellule en A8 Tu appelles alors un UserForm avec un combobox Tout ça tu peux trouver sur le forum @+...

Andre13 · Answer

===

Bonjour toutes et tous

il manque le signe = non ? j'pense ou ActiveSheet.Unprotect

Si il n'y pas de mot de passe > Unprotect "" et Protect "" (vu https://forum.excel-pratique.com/viewtopic.php?t=117701 merci à Eric

après j'ai un doute avec (Feuil15) peut-être comme cela ("Feuil15")

@ tester

Private Sub UserForm_Activate()
    ActiveSheet.Unprotect =""
    lbxEmploye.List = ListeManager.GetListe(Feuil15)
    txtPrenom.value = ""
    txtNom.value = ""
    ActiveSheet.Protect =""
End Sub

ou

Private Sub UserForm_Activate()
    ActiveSheet.Unprotect 
    lbxEmploye.List = ListeManager.GetListe("Feuil15")
    txtPrenom.value = ""
    txtNom.value = ""
    ActiveSheet.Protect 
End Sub

crdlt,

André