Discussion :

[FAUFAU57]

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 :

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

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.

[Marc-L]

Bonjour,

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





__________________________________________________________________________________________________
Tous unis, tous Charlie

[FAUFAU57]

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 ?

[Philippe Tulliez]

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 :

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

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

Ou encore

Code :

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

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

[FAUFAU57]

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

[vinc_bilb]

Bonjour,

Même si la discussion est close:

Code :

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

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)