XL 2021 Paramètres de "Range" en VBA

[Constantin]

Bonjour,
Dans le fichier joint, ouvrez la macro "IdentifierPointsCollecte"...

A l'origine (grâce à la contribution éclairée de plusieurs d'entre vous), la sélection des cellules à prendre en compte correspondait à [Plan_Magasin] ce qui avait le désagrément de supprimer toute la colorisation (fond et police) de la feuille "Plan".

J'avais pour objectif d'épargner les cellules relatives au "mobilier" pour ne modifier que les cellules relatives aux emplacements (Ex : A000, B50...)
En tâtonnant, j'ai créé des tables (Données 1 à 7) que j'ai regroupées dans l'objet Range. J'ai du faire plusieurs tables parce que le contenu de chaque table ne pouvait contenir qu'un nombre limité de cellules ou de pavés de cellules.

Mes questions après de nombreuses recherches infructueuses sur les forums :
- Quels sont les paramètres à prendre en compte pour créer des tables contenant des cellules ou pavés de cellules séparées (qualitatifs et quantitatifs)
- Combien peut-on insérer de tables (ou références) dans l'objet "Range"

Si vous pouvez m'éclairer...

Joyeuses Pâques !

Pierre

 

[job75]

Bonsoir Constantin,

- Combien peut-on insérer de tables (ou références) dans l'objet "Range"

S'il s'agit d'arguments Range en accepte 1 ou 2 :

Range("A1", "A5").Select

Avec un argument texte le texte est limité à 255 caractères :

Range("A1,A3,A5,A7,A9,A11").Select

A+

 

[Constantin]

Merci Job75. De fait dans le deuxième cas, ça laisse pas mal de possibilités.
As-tu une réponse sur le contenu d'une table (ou liste ?)
Bonne journée
Pierre

 

[Constantin]

Re-bonjour Job75,
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.
Mais connais-tu la règle qui régit cette quotité disponible pour la création d'une table contenant des éléments séparés sur une feuille ?
Je ne suis pas très doué, tu le sais bien, mais j'aime comprendre...
Cordialement,

Pierre

 

[mapomme]

Bonjour @Constantin, à tous,

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.

Fichier joint sans aucun code VBA. La précision annoncée n'est pas au rendez-vous .

 

[mapomme]

Re,

Juste pour la curiosité, voir ICI.

 

[Constantin]

Bonjour mapomme,
Il n'y a de fait aucune programmation dans ce fichier et pour cause :
- j'ai surtout répondu à Job75 qui m'a bcp aidé lors de la construction de mon outil de cueillette dans mon hypermarché.
- Pour comprendre ma question, hors contexte VBA, il faut remonter à l'échange #3.
- Au vu de ce fichier, je le précise à nouveau, j'essaye de comprendre ce qui limite le nombre d'éléments que l'on peut inclure dans une table, d'où ce petit fichier qui montre les limites ou exigences qu'impose la construction d'une table...
Dans l'exemple présenté, les tables sont nommées Essai1 à Essai4.

Je lis dans ton intéressante réponse :

Cellules non contiguës pouvant être sélectionnées

2 147 483 648 cellules

Je suis bien loin du compte. Dois-je comprendre que la mémoire décide de ce qu'elle veut ou peut bien enregistrer ?
En tous cas, ton lien me servira beaucoup

Bien cordialement,

Pierre

 

[gbinforme]

Bonjour,

Dans l'exemple présenté, les tables sont nommées Essai1 à Essai4.

Pour comprendre la problématique j'aimerais savoir comment ces tables sont nommées car je ne vois pas ces noms dans le classeur.

 

[Constantin]

Bonjour gbinforme,
Ouvre le fichier EssaiX.
Pour visualiser les tables, clique en haut à gauche ( sous la barre d'accueil et en dessous de Fichier Accueil ) sur l'onglet déroulant de la cellule active.
Les listes (tables) s'affichent.
Bonne journée

Pierre

 

[Constantin]

Avec capture d'image...

 

[job75]

Bonjour Constantin, mapomme, gbinforme,

En VBA il existe la fonction Union qui permet de grouper plusieurs Range.

Dans le fichier joint cette macro sélectionne toutes les cellules jaunes :

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

A+

 

[job75]

D'expérience je peux vous dire que la fonction Union ne pose pas de problème pour unir quelques centaines de zones disjointes.

Au delà de 1000 zones elle prend beaucoup de temps.

 

[Constantin]

Bonjour Job75,
Merci de votre réponse. J'ai testé la macro et ça fonctionne nickel sur le fichier EssaiX !
Il faut maintenant que je comprenne comment je dois procéder pour intégrer cette fonction dans mon fichier Courses en sachant que je sélectionne les emplacements un par un et il y en a 251...
Il faut d'abord que je comprenne la syntaxe de cette macro et là, j'ai du pain sur la planche !
Ça sert à ça aussi la retraite.
Mille mercis.

Pierre

 

[job75]

je sélectionne les emplacements un par un et il y en a 251...

Avec Union il n'y aura aucun problème.

 

[Constantin]

Re...
J'ai "épluché" le code avec beaucoup de modestie. Si je comprends bien :
- P désigne l'emplacement de départ
- i et j reproduisent Q avec un décalage de 5 cellules
- Resize ajuste la taille des sélections à 2x2 cellules
Mais dans le cas présent les cellules ou pavés sont régulièrement disposés ce qui permet d'automatiser la reproduction du pavé de départ vers la droite puis vers le bas.

Mon problème se situe sur la feuille Y. J'ai disposé 40 pavés fusionnés sur la feuille. Comment avec "Union" saisir manuellement ces 40 pavés pour les avoirs tous ? Avec Union ? J'ai beau chercher, je ne trouve pas
J'ai reproduit la logique de la feuille X avec deux tables Essai5 et Essai6. Même problème que ceux décrits dans X...
Je ne vois pas comment intégrer toutes ces coordonnées dans la macro "IdentifierPointsCollecte" de mon fichier Courses, plus précisément en lieu et place de mon Range("Données1,.......,Données7). D'ailleurs, est-ce possible ?
J'y retourne !
Merci encore !

Pierre