XL 2016 liste déroulante formulaire vba excel

[Madmax33]

bonsoir à tous,

dans un formulaire de mon classeur, je crée une liste déroulante par vba afin d'afficher les informations de ma base.
j'ai réussi à restreindre la liste aux ligne non vides, mais je souhaiterai ajouter un autre critère.
j'ai essayé d'imbriquer des conditions "if", mais rien n'y fait.
je sollicite votre aide.
je vous joins le fichier .xlsm.
le formulaire en question se nomme "F_VisuB"

le code est :
Private Sub Affiche_Banc()
Dim rng As Range
Dim ligne As Range
'Affichage de la liste des bancs
With ThisWorkbook.Worksheets("Bancs")
.Activate
Set rng = .Range("A1").CurrentRegion
Set rng = .Range("A2:U" & rng.Rows.Count + 2)
lstBanc.Clear
For Each ligne In rng.Rows
If Cells(ligne.Row, 1) <> "" Then ----> c'est ici que veux faire mon tri supplémentaire
lstBanc.AddItem Cells(ligne.Row, 1)
Else
Exit For
End If
Next ligne
End With
End Sub

je n'arrive pas à télécharger le fichier (1,2Mo)

 

[sylvanu]

Bonsoir Madmax,

je vous joins le fichier .xlsm.

Vous êtes sur ? 😂

 

[Madmax33]

Bonsoir Madmax,

Vous êtes sur ? 😂

La dernière fois que j'avais sollicité de l'aide j'étais tombé sur des personnes compétentes, mais bon je me suis trompé ! Tant pis pour moi.

 

[Oneida]

Bonjour a tous,

Madmax33:​

Ce sont de grands enfants espiegles, blagueurs parfois irritants, mais leurs competences sont relles

"je n'arrive pas à télécharger le fichier (1,2Mo)"
Compressez le fichier avec Winrar ou winzip ou 7zip.
Sinon passez par un site tier, vous en trouverez en faisant une recherche Web

 

[Madmax33]

Bonjour a tous,

Madmax33:​

Ce sont de grands enfants espiegles, blagueurs parfois irritants, mais leurs competences sont relles

"je n'arrive pas à télécharger le fichier (1,2Mo)"
Compressez le fichier avec Winrar ou winzip ou 7zip.
Sinon passez par un site tier, vous en trouverez en faisant une recherche Web

Voilà le fichier épuré.

Ce que je cherche à faire :
Créé ma liste de bancs sans prendre en compte ceux qui sont réformés ou en sommeil, si c'est possible.
Vos conseils ou astuces sont les bienvenus.
Merci

 

[Oneida]

Re,
"le formulaire en question se nomme "F_VisuB""
Peut-etre, mais il n'est pas dans le fichier!

 

[JHA]

Bonjour à tous,

Un essai sans VBA

JHA

 

[Madmax33]

Bonjour à tous,

Un essai sans VBA

JHA

Je confirme que le formulaire est bien dans le fichier tedt

 

[fanch55]

Bonjour,

Le fichier joint ne doit pas être celui que vous avez préparé ...

 

[Valtrase]

Bonjour à tous,
Sûr que le fichier ait été épuré, point de formulaire dedans...

Bon sinon si j'ai bien compris plusieurs solution s'offrent à vous.
La double condition avec l'opérateur And (Ici nous ne sélectionnons que les lignes non vides et qui commencent par "VID".(Pour l'exemple...)

        For Each ligne In rng.Rows
            If Cells(ligne.Row, 1).Value <> "" And Cells(ligne.Row, 1).Value Like "VID*" Then
                lstBanc.AddItem Cells(ligne.Row, 1).Value
            Else
                Exit For
            End If
        Next ligne

Autre solution les tests If imbriqués (Test sur la valeur d'une autre colonne) :

        For Each ligne In rng.Rows
            If Cells(ligne.Row, 1).Value <> "" Then
                If Cells(ligne.Row, 1).Offset(0, 1).Value = True Then ' Ou bien = "Toto, ou bien > 0 .....
                    lstBanc.AddItem Cells(ligne.Row, 1).Value
                End If
            Else
                Exit For
            End If
        Next ligne

Et pour finir vous ne devez pas quitter la boucle sous peine de ne pas avoir d'entrées dans votre liste.

        For Each ligne In rng.Rows
            If Cells(ligne.Row, 1).Value <> "" Then
                If Cells(ligne.Row, 1).Offset(0, 1).Value = True Then ' Ou bien = "Toto, ou bien > 0 .....
                    lstBanc.AddItem Cells(ligne.Row, 1).Value
                End If
            End If
        Next ligne

 

[fanch55]

Exemple de Userform​

 

[Madmax33]

Exemple de Userform​

Regarde la pièce jointe 1214097

La messagerie de mon boulot supprime les macros.
Je renverrai le fichier avec son formulaire ce soir.
Merci

 

[fanch55]

La messagerie de mon boulot supprime les macros.
Je renverrai le fichier avec son formulaire ce soir.
Merci

Un zip devrait passer

 

[Madmax33]

Le zip devrait passer

Voilà le fichier avec j'espère mon formulaire

 

[Valtrase]

Bonjour,
Le fichier c'est bien, mais quelles sont les conditions à ajouter, pour le remplissage de la liste déroulante ?
Autres questions. Si vous voulez utiliser un formulaire pour gérer votre tableau , pourquoi mettre ce tableau en forme ?