Discussion :

[zandru]

Bonjour,

j'ai une combobox dans un userform. Ce que je voudrait faire c'est interdire la sélection de certaine ligne (des lignes de séparation entre des groupes d'éléments pour que la combobox soit plus lisible).

Est-il possible de le faire simplement ?

[PUARAI]

Bonjour le forum, quand tu dis interdire c'est à dires, quand tu click dessus la ligne avec ta souris que ta souris ne selectionne pas cellules ?
J'ai un bout de code je ne sais pas si c'est celui la qui t'interesserais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    If Target.Row = 10 Then 'interdire l'accès à la ligne 10 par exemple
       Range("I" & Target.Row).Select 'et "I" quand tu click dans la ligne 10 celle ci te selectionne automatiquement la cellule à l'intersection de la ligne 10 et la colonne "I"mais bof tu peu changer la cellule si tu veux.
    End If
End Sub

A +++

[ucfoutu]

Bonjour,

je pense que tu veux quelque chose ressemblant à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox1_Click()
  Static ancien As Integer
  Dim interdits As String
  interdits = "/2/4/" 'ici tes index de lignes interdites (n'oublie pas que la ligne 1 a l'index 0)
  If InStr(interdits, "/" & ComboBox1.ListIndex & "/") > 0 Then
     ComboBox1.ListIndex = ancien
  Else
    ancien = ComboBox1.ListIndex
  End If
End Sub

[zandru]

j'ai testé ta solution, mais je n'arrive pas à la faire fonctionner.

Est-ce que cela peut être dû à l'existence d'un combobox_change ? (qui se lance aussi lorsque je clic sur une ligne)

[ucfoutu]

j'ai testé ta solution, mais je n'arrive pas à la faire fonctionner.

Est-ce que cela peut être dû à l'existence d'un combobox_change ? (qui se lance aussi lorsque je clic sur une ligne)

Re...,
Je ne pourrai te répondre que lorsque tu auras montré ton code (tout ce qui concerne ta Combo), car ma boule de crystal est en panne.

[zandru]

Re...,
Je ne pourrai te répondre que lorsque tu auras montré ton code (tout ce qui concerne ta Combo), car ma boule de crystal est en panne.

y a bien un pluging firefox qui fait ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub numaff_Change()
    If faccreation.numaff.ListIndex > 1 Then
'        If IsNumeric(Left(faccreation.numaff.Text, InStr(1, faccreation.numaff.Text, "-") - 1)) = True Then
            'mise à jour du digit client
            faccreation.numclient.Caption = numerosaff.Cells(faccreation.numaff.ListIndex + 6, 5)
            'recherche bl
            Dim chemin As String
            chemin = "C:\Documents and Settings\Scale\Mes documents\GABRIEL PERSO\GESTION VBA\"
            dirtest = Dir(chemin & "BL\*")
            faccreation.Listblavoir.Clear
            While dirtest <> ""
                If CInt(Mid(dirtest, InStr(Len(dirtest) - 8, dirtest, "-", vbTextCompare) - 5, 3)) = CInt(Left(faccreation.numaff.Value, InStr(1, faccreation.numaff.Value, "-", vbTextCompare) - 1)) Then
                    faccreation.Listblavoir.AddItem (Left(dirtest, InStr(1, dirtest, ".") - 1))
'                    ##
                End If
                dirtest = Dir
            Wend
            'recherche avoir
            dirtest = Dir(chemin & "AVOIR\*")
            While dirtest <> ""
                If CInt(Mid(dirtest, InStr(1, dirtest, "-", vbTextCompare), 3)) = CInt(Left(faccreation.numaff.Value, InStr(1, faccreation.numaff.Value, "-", vbTextCompare) - 1)) Then
                    faccreation.Listblavoir.AddItem (Left(dirtest, InStr(1, dirtest, ".") - 1))
'                    ##
                End If
                dirtest = Dir
            Wend
            'adaptation des conditions de paiements
            Call Condition_de_paiement
    Else
            faccreation.Hide
            facmultinumaff.Show
    End If
'    End If
    Call Toutfait
End Sub

et l'adaptation de ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub numaff_Click()
    Static ancien As Integer
    Dim interdits As String
    interdits = "/1/" 'ici tes index de lignes interdites (n'oublie pas que la ligne 1 a l'index 0)
    If InStr(interdits, "/" & numaff.ListIndex & "/") > 0 Then
       numaff.ListIndex = ancien
    Else
       ancien = numaff.ListIndex
    End If
End Sub

voilà

faccreation = userform
numaff = combobox


(je te fait grâce des 600 autres ligne du userform )

[ucfoutu]

Bon...

J'ignore ce qui, chez toi, pourrait ne pas aller...

Je te suggère par ailleurs d'oublier ton évènement Change.

Regarde bien le code du click, calmement :

Tu devrais y découvrir assez facilement que tes instructions additionnelles (celles que tu as mises dans l'évènement Change) peuvent tout simplement figurer dans la clause Else, en y remplaçant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

numaff.Value

qui n'est au bout du compte que le contenu de l'article sélectionné
par, donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

numaff.list(listindex)

qui est la même chose ...