Discussion :

[frunch]

Bonjour le forum,
Cà me le fait assez souvent, et je crois que çà bloque les pages aussi puisque çà génère des versions.
Par blocage, je veux dire que la LD ne s'ouvre pas.

et il faut que je ferme et rouvre le fichier pour que çà refonctionne.
Et je ne peux pas vous présenter le blocage car il a suffit que je fasse une version allégée du fichier pour que le blocage ne soit plus présent.
Pour ouvrir le formulaire, il faut faire un clic droit.
Voilà le code que je mets sur une liste déroulante :
- Avant l'initialize

Code :

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

1
2
3
4
5
6
7
8
9
Option Compare Text
Dim choix1()
Private Sub UserForm_Initialize()
'nom clients
    With Sheets("Clients")
        choix1 = Application.Transpose(.Range("B2:B" & .Range("B1000").End(xlUp).Row).Value)
        'liste en UF clt
        Me.nomClt.list = choix1
   end with

en évenement change :

Code :

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

1
2
3
4
5
Private Sub nomClt_Change() 'Grpe1-clients
  If Me.nomClt.ListIndex = -1 And IsError(Application.Match(Me.nomClt.Value, choix1, 0)) Then
        Me.nomClt.list = Filter(choix1, Me.nomClt.Text, True, vbTextCompare) 'liste réduite
        Me.nomClt.DropDown 'déroulement de la liste
  End If

Et en propriétes champ
Propriété match entry = none

mais il y a choix 1 à 4 et de 2 à 3 champs concernés par un choix.

Merci de votre aide