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 :
Merci d'avance,
Hate de vous lire !
Cordialement
Stan
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 :
VB:
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 SubMerci d'avance,
Hate de vous lire !
Cordialement
Stan