XL 2019 Liste déroulante

chinel

chinel

XLDnaute Impliqué
Bonjour tout le monde, je cherche à faire une liste déroulante dans ma feuille (Comptage) avec tous les prénoms des gens de la feuille (Personnel) mais sachant qu'une liste déroulante ne peut se faire que, en ligne ou en colonne, je ne sais pas comment faire. Merci de votre aide !
 

Pièces jointes

  • Planning d'équipe Melvin.xlsm
    53.6 KB · Affichages: 15
Trier par date Trier par votes
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
Tiens, en parlant de protection de feuille, est-ce qu'il n'y a pas une macro qui déprotège une feuille au début, et au lieu de reprotéger la feuille à la fin, protège une autre feuille ?

Il y a ça ou ce sont encore mes neurones qui marchent mal ??? 😢
 
Vote positif 0 Vote négatif
cp4

cp4

XLDnaute Barbatruc
comme ceci
VB: 
With Sheets("Comptage")
      .Unprotect "manu01"   ' remplace mot_de_passe par ton mot de passe
      With .Range("B1").Validation
         .Delete
         .Add Type:=xlValidateList, _
              Operator:=xlBetween, _
              AlertStyle:=xlValidAlertStop, _
              Formula1:=liste
      End With
      .Protect "manu01"   ' remplace mot_de_passe par ton mot de passe
   End With
 
Vote positif 0 Vote négatif
chinel

chinel

XLDnaute Impliqué
cp4 à dit:
comme ceci
VB: 
With Sheets("Comptage")
      .Unprotect "manu01"   ' remplace mot_de_passe par ton mot de passe
      With .Range("B1").Validation
         .Delete
         .Add Type:=xlValidateList, _
              Operator:=xlBetween, _
              AlertStyle:=xlValidAlertStop, _
              Formula1:=liste
      End With
      .Protect "manu01"   ' remplace mot_de_passe par ton mot de passe
   End With
Cliquez pour agrandir...
 

Pièces jointes

  • erreur.png
    erreur.png
    54.9 KB · Affichages: 9
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
chinel à dit:
Merci pour ton soutien, je regarde ça en rentrant chez moi. Bonne journée
Cliquez pour agrandir...
Eh Manu, toujours pas rentré chez oit ??? 😁

Si tu as le temps de regarder le fichier, ce serait sympa de faire un retour, parce que j'ai essayé de :
- mettre en place trois listes (chefs, brigadiers, ouvriers) facilement modifiables,
- colorier en noir et vider les cellules, pour tous les cas possibles,
- enlever le coloriage noir pour tous les cas possibles,
- mettre, dans le tableau de comptage, une liste déroulante à jour et complète des ouvriers,
- mettre les bonnes formules dans le tableau de comptage,
- modifier la macro qui remplie le tableau de la BDD dans la feuille "Personnel",
- corriger toutes les indentations fantaisistes,
- corriger tous les Range à rallonge,
- corriger quelques coquilles.
 
Dernière édition:
Vote positif 0 Vote négatif
cp4

cp4

XLDnaute Barbatruc
chinel à dit:
Bonjour, si pourquoi ? 🤔 mais ici déjà reparti 😁
Cliquez pour agrandir...
Bonjour,
@chinel:mad: : C'est ce qu'on appelle communément du "mépris". Notre ami @TooFatBoy a eu la gentillesse de faire ton boulot. En retour, il a le droit d'attendre un minimum de reconnaissance, ne serait-ce qu'en lui faisant un retour à sa proposition.
Enlève ta tétine et grandi un peu. Tu viens de prendre un jeton pour que je te rajoutes à ma liste des membres à ignorer. à bon entendeur, je te salue.

@TooFatBoy ;): Finalement, tu avais raison, j'aurai dû passer mon chemin et ignorer cette discussion. Je suis très déçu par le comportement de @chinel . Bonne journée à toi.
 
Vote positif 0 Vote négatif
chinel

chinel

XLDnaute Impliqué
@cp4 ton fichier est vraiment super, c'est vraiment ça que je désirais mais malgré que j'ai suivi tes conseils, j'ai toujours un bug quand je protège la feuille. (Voir plus haut, image à l'appui) merci de ton soutien ! Désolé 🙏 pour la réponse un peu tardive mais j'ai aussi une vie après le boulot 😏
 
Vote positif 0 Vote négatif
cp4

cp4

XLDnaute Barbatruc
chinel à dit:
@cp4 ton fichier est vraiment super, c'est vraiment ça que je désirais mais malgré que j'ai suivi tes conseils, j'ai toujours un bug quand je protège la feuille. (Voir plus haut, image à l'appui) merci de ton soutien ! Désolé 🙏 pour la réponse un peu tardive mais j'ai aussi une vie après le boulot 😏
Cliquez pour agrandir...
Je t'ai donné la solution au post#33
Chez-moi ça fonctionne bien (démo ci-dessous)
Chinel.gif

Je n'ai aucun bug.
 
Vote positif 0 Vote négatif
cp4

cp4

XLDnaute Barbatruc
chinel à dit:
Merci beaucoup mais chez moi j'ai un bug 🥲
Cliquez pour agrandir...
Voici le code complet.
VB: 
Option Explicit
Option Compare Text
Dim d As Object

Sub ValidationDico()
   Dim dl As Integer, Tb(), i As Integer, j As Integer, cle, liste

   Set d = CreateObject("scripting.dictionary")
   With Sheets("personnel")
      dl = .Range("A" & Rows.Count).End(xlUp).Row
      Tb = .Range("B2:AE" & dl).Value
   End With

   For i = LBound(Tb) To UBound(Tb)
      For j = LBound(Tb, 2) To UBound(Tb, 2)
         If Tb(i, j) <> "" Then d(Tb(i, j)) = ""
      Next j
   Next i

   DicoTri d      'tri
    
For Each cle In d.keys
      liste = liste & "," & cle
   Next
   With Sheets("Comptage")
      .Unprotect "manu01"   ' remplace mot_de_passe par ton mot de passe
      With .Range("B1").Validation
         .Delete
         .Add Type:=xlValidateList, _
              Operator:=xlBetween, _
              AlertStyle:=xlValidAlertStop, _
              Formula1:=liste
      End With
      .Protect "manu01"   ' remplace mot_de_passe par ton mot de passe
   End With
End Sub
Sub DicoTri(dico)
Dim i As Integer, Tbl
   Tbl = d.keys                           ' Transfert Dictionnaire dans Array
   Tri Tbl, LBound(Tbl), UBound(Tbl)   ' Tri Array
   d.RemoveAll                           ' Création du dictionnaire
   For i = LBound(Tbl) To UBound(Tbl)
      d(Tbl(i)) = ""
   Next i
End Sub
Sub Tri(a, gauc, droi)          ' Quick sort
Dim ref As String, g As Integer, d As Integer, temp
   ref = a((gauc + droi) \ 2)
   g = gauc: d = droi
   Do
      Do While a(g) < ref: g = g + 1: Loop
      Do While ref < a(d): d = d - 1: Loop
      If g <= d Then
         temp = a(g): a(g) = a(d): a(d) = temp
         g = g + 1: d = d - 1
      End If
   Loop While g <= d
   If g < droi Then Call Tri(a, g, droi)
   If gauc < d Then Call Tri(a, gauc, d)
End Sub
 
Vote positif 0 Vote négatif
chinel

chinel

XLDnaute Impliqué
cp4 à dit:
Voici le code complet.
VB: 
Option Explicit
Option Compare Text
Dim d As Object

Sub ValidationDico()
   Dim dl As Integer, Tb(), i As Integer, j As Integer, cle, liste

   Set d = CreateObject("scripting.dictionary")
   With Sheets("personnel")
      dl = .Range("A" & Rows.Count).End(xlUp).Row
      Tb = .Range("B2:AE" & dl).Value
   End With

   For i = LBound(Tb) To UBound(Tb)
      For j = LBound(Tb, 2) To UBound(Tb, 2)
         If Tb(i, j) <> "" Then d(Tb(i, j)) = ""
      Next j
   Next i

   DicoTri d      'tri
   
For Each cle In d.keys
      liste = liste & "," & cle
   Next
   With Sheets("Comptage")
      .Unprotect "manu01"   ' remplace mot_de_passe par ton mot de passe
      With .Range("B1").Validation
         .Delete
         .Add Type:=xlValidateList, _
              Operator:=xlBetween, _
              AlertStyle:=xlValidAlertStop, _
              Formula1:=liste
      End With
      .Protect "manu01"   ' remplace mot_de_passe par ton mot de passe
   End With
End Sub
Sub DicoTri(dico)
Dim i As Integer, Tbl
   Tbl = d.keys                           ' Transfert Dictionnaire dans Array
   Tri Tbl, LBound(Tbl), UBound(Tbl)   ' Tri Array
   d.RemoveAll                           ' Création du dictionnaire
   For i = LBound(Tbl) To UBound(Tbl)
      d(Tbl(i)) = ""
   Next i
End Sub
Sub Tri(a, gauc, droi)          ' Quick sort
Dim ref As String, g As Integer, d As Integer, temp
   ref = a((gauc + droi) \ 2)
   g = gauc: d = droi
   Do
      Do While a(g) < ref: g = g + 1: Loop
      Do While ref < a(d): d = d - 1: Loop
      If g <= d Then
         temp = a(g): a(g) = a(d): a(d) = temp
         g = g + 1: d = d - 1
      End If
   Loop While g <= d
   If g < droi Then Call Tri(a, g, droi)
   If gauc < d Then Call Tri(a, gauc, d)
End Sub
Cliquez pour agrandir...
Merci beaucoup !!!!!!!!!!!! j'ai dû juste modifier ceci dans le code de la feuille "Comptage"
Private Sub Worksheet_Activate()
ValidationDico
End Sub

car sans cela, j'avais encore un bug ! Tu es mon sauveur, un grand merci et bonne soirée et merci d'être resté à mes côtés !
 
Vote positif 0 Vote négatif

Discussions similaires

richardlion
  • Question
XL 2016 lien avec liste déroulante
Réponses
2
Affichages
221
richardlion
richardlion
D
  • Question
XL 2019 Une liste déroulante sur deux feuilles ?
Réponses
3
Affichages
175
DJ FA
D
V
  • Question
Microsoft 365 Problème liste déroulante
Réponses
2
Affichages
87
Vdex#
V
E
  • Question
Microsoft 365 Liste déroulante créée quand une cellule contient un texte spécifique
Réponses
10
Affichages
333
Erakmur
E
J
  • Question
XL 2019 Sélectionner une valeur dans liste déroulante sans doublon
Réponses
6
Affichages
324
JMP56
J
guy72
  • Question
XL 2010 Texte à afficher suivant la sélection de l'image
Réponses
2
Affichages
183
guy72
guy72
E
  • Résolu(e)
XL 2019 Création d'une liste déroulante en cascade
Réponses
3
Affichages
192
Ericduke
E
M
  • Résolu(e)
XL 2021 Liste déroulante avec plusieurs conditions
Réponses
7
Affichages
267
MORAD AIT
M
M
  • Question
Microsoft 365 Impossible de faire fonctionner mes macros ou liste déroulante (ss Microsoft 365) ?
Réponses
3
Affichages
183
ManuXZ
M
O
  • Résolu(e)
XL 2019 Besoin d'aide avec une liste déroulante.
Réponses
3
Affichages
156
olivier C
O

Membres actuellement en ligne

17 membres et 119 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 209
Messages
2 086 270
Membres
103 168
dernier inscrit
isidore33