Chargement selectif d'une combobox

[gds35]

Mes AMIS du Forum Bonjour, Bonne journée...
J'ai un Pb dans le chargement d'une combobox , J'ai une feuille contenant + de 30 Lignes avec des noms en colonnes A.
Mon desir est de charger ma combobox avec les NOMS uniquement à partir de la 1ere Lettre demandée dans la combobox.
cela fonctionne si je demande la lettre A , mais apres si je demande la lettre D , ma combobox n'est + alimentee....
Pourquoi ??? Merci de votre aide
Je joint un fichier d'exemple.
Cordialement GDS35

 

[Roland_M]

Re : Chargement selectif d'une combobox

bonjour

en respectant ton code voir ci-dessous...
(perso je ne pratiquerais pas ainsi) mais ça marche

Private Sub MODIFBOXNOMCC_Change()
Static Passe 'pour eviter passage répété
If Passe Then Passe = 0: Exit Sub
Passe = 1
Dim ChoixModifCC As String, NOMCC As String
ChoixModifCC = UCase(MODIFBOXNOMCC.Value)
'NoDeLig du premier !?
PremLig = 0: NoDeLig = 3
Do
 NOMCC = Cells(NoDeLig, 1).Value: If NOMCC = "" Then Exit Do
 If Left(NOMCC, 1) = ChoixModifCC Then PremLig = NoDeLig: Exit Do
 NoDeLig = NoDeLig + 1
Loop
'NoDeLig du dernier
If PremLig > 0 Then
   DernLig = PremLig
   Do
     NOMCC = Cells(DernLig, 1).Value: If NOMCC = "" Then Exit Do
     If Left(NOMCC, 1) <> ChoixModifCC Then DernLig = DernLig - 1: Exit Do
     DernLig = DernLig + 1
   Loop
   MODIFBOXNOMCC.Clear
   For Lig = PremLig To DernLig: MODIFBOXNOMCC.AddItem Cells(Lig, 1).Value: Next
End If
Passe = 0 '!
End Sub

 

[gds35]

Re : Chargement selectif d'une combobox

ROLAND Salut et Merci +++
J'ai adapté ton code avec mes propres variables et cela fonctionne +++

encore MERCI cordialement GDS35. Bonne fin de semaine