Aide
Bonjour,
J'ai un planning avec des tâches journalières et j'ai un effectif que je dois le faire dispatcher. Mon besoin c'est de créer sur chaque tâche colorée dans le même jour une liste déroulante qui me donne l'effectif et lorsque je choisis une personne A automatiquement dans la tâche suivante la personne A ne serait pas affichée au niveau de la liste déroulante.
Merci Beaucoup,
Oui c'est bien ça ce que je recherche ; Merci beaucoup
Est-ce que vous pouvez m'indiquer comment vous l'avez effectuer ça; si il s'agit d'un macro , il n'est pas affiché au niveau développeur
Mais si, il s'agit en fait de 2 macros :hem-id a écrit :si il s'agit d'un macro , il n'est pas affiché au niveau développeur
La première est une macro événementielle qui si déclenche au double clic et qui affiche la boite de dialogue.
La deuxième est liée à l'UserForm de cette boite de dialogue et écrit le nom choisi.
Tu peux voir ces 2 macros en tapant simultanément sur les touches Alt et F11 du clavier.
OK ?
Bye !
Si vous pouvez m'expliquer le code
Option Explicit
Dim ln&, iL&, col&
Private Sub ListBox1_Click()
ActiveCell = ListBox1
Unload Me
End Sub
Private Sub UserForm_initialize()
ListBox1.List = Sheets("Effectif").Range("A2:A" & Sheets("Effectif").Range("A" & Rows.Count).End(xlUp).Row).Value
col = ActiveCell.Column
For ln = 18 To 68
For iL = 0 To ListBox1.ListCount - 1
If Cells(ln, col) = ListBox1.List(iL) Then
ListBox1.RemoveItem iL
Exit For
End If
Next iL
Next ln
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------
Option Explicit
Dim lignes As Variant, plage As Range
Dim i&, j&
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Set plage = Range("H18")
lignes = Array(18, 20, 22, 23, 25, 27, 30, 32, 34, 36, 38, 41, 43, 45, 47, 49, 51, 53, _
55, 57, 60, 62, 64, 66, 68)
For i = 0 To UBound(lignes)
For j = 8 To 33
Set plage = Union(plage, Cells(lignes(i), j))
Next j
Next i
If Not Intersect(Target, plage) Is Nothing Then
UserForm1.Show
End If
Cancel = True
End Sub
Merci bcp!
@gmb svp j'ai ajouté une spécialité à côté de mon effectif et je voudrais à chaque cellule de chaque ligne qu'excel m'affiche seulement les personnes spécialistes
hem-id a écrit :Si vous pouvez m'expliquer le code
Voir fichier ci-joint avec macro commentée
Là, désolé mais ce n'est pas très clair. Il me faudrait un bon exemple de ce que tu veux obtenir....et je voudrais à chaque cellule de chaque ligne qu'excel m'affiche seulement les personnes spécialistes
Bye !
je vous explique ; par exemple la première personne est spécialisée sur la quincaillerie donc si je fais un double clic sur la ligne qui contient la quincaillerie il va m'afficher seulement dans la listbox la personne 1
Je ne vois pas très bien : s'il n'y a qu'une personne à afficher dans la ListBox pourquoi une ListBox.hem-id a écrit :par exemple la première personne est spécialisée sur la quincaillerie donc si je fais un double clic sur la ligne qui contient la quincaillerie il va m'afficher seulement dans la listbox la personne 1
El que faudra-t-il en faire de ce nom de personne ?
Bye !
J'ai juste donné l'exemple d'une seule personne ; par contre si j'ai un effectif de 4 personnes qui sont spécialiste en SM comme indiqué au niveau planning ; si je clique sur les lignes qui contiennent SM ; Excel m'afficherait juste les 4 personnes dans la listbox
Vous m'avez certainement pas compris ; j'ai détaillé sur la feuille effectif (Mon besoin c'est qu'au niveau de chaque ligne sur le planning excel m'affiche seulement les personnes qui ont une X au niveau de la feuille Effectif)
Merci pour votre réactivité.
Tu as raison, et c'est toujours le cas.hem-id a écrit :Vous m'avez certainement pas compris
Désolé !
Bye !
Non non @gmb ne le prenez pas comme ça ! je vous le jure que vous m'avez sauver la vie par votre aide.
hem-id a écrit :Non non @gmb ne le prenez pas comme ça !
Comme quoi ?
Je ne suis pas faché. C'est juste que je ne comprends pas ce que tu veux.
Désolé...
Bye !