Sélection de nombreuses cellules non-adjacentes en VBA

Bonjour à tous

Pour sélectionner plusieurs cellules non-adjacentes on peut utiliser un code du type :

Sub Selectionner()
    MesCellules = "A1,C2,D5"
    Range(MesCellules).Select
End Sub

Mais voilà, si Len(MesCellules) est > à 255 on obtient une Erreur d'exécution '1004': La méthode 'Range' de l'objet '_Global' a échoué.
Ma question est donc la suivante : comment sélectionner en même temps un grand nombre de cellules pas forcément adjacentes en VBA ?
Un grand merci par avance à qui me répondra !

Bonjour Stéphane1972,

Tu peux essayer comme cela.

Sub SelCell()
Dim CellOne, CellTwo As String
CellOne = "A10,B12,C13"
CellTwo = "A15,B16,C17"
Range(CellOne & "," & CellTwo).Select
End Sub

Chaque plage CellOne, CellTwo doit respecter chacune la limite de 255 caractères liée au type String.

Note que le Range acceptera plusieurs Cell... si tu les sépares par & "," &

Si souci reviens sur le sujet.

Bons tests, bonne continuation.

Merci X Cellus de t'être penché sur mon problème, je viens d'essayer ta solution avec un CellOne de 208 caractères (54 références de cellule) et un CellTwo de 179 caractères (45 cellules) et j'ai toujours la même erreur 1004. Mon problème reste entier donc

Slts

Bonjour Stéphane1972,

Mon problème reste entier donc

Voici 464 caractères. Soit 233 pour CellOne et 231 pour CellTwo. Ton problème n'est donc plus entier...

Sub SelCell()
Dim CellOne, CellTwo As String
'Cellone = 233 caractères
For L = 1 To 12 Step 2
For C = 1 To 26 Step 2
CellOne = CellOne & Chr(64 + C) & L & ","
Next C, L
CellOne = Left(CellOne, 233)
Range("A14") = CellOne
For L = 15 To 26 Step 2
For C = 1 To 26 Step 2
'CellTwo = 231 caractères
CellTwo = CellTwo & Chr(64 + C) & L & ","
Next C, L
CellTwo = Left(CellTwo, 231)
Range("A28") = CellTwo
'L'ensemble = 464 caractères
Union(Range(CellOne), Range(CellTwo)).Select
End Sub

L'ensemble est bien au dessus de la limite de 255 caractères. Pas d'erreur 1004. Cela fonctionne correctement.

Bonne continuation.

Re-bonjour X Cellus

Formidable ton code ! problème ré-so-lu ! le secret résidait dans : Union(

Merci beaucoup pour ton aide