XL 2016 Création de Liste Déroulante en VBA

[StanSigma]

Bonjour,

Je me permets de demander votre aide car je bloque sur un sujet,
J'ai dans une cellule un nombre X (celui-ci étant le nombre d'employé nécessaire pour une tache).
Je fais apparaître X listes déroulantes.
Exemple : La cellule m'indique 3, j'ai 3 listes déroulantes (qui apparaissent).

Les problèmes sont :
-Les cellules liées sont pour toutes les listes déroulantes la même cellule.
-Je n'ai aucune idée de comment faire pour empêcher les choix en doublons (empêcher de saisir deux fois la même personne)
-Je ne sais pas comment les supprimer automatiquement pour relancer une nouvelle saisie

Voici mon code à l'heure actuelle :

Sub Affichage_X_Listes()

Dim x As Integer
Dim lien As Integer
Dim a As Integer
Dim b As Integer
Dim c As String


x = ActiveSheet.Cells(2, 3).Value
lien = 1
a = 100
b = 1
c = ("J" & b & ":J" & b)

For i = 1 To x
    ActiveSheet.DropDowns.Add(200, a, 150, 20).Select
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    With Selection
        .ListFillRange = "$K$1:$K$10"
        .LinkedCell = c
        .DropDownLines = 5
        .Display3DShading = False
    End With
a = a + 40

b = b + 1

Next

End Sub

Merci d'avance,
Hate de vous lire !

Cordialement
Stan

 

[StanSigma]

Merci pour votre aide, j'ai réussi grâce à vos différentes propositions.
Savez vous comment je peux supprimer toutes les listes déroulantes d'un coup grâce à un bouton ?
Merci d'avance

 

[job75]

Savez vous comment je peux supprimer toutes les listes déroulantes d'un coup grâce à un bouton ?

Par exemple avec cette macro :

Sub RAZ()
Dim o As Object
For Each o In ActiveSheet.DrawingObjects
    If TypeName(o) = "DropDown" Then o.Delete
Next
End Sub

 

[StanSigma]

Par exemple avec cette macro :

Sub RAZ()
Dim o As Object
For Each o In ActiveSheet.DrawingObjects
    If TypeName(o) = "DropDown" Then o.Delete
Next
End Sub

Merci a tous pour votre aide !

 

[StanSigma]

Bonjour,

Je reviens vers vous pour un dernier point, je n'arrive pas à faire en sorte que la plage de donnée soit variable, c'est à dire que pour la première liste déroulante, la plage est K2:T2, la deuxième K3:T3, la troisième K4:T4 et ainsi jusqu'a X.
Que dois-je mettre au .ListFillRange =
Merci d'avance

For i = 1 To x
    ActiveSheet.DropDowns.Add(200, a, 150, 20).Select
        With Selection
            .ListFillRange =
            .LinkedCell = "J" & b
            .DropDownLines = 5
            .Display3DShading = False
        End With
    a = a + 40
    b = b + 1
Next

 

[job75]

Bonjour StanSigma,

.ListFillRange = Range("K1:T1").Offset(i)

A+

 

[StanSigma]

Bonjour StanSigma,

.ListFillRange = Range("K1:T1").Offset(i)

A+

Bonjour Job,
Tout d'abord merci de ta réponse, seulement je ne comprend pas ta ligne de code, je ne connait pas le .Offset (i). Peux-tu m'éclairer ?
Merci d'avance
Stan

 

[job75]

Faites une recherche sur le web avec VBA Offset.

Range("K1:T1").Offset(i) décale la plage K1:T1 de i lignes vers le bas.

 

[StanSigma]

Merci pour l'explication.

 

[StanSigma]

Faites une recherche sur le web avec VBA Offset.

Range("K1:T1").Offset(i) décale la plage K1:T1 de i lignes vers le bas.

Sais-tu pourquoi cela ne fonctionne pas ?
Ci-joint l'excel.

 

[job75]

Bon ListFillRange doit être une plage verticale donc pour i = 1 mettre K2:K11 en I2.

 

[StanSigma]

Bon ListFillRange doit être une plage verticale donc pour i = 1 mettre K2:K11 en I2.

C'est déjà ce que j'ai fait non ? la variable i se déplace verticalement cependant cela ne fonctionne pas. Sais-tu pourquoi ?
Merci d'avance et pour ton temps

 

[job75]

C'est déjà ce que j'ai fait non ?

Non, modifiez les textes en colonne I comme je viens de le dire : K2:K11 en I2 puis L2:L10 en I3 etc...

 

[StanSigma]

Non, modifiez les textes en colonne I comme je viens de le dire : K2:K11 en I2 puis L2:L10 en I3 etc...

Je ne vois pas du tout ce que cela change mis à part que mon code plus haut ne fonctionnera plus..
Le .offset fonctionne seulement il me prend uniquement la première valeur en K et non les autres, or lorsque je regarde les propriétés de la liste déroulante, la range source est bonne...