Identifier et exploiter les coordonnées d'une cellule variable

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:

---

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:

---

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.. :)

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 :)

Citation:

---

Envoyé par Dev_noob

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:

---

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.

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

Encore merci !

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....


;)

Bonjour,

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

Code:

---

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

---

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:

---

1 2 3

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

---

Pièce jointe 493959

Re

Citation:

---

Envoyé par patricktoulon

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 :

Citation:

---

Envoyé par Patrice740

... qui renvoie un tableau ...

---

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

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

Citation:

---

Envoyé par patricktoulon

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.

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.

Bonjour menhir
parfaitement d'accords avec toi
d'où ma réflexion du debut quand a la détermination stricte du tableau des le départ
et je répète :"qu'il soit rempli ou non "
ou alors comme je l'ai dis : la question a été mal formulée;)

après si pour les lignes utilisées dans un range spécifié il y a le xlprevious du find dans une plage qui fonctionne très bien
ce qui correspondrait plus a la demande je pense que le demandeur est parti avec quelque chose qui lui convient

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.

Citation:

---

Envoyé par patricktoulon

[...]
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)