Sélectionner de nombreux tableaux par macro

[gourdin]

Bonjour,

Voici un exemple de mon petit problème :
Soit une feuille composée de 200 tableaux identiques de 20 lignes et 2 colonnes séparés les uns des autres de 50 lignes

On a donc :
Le 1e tableau = A1:B21, 2è tableau = A51:B71, 3e tableau = A101:B121 etc

Avec une macro, je souhaite sélectionner tous ces tableaux d’un coup.

Actuellement l’enregistreur de macro me propose :
Range("A1:B20,A51 :B70,A1 :101 ;B121 etc….").Select
Mais cela est plutôt fastidieux.

N’y aurait-il pas un code macro plus simple et plus court qui selectionne mes 200 tableaux d’un coup en utlisant le fait que tous ces tableaux sont identiques et séparés de 50 lignes

Merci

 

[Staple1600]

Re : Sélectionner de nombreux tableaux par macro

Bonjour

gourdin
Un fichier exemple serait apprécié.
Cela éviterait aux répondeurs potentiels de devoir créer chacun un fichier de test.

 

[Philippe68]

Re : Sélectionner de nombreux tableaux par macro

Bonjour,

Et en nommant les plages ? tous tes tableaux sur le même nom de plage ?

 

[Dranreb]

Re : Sélectionner de nombreux tableaux par macro

Bonjour
Avec une boucle un utilisant Union
Cordialement

 

[pierrejean]

Re : Sélectionner de nombreux tableaux par macro

bonjour gourdin

teste:

Sub select_tableaux()
Set zone = Range("A1:B20")
For n = 1 To 199
 x = (n * 50) + 1
 Set zone = Union(zone, Range("A" & x & ":B" & x + 20))
Next n
zone.Select
End Sub

Edit : Salut a tous

 

[gourdin]

Re : Sélectionner de nombreux tableaux par macro

Merci à tous

Le code de pierrejean fonctionne mais il a juste fallu que je rectifie une petite erreur car il selectionnait une ligne de trop
Sur la ligne de code : Set zone = Union(zone, Range("A" & x & ":B" & x + 20), j'ai mis 19 au lieu de 20.

Bonne journée