2 Listes déroulantes en conflits ?

[thespeedy20]

Bonjour,

j'ai deux listes déroulantes distinctes, une pour la plage B18:B63 et une pour la plage P18:63....dans la feuille Rec

Dans la plage B18:B63 j'obtiens la liste de colonne P18:63 !!!!

Les valeurs de la liste de la B18:B63 se trouve dans la feuille Profs et celle P18:63 dans la feuille Evenements.
les deux listes se retrouvent dans la feuille Rec

Dim Lst As Range
Dim Lst2 As Range
Dim Liste As String

With Worksheets("Profs")
        Set Lst = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
    End With
    ThisWorkbook.Names.Add "Liste", "=Profs!" & Lst.Address
   
With Worksheets("Rec").Range("B18:B63").Validation
        .Delete
        .Add xlValidateList, , , "=Liste"
        .InputTitle = "Sélection"
        .InputMessage = "Recherche rapide"
    End With
   
   
With Worksheets("Evenements")
        Set Lst2 = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
    End With
    ThisWorkbook.Names.Add "Liste", "=Evenements!" & Lst2.Address
   
With Worksheets("Rec").Range("P18:P63").Validation
        .Delete
        .Add xlValidateList, , , "=Liste"
        .InputTitle = "Sélection"
        .InputMessage = "Recherche rapide"
    End With

 

[sylvanu]

Bonjour TheSpeedy,
Dans le fichier attaché, feuille Rec il y a bien une liste pour Nature de l'évenement mais aucune liste pour Fonction.
Donc j'ai un peu de mal à voir le phénomène dont vous parlez.

 

[thespeedy20]

Bonjour Sylvan,

Je veux dire que si j utilise la liste de roulante de la. Plage de col B, dans cette liste j obtiens les valeurs de l autre liste.....

J espère que cela est plus clair...

Oli

 

[sylvanu]

Merci. Moi c'est plus imple il ne fait rien dans Fonction !
Au fait c'est quoi le but ?

 

[thespeedy20]

re,

le but, c'est quand je sélectionne le nom dans la col B, il indique la fonction, le nombre de période, ,le matricule et le statut automatiquement... et re intègre la ligne dans l'ordre alphabétique... si tu introduis des valeurs tu verras que le classement se fait automatiquement et le numéro aussi...il peut y avoir un doublon dans le nom et garde le même numéro...(ça cela fonctionne...)

Oli

 

[sylvanu]

Si on intervertit les deux modules alors on a l'inverse, les prénoms sont partout. D'où la piste :

Sub essai()
Dim Lst2 As Range
Dim Liste As String
Dim Plg As Range
With Worksheets("Evenements")
    Set Lst2 = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
End With
ThisWorkbook.Names.Add "Liste1", "=Evenements!" & Lst2.Address
    
With Worksheets("Rec").Range("P18:P63").Validation
        .Delete
        .Add xlValidateList, , , "=Liste1"
        .InputTitle = "Sélection"
        .InputMessage = "Recherche rapide"
    End With
With Worksheets("Profs")
    Set Lst3 = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
End With
ThisWorkbook.Names.Add "Liste2", "=Profs!" & Lst3.Address
    
With Worksheets("Rec").Range("B18:B63").Validation
        .Delete
        .Add xlValidateList, , , "=Liste2"
        .InputTitle = "Sélection"
        .InputMessage = "Recherche rapide"
End With
End Sub

Il ne faut pas donner le même nom au deux listes. En utilisant Liste1 et Liste2 ça marche.

 

[thespeedy20]

re,

cela fonctionne, merci bien...maintenant je n'ai pas le temps de remplir la ligne, qu'il la reclasse dans l'ordre alphabétique...y a t il moyen que je remplisse la ligne et puis seulement qu'il la classe....

Merci

Oli

 

[sylvanu]

Si le problème est de faire une liste dynamique alors il suffit de nommer la liste en ajoutant plein de cellules vides ( ex : B2:B1000 appelée ListeEvenements ) et de mettre dans la liste déroulante ceci :
=DECALER(ListeEvenements;0;0;NBVAL(ListeEvenements);1)
quand on rajoute un item à la liste, il est pris en compte automatiquement par la lsite déroulante.

 

[thespeedy20]

re,

Non ce n'est pas un problème de liste mais bien de ligne, dès que sélectionne le nom dans la liste, ll la classe de suite, je sais pas continuer à encoder...je désirerais compléter la ligne et puis seulement qu'il la classe...

 

[sylvanu]

L'enregistreur macro fait quasi tout le boulot :

Sub TrierListe()
' Figer écran
Application.ScreenUpdating = False
' Trier Evenements
    ActiveWorkbook.Worksheets("Evenements").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Evenements").Sort.SortFields.Add Key:=Range("B2:B200"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Evenements").Sort
        .SetRange Range("A1:F200")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
' Trier prénom profs
    ActiveWorkbook.Worksheets("Profs").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Profs").Sort.SortFields.Add Key:=Range("B2:B25"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Profs").Sort
        .SetRange Range("A1:F25")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Dans votre code après les Dim, vous coller : Call TrierListe

 

[sylvanu]

Un détail : pourquoi ne pas remplacer dans Feuille Rec Private Sub Worksheet_Change(ByVal Target As Range) par Private Sub Workbook_SheetActivate(ByVal Sh As Object), dans ce cas tout est réactualiser lors de la selection de la feuille et non sur un selection de cellule. C'est plus sain.
Ensuite ( pour ce que j'ai compris ) il ne faut pas activer Trier_Numeroter à chaque fois qu'on touche à une cellule Bxx. C'est ce qui se passe actuellement. Il faut trouver un autre moyen. Soit un bouton qui lance la macro, soit l'ajout de Trier_Numeroter dans Private Sub Workbook_SheetActivate, dans ce cas Trier_Numeroter se fera la prochaine fois que vous selectionnerais la feuille.
Ou encore Trier_Numeroter se fait sur selection d'une cellule vide ou une cellule bien précise, ça va dépendre de votre besoin..

 

[thespeedy20]

re,

Je sélectionne le nom, j'encode les dates, les renseignements nécessaire(dans l'ordre jusqu’à la fin de la ligne) et dès que j'ai fini il reclasse la ligne dans le classement...

 

[thespeedy20]

re,

Le moyen le plus simple possible, rapidité, efficacité....

Merci de m'aider.

Oli

 

[sylvanu]

Dans ce cas, il faut supprimer le Private Sub Worksheet_Change ou alors, si aucune des solutions proposées ne vous convient, vous mettez le Private Sub Worksheet_Change sur la dernière cellule renseignée. Mais je maintiens que ce n'est pas "sain". Imaginez qu'il y ai une erreur ou un oubli, alors le classement vous fera perdre la ligne des yeux et vous risquez de ne pas la voir.
Pourquoi ne pas rajouter en W15 le texte "Réactualisation" en 7 points et en gris, et lancer le reclassement par clic sur cette ligne. Cela me semblerait plus clair : vous renseignez votre ligne, vous la vérifiez et quand tout est correct vous reclassez.

 

[thespeedy20]

re,

vous avez entièrement raison dans votre raisonnement... je vous fais confiance, votre solution sera la mienne, vous êtes certainement plus habitué que moi....donc j'adopte votre proposition...merci