S'il s'agit d'arguments Range en accepte 1 ou 2 :- Combien peut-on insérer de tables (ou références) dans l'objet "Range"
Range("A1", "A5").Select
Range("A1,A3,A5,A7,A9,A11").Select
Pour mieux préciser ma question, j'ai fait un petit test que tu trouveras en PJ. Au vu des résultats, il y a bien une quotité d'éléments que la sélection d'éléments séparés (cellules ou pavés) ne semble pas pouvoir dépasser.
Cellules non contiguës pouvant être sélectionnées | 2 147 483 648 cellules |
Pour comprendre la problématique j'aimerais savoir comment ces tables sont nommées car je ne vois pas ces noms dans le classeur.Dans l'exemple présenté, les tables sont nommées Essai1 à Essai4.
Sub Grouper()
Dim P As Range, Q As Range, i, j
Set P = [B15:C16]
Set Q = P
For i = 0 To 4
For j = 0 To 9
Set Q = Union(Q, P(1 + 5 * i, 1 + 5 * j).Resize(2, 2))
Next j, i
Q.Select
End Sub
Avec Union il n'y aura aucun problème.je sélectionne les emplacements un par un et il y en a 251...