XL 2016 Checkbox automatiques

[Claudy]

Bonsoir,
dans ma colonne A1: A30, j'ai une série de noms...
Comment afficher automatiquement un usf avec des checkbox pour chaque nom?
Merci d'avance,
Claudy

 

[job75]

Bonjour Claudy,

Si la liste des noms est évolutive les CheckBoxes ne sont pas une bonne idée.

Utilisez une ComboBox ou une ListBox.

A+

 

[Claudy]

Bonsoir et merci...
Mais nn non,
la liste en A:A reste inchangée...
Donc...

 

[Claudy]

En fait une liste de noms en A1:A30....
Via un USF, reprenant ces noms, je coche les noms qui ont presté à la date du Textbox1, cette date s'affiche en face de chaque nom dans la colonne B1:B30.. et voilà...
Merci d'avance,
Claudy

 

[Claudy]

petit fichier en exemple...
Merci,
Claudy

 

[job75]

Bonjour Claudy,

Votre fichier ne vaut pas un Kopeck, voyez celui-ci et le code de l'UserForm :

Dim plage As Range, d As Object 'mémorise les variables

Private Sub CommandButton1_Click() 'Valider
If Not IsDate(TextBox1) Then Exit Sub
Dim dat As Date, t, i&
dat = CDate(TextBox1)
t = plage.Columns(2)
With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then t(d(.List(i)), 1) = dat
    Next
End With
plage.Columns(2) = t 'restitution
End Sub

Private Sub CommandButton2_Click() 'RAZ
Dim i&
TextBox1 = ""
With ListBox1
    For i = 0 To .ListCount - 1
        .Selected(i) = False
    Next
End With
End Sub

Private Sub UserForm_Initialize()
Dim i&
TextBox1 = Date 'date du jour
Set plage = [A2:A30] 'à adapter
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To plage.Count
    If plage(i) <> "" Then d(plage(i).Value) = i 'mémorise la ligne
Next
If d.Count Then ListBox1.List = d.keys
End Sub

A+