comment séléctionner la dernière colonne d'un tableau donné en vba

Bonjour,

Je voudrai séléctionner la dernière cellule d'une ligne d'un tableau. Moi j'ai essayé avec ce code mais ça marches pas :

Code:

---

1 2 3

Rows("1:1").Select dernière_cel_lign = Selection.End(xlUp).Column

---

J'ai même utilisé le code pour la sélection de la cellule vide qui est tout de suite après la dernière cellule pleine.

Code:

---

Sheets("Feuil2").Cells(dernière_cel_lign + 1, 2).Select

---

Et un autre code pour appliquer des données dans un tableau à un schéma:

Code:

---

ActiveChart.SetSourceData Source:=Range("A1:7"&dernière_cel_lign+1)

---

Voilà les codes si il y'a quelqu'un peut m'aider qui me fait signe et merçi d'avance.

cdt,
SKIP

Je ne suis pas sur mais essaye cela

Code:

---

Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count).Select

---

Bonjour,
ne serait-ce pas plutôt

Code:

---

1 2	dernière_cel_lign = Selection.End(xlUp).Row

---

Column pour colonne et Row pour ligne

bonjour à tous

vieilles instructions classiques valables avec version XL>=2007 ou <2007
pour la dernière colonne utilisée

Code:

---

der_col = Cells(1, Cells.Columns.Count).End(xlToLeft).Column

---

et pour les lignes

Code:

---

der_lig = Cells(Cells.Rows.Count, 1).End(xlUp).Row

---

der_lig, der_col en type long pour passage facile 200è à 2003

Bonjour,
Merçi Michel ça a marché, mais il y'a un autre problème j'ai le code suivant qui ne marche pas:

Code:

---

1 2 3 4 5

ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.PlotArea.Select ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.SetSourceData Source:=Range("A1:7"&dernière_cel_lign+1)

---

Je veux appliquer à un schéma des données contenu dans la plage A1 jusqu'à
V7, mais V change puisqu'elle correspond à la colonne qui est tout de suite après la dernière du tableau.

Merçi encore.
Cdt,
SKIP

Bonjour

change

Code:

---

ActiveChart.SetSourceData Source:=Range("A1:7" & dernière_cel_lign + 1)

---

ta dénomination "derniière_cel_lign" est très ambiguë !!! puisque tu cherches une colonne:derniere_cel_col serait + lisible pour la maintenance*** ; évite aussi les accents.
donc essaies

Code:

---

ActiveChart.SetSourceData Source:=Range(cells(1,1),cells(8,derniere_cel_col))

---

pour la différence entre "range" et "cells" regarde dans le tutoriel et/ou la FAQ excel de DVP

***: une bonne appli est celle qui est réalisée en vue d'une portabilité, maintenance et évolution faciles.

Bonjour,

Merçi Michel ça a marché. t'es vraiment un bon gars!!!! ;)

Cdt,
SKIP