Discussion :

[Arsene12]

Bonjour,

je voudrais sélectionner l'union de deux plages de cellules spécifiées. Mon code est le suivant :

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
Sub SelectionPlages()
'
' SelectionPlages Macro
'
 
Sheets("Ma Feuille").Activate
 
Test1 = ActiveSheet.Range("C2:D3").Select
 
Test2 = ActiveSheet.Range("C5:D5").Select
 
Set y = Application.Union(Range("Test1"), Range("Test2")).Select
 
'
End Sub

J'obtiens l'erreur :

Code :

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

"la méthode range de l'objet global a échoué"

Pourriez-vous m'aider à résoudre ce problème, svp?
Merci d'avance,
Arsène

[BENNASR]

bonjour
je crois que le problème vient du .select que vous avez ajouté sur chaque ligne
il suffit de faire ça :

Code :

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

1
2
Set y = Application.Union(Range("C2:D3"), Range("C5:D5"))
y.Interior.Color = 65535

[MarcelG]

Bonjour,

1 - Select est une méthode, qui , la plupart du temps, dessert le code plus qu'il ne sert.
Et l'on ne peut affecter une méthode à une variable.
2 - On peut affecter une variable à un objet (ici Range). Pour ce faire, il faut faire précéder cette affectation par l'instruction Set
3 - En fin de code, il est opportun de libérer ces variables par

Code :

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

Set lavariable = Nothing

4 - La déclaration de variable dot être une règle.
Pour la rendre obligatoire
Menu du VBE Outils \ Options \ Editeur: rendre la déclaration des variables obligatoire
4 - Autre règle. Toujours rattacher les objets Range à leur feuille de calcul Parent (par un ".")

[Arsene12]

Merci beaucoup,

j'ai suivi toutes vos indications et j'ai toujours le même bug.

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
Sub SelectionPlages()
'
' SelectionPlages Macro'
 
Dim Test1 As Range, Test2 As Range, y As Range
 
Sheets("Mapage").Activate
 
Set Test1 = ActiveSheet.Range("C2:D2")
 
Set Test2 = ActiveSheet.Range("C5:D5")
 
Set y = Application.Union(Range("Test1"), Range("Test2"))
 
y.Select
 
Set lavariable = Nothing
 
End Sub

[patricktoulon]

re
bonjour
ton erreur est tres simple et tous les autres t'on suivis
tu confond un string avec un object range

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
Sub SelectionPlages()
'
' SelectionPlages Macro'
 
Dim Test1 As Range, Test2 As Range, y As Range
 
Sheets("Mapage").Activate
 
Set Test1 = ActiveSheet.Range("C2:D2")
 
Set Test2 = ActiveSheet.Range("C5:D5")
 
'Set y = Application.Union(Range("Test1"), Range("Test2"))
 Set y = Application.Union(Test1, Test2)
y.Select
 
Set lavariable = Nothing
 
End Sub

quand tu fait

Code :

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

Set Test1 = ActiveSheet.Range("C2:D2")

test1 est un object range alors

Code :

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

Range("Test1")

te declenche une erreur forcement

car

Code :

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

 Range("object range ")

est une erreur car les arguments de range("..") doivent etre l'adress de la range et pas l'object lui meme
Pigé!!!

[MarcelG]

tous les autres t'on suivis

[Menhir]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub SelectionPlages()
   Dim Test1 As Range, Test2 As Range, y As Range
 
   Sheets("Ma Feuille").Activate
 
   Set Test1 = Range("C2:D3")
   Set Test2 = Range("C5:D5")
   Set y = Application.Union(Test1, Test2)
   y.Select
 
End Sub

Mais si ton but est seulement de sélectionner la plage :

Code :

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

1
2
3
4
Sub SelectionPlages()
   Sheets("Ma Feuille").Activate
   Application.Union(Range("C2:D3"), Range("C5:D5")).Select
End Sub