Problème Range et select

Version imprimable

Bonjour,

J'ai crée une macro dont le code est le suivant :

Code:

1
2
3
4
5
6
7
8
Dim Selection1 As String
Windows("Operation.xls").Activate
 
Selection1 = "D13:G13,I13:L13,N13:R13,T13:X13,Z13:AD13,AF13:AJ13,AL13:AP13,AR13:AV13,AX13:BB13,BD13:BH13,BJ13:BN13,BP13:BT13,"
Selection1 = Selection1 & "D14:G14,I14:L14,N14:R14,T14:X14,Z14:AD14,AF14:AJ14,AL14:AP14,AR14:AV14,AX14:BB14,BD14:BH14,BJ14:BN14,BP14:BT14,"
Selection1 = Selection1 & "D18:G18,I18:L18,N18:R18,T18:X18,Z18:AD18,AF18:AJ18,AL18:AP18,AR18:AV18,AX18:BB18,BD18:BH18,BJ18:BN18,BP18:BT18"
 
Range(Selection1).Select

Selement, VBA me met l'erreur suivante : "la méthode Range de l'objet global à échoué"....

Merci

Selection de cellules

Bonjour,

Le problème vient de la concaténation.

Tu peux essayer

Code:

1
2
3
4
5
6
7
8
9
Public Sub ESSAI4()
 
Set Selection1 = Range("D13:G13,I13:L13,N13:R13,T13:X13,Z13:AD13,AF13:AJ13,AL13:AP13,AR13:AV13,AX13:BB13,BD13:BH13,BJ13:BN13,BP13:BT13")
Set Selection2 = Range("D14:G14,I14:L14,N14:R14,T14:X14,Z14:AD14,AF14:AJ14,AL14:AP14,AR14:AV14,AX14:BB14,BD14:BH14,BJ14:BN14,BP14:BT14")
Set Selection3 = Range("D18:G18,I18:L18,N18:R18,T18:X18,Z18:AD18,AF18:AJ18,AL18:AP18,AR18:AV18,AX18:BB18,BD18:BH18,BJ18:BN18,BP18:BT18")
 
Union(Selection1, Selection2, Selection3).Select
 
End Sub

Ne pas oubler "Set" car tu affectes une variable à un objet.

Cordialement.

Marcel

03/09/2010, 15h37
nicoosito

:ccool: Merci beaucoup,