Userform - Bouton Recherche avec Listbox

Bonsoir à tous !

Je rencontre un soucis avec une listbox et un bouton recherche...

Je vais chercher la valeur d'un matricule dans 5 colonnes à partir de la 26 ème. Il se peut que la cellule d'une colonne soit vide.

Exemple :

Colonne Z : Colonne AA : Colonne AB : Colonne AC : Colonne AD :

M_0001 M_0003 M_0008 M_0011

Il faut savoir que les numéros des matricules augmentent de gauche à droite.

Voici mon code, mais il me sort des absurdités... (il me sélectionne les mauvaises lignes par rapport aux matricules qui se trouvent dans les cellules) :

   
Colonne = 26
For M = 1 To Me.ChoixCollaborateurs.ListCount
   If Sheets("Liste_Projets").Cells(no_ligne, Colonne) = "M_000" & M Then
       Me.ChoixCollaborateurs.Selected(M) = True
       Colonne = Colonne + 1
   End If
Next M

Merci par avance

Bonjour,

Je vais chercher la valeur d'un matricule dans 5 colonnes à partir de la 26 ème

c'est à partir de la 26èm colonne ?

Colonne = 26
'...
If Sheets("Liste_Projets").Cells(no_ligne, Colonne) = "M_000" & M Then

Bonjour !

Merci sabV pour ta réponse, cependant il manque un morceau du code non ?

Merci par avance

re,

Merci sabV pour ta réponse, cependant il manque un morceau du code non ?

je pense qu'il manque plus qu'un morceau du code,

pas de fichier joint

on joue à la devinette

Re,

Oui c'est mieux avec le fichier effectivement

Si on lance le formulaire, qu'on clique sur Projet 4 puis sur le bouton rechercher, on voit que les noms des salariés sélectionnés sont différents de ce qu'il y a dans mes cellules en colonne Z, AA, AB, AC, AD...

Merci pour votre aide !

Re à tous,

Je relance le sujet si quelqu'un à la réponse à ma question !

Merci

re,

désolé de n'avoir répondu plus tôt, j'ai du m'absenter.

j'ai travaillé sur les événements Titre_Change et UserForm_Initialize

Private Sub Titre_Change()

k = Application.Match(Me.Titre, Range("Tableau_Liste_Projets[Titre]"), 0) + 1
Me.NomResponsable.Value = Sheets("Liste_Projets").Range("C" & k)
Me.DateDébut.Value = Sheets("Liste_Projets").Range("D" & k)
Me.DateDébutR.Value = Sheets("Liste_Projets").Range("F" & k)
Me.DateFinR.Value = Sheets("Liste_Projets").Range("G" & k)

   Colonne = 16
   For M = 0 To Me.ChoixTaches.ListCount - 1
     If Sheets("Liste_Projets").Cells(k, Colonne) = "Oui" Then Me.ChoixTaches.Selected(M) = True
     Colonne = Colonne + 1
   Next M

   Colonne = 26
   For M = 0 To Me.ChoixCollaborateurs.ListCount - 1
   Debug.Print Me.ChoixCollaborateurs.List(M, 0) & "  -  " & Sheets("Liste_Projets").Cells(k, Colonne)
     If Me.ChoixCollaborateurs.List(M, 0) = Sheets("Liste_Projets").Cells(k, Colonne) Then
        Me.ChoixCollaborateurs.Selected(M) = True
        Colonne = Colonne + 1
     End If

    Next M
End Sub

Private Sub UserForm_Initialize()
With Me.ChoixCollaborateurs
.ColumnCount = 6
.ColumnWidths = "49,95 pt;30 pt;70 pt;70 pt;70 pt;40 pt"
.List = Range("Tableau_Liste_Salariés[[Matricule]:[Qualification]]").Value
'.MultiSelect = 1
End With

'=Tableau_Liste_Projets[Titre]
With Me.Titre
.List = Range("Tableau_Liste_Projets[Titre]").Value
End With
End Sub