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]

Non je ne pense pas, mais c'est un autre regard.
On est quelquefois trop "la tête dans le guidon". On n'est plus très objectif car on se maintient sur le cap donné.
Bonne soirée.

 

[thespeedy20]

Vous pouvez m'aider,
à refaire le code svp....

 

[sylvanu]

Je vais regarder ce soir.
Bonne soirée.

 

[thespeedy20]

Grand Merci.....
Bonne soirée

 

[sylvanu]

Regarder si cela vous convient. J'ai ajouté une page "A lire" qui décrit les modifs éffectuées.
Tout à l'air de marcher.
Bonne soirée et bon courage.

 

[thespeedy20]

Bonsoir,

Merci pour le fichier,

Quand on remet par ordre alphabétique, la ligne ne suit pas, juste le nom....toutes les informations après le nom ne bougent pas....

 

[sylvanu]

Bonsoir,
Vous parlez de la liste Profs ?
Si c'est ça c'est bizarre chez moi ça marche. J'ai fait un essai avec cette liste :

Je reviens sur Rec puis sur Profs, et j'obtiens :

Tout à suivi de N° à Situation administrative.
A vous lire.
Bonsoir.

 

[sylvanu]

Bien le bonjour,
Le bug vient de votre fonction Trier_Numeroter "Rec", "A18:B63" au lieu de Trier_Numeroter "Rec", "A18:W63" . A rectifier dans votre module.
Le problème maintenant c'est que la renumérotation ne marche plus car des cellules sont fusionnées. Sur appel de la renumérotation il dit :

Je suppose que vous avez fusionné des cellules à cause du Matricule établissement.
d'où deux solutions :
1- Vous modifier le module de renumérotation, mais sans passer par la fonction Sort, ce qui va ne pas être facile.
2- Vous supprimez le matricule établissement dans sa forme actuelle pour qu'il ne prenne qu'une cellule, et comme vous tenez à séparer les chiffres, en clicquant sur la cellule vous ouvrez une ComBox.
3- Idem 2 mais on entre à la main le matricule de l'établissement dans la cellule, et vous faites une macro de sécurité pour vérifier le nombre de caractères par exemple.
A vous lire.
NB : Ci joint la modif à faire pour étendre le tri:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lst As Range
Dim Lst2 As Range
Dim Liste As String
Dim Plg As Range
   If Not Intersect(Target, Range("A18:B63")) Is Nothing Then
      ' Si l'intersection entre la plage modifiée : Target
      '  et la plage utile : c15:d60
      '  n'est pas vide. On appelle donc la procédure : Trier_Numeroter
      '  avec ces deux arguments (nom de la feuiller et adresse' de la plage utile)
      Trier_Numeroter "Rec", "A18:B63"   ' A REMPLACER PAR "A18:W63" DANS LE MODULE SYLVANU/RENUMEROTATION
   End If

 

[thespeedy20]

Bonjour Sylvanu,

On va supprimer toutes les cellules fusionnées pour éviter les problèmes....et on va mettre le matricule établissement dans une cellule...
Encore merci pour le temps consacré...

Oli

 

[sylvanu]

Content de savoir que cela vous sied.
Dans le module de renumérotation, vous pouvez faire une vérification de cohérence du N° établissement avec le nombre de caractères, ou mieux si vous avez la lsite des établissements faire une liste déroulante ( une de plus ) ce qui simplifierais la tache.
Cordialement.

 

[thespeedy20]

re,
Vous trouverez la liste dans le fichier ci-joint...

Bien à vous

 

[sylvanu]

Voilà. J'ai mis une liste déroulante pour choisir l'établissement, et de là on extrait son numéro.
YaKa l'intégrer dans votre outil.

 

[thespeedy20]

re,

merci, j'ai intégré la liste....

 

[thespeedy20]

Bonjour Sylvanu,

J'ai un petit soucis avec la recherche, quand j'indique le nom, je n'ai pas la fonction, le nombre de période, le situation administrative et le matricule qui s'affiche...:-(

 

[sylvanu]

Bonjour,
Pouvez vous renvoyer le dernier fichier, SVP, ce sera plus simple à debugger.
Si je comprend bien, quand vous selectionnez un nom vous voulez que les cellules correspondantes se remplissent ?