Discussion :

[Dev_noob]

Bonjour à vous tous,

Je dois manier plusieurs tableaux de tailles différentes dans de nombreuses feuilles, du style copier/coller. Mon objectif principal est d'éviter à devoir faire les C/C à la main.

Pour le moment je cherche simplement à sélectionner le tableaux entier, sachant que :
- Il n'y a qu'un tableau par feuille
- Le nombre de ligne est variable
- La colonne de gauche, de droite et la première ligne sont fixes :
C'est-à-dire que la premier ligne est toujours la n°2, que la première colonne est la B et que la dernière est la J

Afin d'identifier la dernière ligne et de trouver la dernière case rempli de la dernière colonne, j'ai ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ActiveCell.SpecialCells(xlLastCell).Select 'Sélectionne la dernière case du tableau tout en bas à droite  
ActiveCell.Offset(-1, -4).Select 'Corrige un décalage que j'explique par une mise en forme des cellules (inintéressant pour moi)

L'idée serait de sélectionner la case active et B2, de cette manière le tableau serait sélectionné...

Du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(B2,ActiveCell).Copy

Mais ça marche pas... Des suggestions ?

Merci d'avance pour votre aide en espérant avoir été assez clair pour vous..

[Tylert]

J'ai une solution avec une hyptohèse: tu n'as pas de ligne completement vide dans ton tableau ou tu connais la taille max d'un tableau.

Tu peux créer une matrice (Array) de type variant avec un taille max arbitraire (assez grande pour contenir n'importe lequel de tes tableaux).
Ensuite, tu fais une boucle qui copie la ligne courante de la feuille à copier dans la premiere ligne de ta matrice jusqu'à avoir atteint une ligne vide ou la taille max de ton tableau (en fonction de ce qui marche) en incrémentant la ligne courante.
et après tu recopies le contenu de ton array dans ta feuille de destination avec une boucle en incrémentant la ligne de la matrice et une condition sur ligne de l'array vide ou taille max d'un tableau atteinte dans l'array.

Après je suis sur que ponte de l'Excel va nous sortir une solution en trois ligne avec de vrais fonction Excel VBA

[Menhir]

Pour le moment je cherche simplement à sélectionner le tableaux entier, sachant que :
- Il n'y a qu'un tableau par feuille
- Le nombre de ligne est variable
- La colonne de gauche, de droite et la première ligne sont fixes :
C'est-à-dire que la premier ligne est toujours la n°2, que la première colonne est la B et que la dernière est la J

Il y a de nombreuses solutions, par exemple en passant par un Cell(Rows.Count, "B").End(xlUp) mais comme tu ne dis pas s'il y a une colonne dont on est sûr qu'elle est remplie dans la dernière ligne, je préfère opter pour une solution plus fiable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Fin As Long
Fin = ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
Range("B2:J" & Fin).Copy

On pourrait se passer de la variable intermédiaire mais ça fait plus propre écrit comme ça.

[Dev_noob]

Merci beaucoup à vous deux, vous m'avez beaucoup aidé,
Menhir, ton code correspond parfaitement à mes attentes !

Encore merci !

[patricktoulon]

bonjour
perso pour moi la question est soit mal formulée soit un gros trou dans le raisonnement

un tableau c'est une cellule de début et une cellule de fin QU IL SOIT REMPLI OU NON !!!

usedrange.specialcells(xllastcel) te donnera la dernière utilisée du usedrange etpas forcement celle du tableau!!!

si tu devais par exemple c/c ton tableau pour le completer dans une autre feuille ....ben tu est justement dans le trou car tu n'aurais pas les lignes vides au départ avec leurs mises en formes etc....

[Patrice740]

Bonjour,

La propriété qui renvoie un tableau complet à partir d'une de ses cellules c'est .CurrentRegion :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuil1").Range("B2").CurrentRegion.Copy

[patricktoulon]

re
bonsoir patrice
et ben non c'est pas bon non plus car avec currentregion des qu'une cellule n'est plus entourée d'autre valeurs currentregion s'arrête
conclusion bonnet blanc/blanc bonnet
exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
MsgBox Range("A1").CurrentRegion.Address
End Sub

[Patrice740]

Re

bonsoir patrice
et ben non c'est pas bon non plus car avec currentregion des qu'une cellule n'est plus entourée d'autre valeurs currentregion s'arrête
conclusion bonnet blanc/blanc bonnet

Non, dans ce cas il ne s'agit plus d'un tableau !!!!
Je n'ai pas parlé de plage de cellules :

... qui renvoie un tableau ...

Un tableau ne comporte ni ligne entièrement vide, ni colonne entièrement vide !

[patricktoulon]

re
@patrice
je ne pense pas que le demandeur parle de tcd ou tableau structuré mais bien de range ,parce que sinon la question elle même serait inutile car un tableau porte un nom ( pas besoins d'aller chercher la first et lastcell)
et entre parenthèses un tableau structuré peut très bien avoir une ligne ou une colonne vide

[Patrice740]

je ne pense pas que le demandeur parle de tcd ou tableau structuré

Moi non plus !
Simplement d'une plage de données non interrompue qu'Excel identifie automatiquement comme un tableau, sur lequel il peut mettre un filtre, faire un tri, etc ... sans qu'il soit nécessaire d'en préciser la dimension, ce qui, bien évidemment, s'applique aussi aux autres tableaux (structurés, croisés dynamiques) mais pas seulement.

[Menhir]

Il doit y avoir une bonne douzaines de façon de trouver la limite basse d'une liste de données.
Mais sans savoir exactement à quoi ressemble les données sources, il est impossible de donner une formule qui délimitera à coup sûr cette liste.

La formule que j'ai donné avec UsedRange était "a maxima" mais ne fonctionnera pas s'il y a des cellules occupées après la liste traitée.
Une formule avec CurrentRegion est "a minima" mais ne fonctionnera pas s'il y a trop de "trous" dans les données.
Impossible d'utiliser End sans savoir quelle colonne peut servir de référence.
Idem pour la poignée d'autres. Chacune peut ne pas fonctionner en fonction des cas de figure.

Il est impossible de savoir quelle est la meilleure sans connaitre le remplissage des données sources.

[Pierre Fauconnier]

Salut.

Je ne peux qu'être d'accord avec Patrice. Si on parle d'un tableau, CurrentRegion fait parfaitement l'affaire, car un tableau ne comporte pas de ligne ou de colonne entièrement vide. Et je ne parle ici ni de TCD ni de table de données.

Les autres cas illustrés ne parlent pas de tableaux, mais de données éparses dans la feuille, et dans ce cas, il faudra utiliser UsedRange comme le préconise Menhir.

[...]
et entre parenthèses un tableau structuré peut très bien avoir une ligne ou une colonne vide

Il est impossible d'avoir une colonne entièrement vide dans un tableau structuré. En effet, un tableau structuré impose que chaque colonne ait un intitulé, ce qui empêche la colonne entièrement vide. (cfr ce point de mon tuto sur les tables de données, ainsi que celui-ci)

Pour ce qui est d'avoir une ligne entièrement vide, c'est possible, mais largement déconseillé, car tout comme il serait à mon avis anormal d'avoir une fiche vierge en plein milieu de tas de fiches complétées, cela n'a pas de sens d'avoir une ligne vide en plein milieu de lignes remplies, et cela complique le traitement des données, notamment par formules (cfr ce point de mon tuto sur les tables de données)