Union : Pb de syntaxe

**VB-b-a-ba** · 06/02/2019, 09h20

Bonjour

Avec le code suivant je souhaite juste ajouter une cellule a une plage nommée après m'être assurée que cette plage n'est pas vide.

Rien à faire cela ne marche pas

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
 
Dim Sc1 As Integer
Dim Sc2 As Integer
Dim Sc3 As Integer
Dim Sc4 As Integer
Dim Sc5 As Integer
 
Dim oCellule As Object
Dim maplage As Range
 
'******Scenario 1
 Set oZOneatestersc1 = Sheets("calculs").Range("f4:f25")
 
For Each oCellule In oZOneatestersc1
 
If oCellule = "OUI" Then Sc1 = Sc1 + 1
 
Next oCellule
 
'******Scenario 2
Set oZOneatestersc2 = Sheets("calculs").Range("g4:g25")
 
For Each oCellule In oZOneatestersc2
 
If oCellule = "OUI" Then Sc2 = Sc2 + 1
 
Next oCellule
 
'******Scenario 3
Set oZOneatestersc3 = Sheets("calculs").Range("h4:h25")
 
For Each oCellule In oZOneatestersc3
 
If oCellule = "OUI" Then Sc3 = Sc3 + 1
 
Next oCellule
 
'******Scenario 4
 
Set oZOneatestersc4 = Sheets("calculs").Range("i4:i25")
 
For Each oCellule In oZOneatestersc4
 
If oCellule = "OUI" Then Sc4 = Sc4 + 1
 
Next oCellule
 
'******Scenario 5
 
Set oZOneatestersc5 = Sheets("calculs").Range("j4:j25")
 
For Each oCellule In oZOneatestersc5
 
If oCellule = "OUI" Then Sc5 = Sc5 + 1
 
Next oCellule
 
 
 
If Sc1 > 0 Then Set maplage = Sheets("calculs").Range("f3")
 
If Sc2 > 0 Then
    If maplage Is Nothing Then Set maplage = Sheets("calculs").Range("g3") Else Set maplage = Union(maplage, Sheets("calculs").Range("g3"))
    End If
 
If Sc3 > 0 Then
    If maplage  Is Nothing Then Set maplage = Sheets("calculs").Range("h3") Else Set maplage = Union(maplage, Sheets("calculs").Range("h3"))
    End If
 
If Sc4 > 0 Then
    If maplage  Is Nothing Then Set maplage = Sheets("calculs").Range("i3") Else Set maplage = Application.Union(maplage, Sheets("calculs").Range("i3"))
    End If
 
If Sc5 > 0 Then
    If maplage  Is Nothing Then Set maplage = Sheets("calculs").Range("j3") Else Set maplage = Union(maplage, Sheets("calculs").Range("j3"))
    End If
 
ActiveWorkbook.Names("Liste_scenario").Delete
ActiveWorkbook.Names.Add Name:="Liste_scenario", RefersTo:=maplage

**halaster08** · 06/02/2019, 09h31

Envoyé par VB-b-a-ba

Rien à faire cela ne marche pas

Peux tu être un peu plus précis ?
Un message d'erreur ? si oui lequel ? et a quel ligne ? Quels sont les valeurs de tes variables au moment de l'erreur
Si non que se passe-t-il ?

**zenpbb** · 06/02/2019, 10h04

Bonjour,
Probablement que Sc1, Sc2, Sc3, Sc4 et Sc5 valent 0 en sortie de tes 5 boucles et que donc maPlage vaut Nothing.

Es-tu sûr d'avoir au moins 1 "OUI" (en majuscules et sans espaces) là où tu cherches ?
Essaie peut-être en remplaçant toutes les occurrences de

Code :

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

If oCellule = "OUI" Then

par

Code :

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

If UCase(Trim(oCellule.Value)) = "OUI" Then

Et rajoute pourquoi pas un test avant de créer le nom, du style :

Code :

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

1
2
3
4
5
6
If maplage Is Nothing Then
    MsgBox "Pas de OUI"
Else
    ActiveWorkbook.Names("Liste_scenario").Delete
    ActiveWorkbook.Names.Add Name:="Liste_scenario", RefersTo:=maplage
End If

**mercatog** · 06/02/2019, 10h10

Bonjour
Ou autrement en utilisant la fonction NB.SI d'Excel

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
Sub Test()
Dim MaPlage As Range, c As Range
 
With Worksheets("Calculs")
    For Each c In .Range("F3:J3")
        If Application.CountIf(c.Offset(1).Resize(22), "Oui") > 0 Then
            If MaPlage Is Nothing Then
                Set MaPlage = c
            Else
                Set MaPlage = Union(MaPlage, c)
            End If
        End If
    Next c
End With
 
If Not MaPlage Is Nothing Then MsgBox MaPlage.Address
End Sub

**VB-b-a-ba** · 06/02/2019, 14h40

Envoyé par halaster08

Peux tu être un peu plus précis ?
Un message d'erreur ? si oui lequel ? et a quel ligne ? Quels sont les valeurs de tes variables au moment de l'erreur
Si non que se passe-t-il ?

Bonjour
Et bien
Les variables Sc1 Sc2 etc sont par exemple de 0, 2,0, 7, 5,

Il ajoute bien la valeur pour sc2 c'est à dire la cellule "g3" mais ensuite pour sc4 il n'ajoute pas la valeur, la variable maplage n'est pas actualisée est reste sur la première cellule ajoutée : L'union ne se fait pas.
Pas de message d'erreur donc.

Merci

**halaster08** · 06/02/2019, 14h55

Pas de problème chez moi avec le code ci dessous:

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
Sub aa()
Dim maplage As Range
 sc1 = 0
 sc2 = 2
 sc3 = 0
 sc4 = 7
 sc5 = 5
If sc1 > 0 Then Set maplage = Sheets("calculs").Range("f3")
 
If sc2 > 0 Then
    If maplage Is Nothing Then Set maplage = Sheets("calculs").Range("g3") Else Set maplage = Union(maplage, Sheets("calculs").Range("g3"))
    End If
 
If sc3 > 0 Then
    If maplage Is Nothing Then Set maplage = Sheets("calculs").Range("h3") Else Set maplage = Union(maplage, Sheets("calculs").Range("h3"))
    End If
 
If sc4 > 0 Then
    If maplage Is Nothing Then Set maplage = Sheets("calculs").Range("i3") Else Set maplage = Application.Union(maplage, Sheets("calculs").Range("i3"))
    End If
 
If sc5 > 0 Then
    If maplage Is Nothing Then Set maplage = Sheets("calculs").Range("j3") Else Set maplage = Union(maplage, Sheets("calculs").Range("j3"))
    End If
Debug.Print maplage.Address '$G$3,$I$3:$J$3
End Sub

Tu es sur que tes variables SC* ont les valeurs que tu attends ?

**VB-b-a-ba** · 06/02/2019, 15h02

oui c'est ça
si c'est = 0 je n'ajoute rien mais si il y a au moins 1 oui donc >0 alors j'ajoute la cellule à la plage.

**halaster08** · 06/02/2019, 15h23

oui c'est ça
si c'est = 0 je n'ajoute rien mais si il ya au moins 1 oui donc >0 alors j'ajoute la cellule à la plage

Donc en fixant les valeurs des variables sc* le code est fonctionnel, l'erreur doit se trouver dans ta manière de les calculer
Lance donc ta macro en mode pas à pas (touche F8) et vérifie si le calcul se passe comme tu l'attends

As-tu essayé le code proposé par Mercatog quelques posts plus bas?

**VB-b-a-ba** · 08/02/2019, 09h06

Envoyé par halaster08

Pas de problème chez moi avec le code ci dessous:

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
Sub aa()
Dim maplage As Range
 sc1 = 0
 sc2 = 2
 sc3 = 0
 sc4 = 7
 sc5 = 5
If sc1 > 0 Then Set maplage = Sheets("calculs").Range("f3")
 
If sc2 > 0 Then
    If maplage Is Nothing Then Set maplage = Sheets("calculs").Range("g3") Else Set maplage = Union(maplage, Sheets("calculs").Range("g3"))
    End If
 
If sc3 > 0 Then
    If maplage Is Nothing Then Set maplage = Sheets("calculs").Range("h3") Else Set maplage = Union(maplage, Sheets("calculs").Range("h3"))
    End If
 
If sc4 > 0 Then
    If maplage Is Nothing Then Set maplage = Sheets("calculs").Range("i3") Else Set maplage = Application.Union(maplage, Sheets("calculs").Range("i3"))
    End If
 
If sc5 > 0 Then
    If maplage Is Nothing Then Set maplage = Sheets("calculs").Range("j3") Else Set maplage = Union(maplage, Sheets("calculs").Range("j3"))
    End If
Debug.Print maplage.Address '$G$3,$I$3:$J$3
End Sub

Tu es sur que tes variables SC* ont les valeurs que tu attends ?

l'erreur doit être en amont avec les noms ou autre chose alors, je vais reconstruire par morceau et voir quand ca ne marche plus

**VB-b-a-ba** · 10/02/2019, 10h44

Bonjour,

En fait le boulot n'était pas terminé, je regardais la valeur de la variable au lieu de regarder la référence ce qui me donnait l'impression que cela ne marchait pas....
Bref j'avais juste mais je ne le savais pas.....

Mais vos bouts de code vont me permettre de faire mieux
Merci

Union : Pb de syntaxe [XL-2016]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager