sélection de cellule dans CurrentRegion

Bonjour,

J'ai beau chercher et tourner dans tous les sens, je n'arrive pas a faire un truc tout simple en VBA excel 2010 (qui doit être compatible 2007)

Par

Code:

---

Range("D6").CurrentRegion.Select

---

j'ai ma plage concernée
et je veux aller sur la dernière cellule (exemple si ma plage est : D6:W50, je veux aller en W50.

Merci pour votre aide,
vous avez du constater que je suis encore novice en VBA.

Bonjour,

il suffit d'utiliser .Cells.Count mais un bon code n'utilise pas Select, quel est le but ?





__________________________________________________________________________________________________
Tous unis, tous Charlie

toutes les semaines je rajoute une colonne (colonne de la semaine passée) et il peut arriver que je rajoute une ligne dans ma plage.

Ma dernière ligne est une ligne de total des lignes précédentes.

j'ai plusieurs plages qui se suivent.

exemple :

grandes surfaces
Auchan
Carrefour
Leclerc
TOTAL

grossistes
France
Etrangers
TOTAL

et je veux pouvoir me positionner sur la dernière colonne de chaque ligne TOTAL pour faire le total. sachant que dans mon exemple, en grandes surfaces j'ai trois marques mais que demain je pourrai en avoir quatre. par conséquent toutes mes lignes TOTAL seront décalées.

je ne sais pas si mes explications sont claires ?

Bonjour,
Pour sélectionner la dernière cellule d'une plage à l'aide de CurrentRegion et à partir d'une cellule se trouvant au sein de cette plage.
Exemple

Code:

---

1 2 3

With Range("C6").CurrentRegion .Cells(.Rows.Count, .Columns.Count).Select End With

---

Ou encore

Code:

---

1 2 3

With Range("C6").CurrentRegion .Item(.Cells.Count).Select End With

---

Mais comme l'a très justement fait remarquer Marc, on évite d'utiliser Select et Selection. Tu pourrais parfaitement insérer la formule directement par VBA.
Il y a d'autres possibilités comme le tableau croisé dynamique

Merci, après test votre solution me va tout a fait.
merci aussi pour vos conseils a tous les 2 qui ne pourront m'être que bénéfiques.

Pour le TDC, cela ne m'était pas trop possible car c'est le fichier est fournit par le client et pas mal de protections actives.

Merci encore.

je clos ma demande

Bonjour,

Même si la discussion est close:

Code:

---

Range("C6").CurrentRegion.SpecialCells(xlCellTypeLastCell).

---

vous permet de trouver la dernière cellule (attention, ça ne marche pas si il y a des filtres par exemple ou des discountinuités)