Discussion :

[ncl98]

Bonjour,
Je suis toujours sur mon formulaire sur feuille Excel. Je m'échine à essayer d'y insérer ou non des listes déroulantes différentes selon la valeur d'une autre liste déroulante.Cela doit s'effectuer à 6 reprises dans la feuille. J'ai opté (à tort ???) pour la boucle For .. Each après avoir nommé les arguments de la 1ère liste (SitFam). Le code fonctionne pour le 1er nom trouvé puis ... plus rien, car à priori la variable Sit (=range("SitFam")) conserve la première valeur choisie. De plus, il semble que mon code ne teste pas toutes les cellules nommées "SitFam".
Ou est l'erreur ? En vous remerciant par avvance.

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
36
37
38
39
40
41
Option Explicit
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim SitFam As String
Dim ligne As Integer
Dim Sit As Variant
 
 
Application.EnableEvents = False
 
ligne = Range("SitFam").Row
'Sit = Range("SitFam").Value
 
MsgBox Sit
 
For Each Sit In Sheets("Formulaire").Range("SitFam")
 
Set Sit = Range("SitFam")
MsgBox Sit 'pour vérifier la valeur de Sit
 
If Sit Is Nothing Then Exit For
 
    If Sit = "Marié(e)*" Then
       Call Module2.InsérerListeMariage
    Else
        If Sit = "Pacs*" Then
           Call Module2.InsérerListePACS
        Else
          Call Module2.SupprimerListeDéroulante
        End If
    End If
 
Sit = ""
 
Next
 
Application.EnableEvents = True
 
End Sub

[ARTURO83]

Bonjour,

Au premier coup d’œil, quelque chose m'interpelle:

Code :

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

    For Each Sit In Sheets("Formulaire").Range("SitFam")

Range("SitFam"), ici , on attend une plage à tester exemple: range("B2:B1000").

CDlt

[Menhir]

Code :

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

1
2
3
4
5
6
Dim SitFam As String
Dim Sit As Variant
 
For Each Sit In Sheets("Formulaire").Range("SitFam")
 
Set Sit = Range("SitFam")

Ces éléments sont incohérents.

C'est le For Each qui donne sa valeur à Sit, il est inutile de faire un Set juste après.

Le For Each tel qu'il est écrit pourrait fonctionner si "SitFam" est le nom d'une plage de cellules nommées dans ta feuille.
Mais dans ce cas, que vient faire là cette déclaration d'une variable du même nom de type String ?
Si "SitFam" n'est pas un nom de plage mais une variable string dans laquelle tu veux mettre les références de la plage à scruter, alors il faut la renseigner avant le For Each (par exemple SitFam = "A1:A9") et ne pas mettre de guillemets pour la désigner dans le Range.

De plus, pourquoi déclarer Sit comme Variant alors qu'il serait plus propre de la déclarer comme Range ?

[ncl98]

Désolé mais la déclaration de la variable SitFam est un "reste" d'une précédente version du code. "SitFam" est le nom de 6 cellules non contigües dans la feuille "Formulaire".
Le code est ainsi écrit aujourd'hui car de multiples versions ont été testées sans résultat satisfaisant, et ce, malgré de très nombreuses recherches sur divers forum. J'ai tenté d'intégrer vos suggestions mais cela reste infructueux. J'avoue être à court d'idée.
Encore merci.

[ARTURO83]

Essayez ceci

Code :

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

1
2
   Set SitFam = Range("B2:B1000") 'mettez votre plage
    For Each Sit In SitFam

[Menhir]

J'ai tenté d'intégrer vos suggestions mais cela reste infructueux. J'avoue être à court d'idée.

Il faudrait que tu montres le code résultant de ces modifications pour pouvoir te dire ce qui ne va pas.

De plus "cela reste infructueux", ça n'est pas très parlant comme description de dysfonctionnement.
Résultat erroné ? Quelle est la différence avec ce qui est souhaité ?
Bug ? Quel est le message d'erreur ?

[ncl98]

Avec la proposition d'ARTURO83 (post 5) apparait le message d'erreur

La méthode Range de l'objet worksheet a échoué

sur la ligne de code Set SitFam = Range("B7;B11").

Quant à tes aménagements, après quelques tâtonnements, cela semble fonctionner. Je m'en assurerai demain au bureau, en grandeur nature, et vous tiendrai au courant.

[ARTURO83]

ATTENTION à l'écriture Range("B7:B11") entre les 2 adresses, c'est 2 points ":" et non point virgule ";"

[ncl98]

Bonjour Menhir, bonjour ARTURO83
Çà y est, le code fonctionne grâce à vous. Le dysfonctionnement provenait :
1/ de la déclaration erronée des variables "Sit" et "SitFam"
2/ des cellules nommées "SitFam" qui ne font pas partie d'une plage mais sont non contigüe dans la feuille "Formulaire".
Sans parler des incohérences que j'ai écrites !
Un GRAND MERCI à vous.

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
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim SitFam As Range
Dim Sit As Range
 
 
Application.EnableEvents = False
 
 
For Each Sit In Sheets("Formulaire").Range("SitFam")
 
MsgBox Sit 'pour vérifier la valeur de Sit
 
If Sit Is Nothing Then Exit For
 
    If Sit = "Marié(e)*" Then
       Call Module2.InsérerListeMariage
    Else
        If Sit = "Pacs*" Then
           Call Module2.InsérerListePACS
        Else
          Call Module2.SupprimerListeDéroulante
        End If
    End If
 
Next
 
Application.EnableEvents = True
 
End Sub