Macro Tableau - si cellule vide fin de tableau

[Freddy]

bonjour, avec l aide d un des forumeurs de xld, j'ai obtenu une macro avec en partie ce code :

ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(Cells(debut, 1), Cells(lig, col)), PlotBy:= _
xlColumns

pour la variable lig voici à quoi elle renvoie

lig = ActiveCell.Row

la macro lit le tableau et génère un histogramme de manière automatique...

le souci c'est que la prise en compte du tableau ne s'arrete pas à la première cellule vide ... comme je l 'espérais...En fait, si j'ecris quoi que ce soit meme 10lignes sous mon tableau, c'est pris en copte dans le graph...sil'un d'entre vous à une idée de comment faire


Merci

Fred

 

[skoobi]

Re : Macro Tableau - si cellule vide fin de tableau

Bonsoir,
et pour la variable debut?
en fait il faudrait que tu nous envoie tout le code ou mieux le fichier zippé < 48.8 ko.

 

[pierrejean]

Re : Macro Tableau - si cellule vide fin de tableau

bonjour Fred

avec le peu que tu nous en dit il est difficile de t'aider

lig devrait definir la derniere ligne de ton tableau et non celle de la cellule active
peux-tu juste avant le declenchement de ta macro selectionner la dernier ligne de ton tableau ??

edit
avais pas rafraichi

Salut Skoobi

 

[Freddy]

Re : Macro Tableau - si cellule vide fin de tableau

voici le fichier ... 🙂

c'est une macro qui permet d'adapter le graph à l'evolution du tableau (si j'ajoute une colonne 2007 ou une ligne new york, le graph l integre parfaitement)

mais bien que présentement, je puisse positionner le tableau ou je veux sur ma feuille, si je souhaite ecrire quelque chose en dessous, ca l'inclus dans le graph... ce que je voudrais c'est définir la cellule de départ... et que la macro s'arrete dès que al ligne et la colonne est vide...

Merci !!!
Fred

 

[pierrejean]

Re : Macro Tableau - si cellule vide fin de tableau

re

vois si cela te convient:

nouvelle definition de lig:

...............
Cells(debut + 1, 1).Select 'modif
    Selection.End(xlDown).Select 'modif
    'Range("A65536").Select
    'Selection.End(xlUp).Select
    lig = ActiveCell.Row
......................

 

[Freddy]

Re : Macro Tableau - si cellule vide fin de tableau

Merci BCP Pierre Jean ! c'est très exatement ce que je voulais 😉 c'ets super sympa...

juste...enfin sans abuser... je me fais la main en modifiant... voila, j ai un nouveau tableau avec un autre style de graph dont j'ai enregistré la macro...
tout marche presque à merveille à ceci pret que j'aimerais inclure un élément que je ne parvient pas à ajouter...

En effet, je souhaiterais ajouter les années à ce graphique ... et je ne trouve pas ou modifier le code pour ce faire ...

je joint le fichier avec le graph généré en auto et en dessous le graph généré manuellement, tel que j aimerais qu'il soit ...

Merci Bcp par avance 😉 bonne apres midi

Fred

 

[pierrejean]

Re : Macro Tableau - si cellule vide fin de tableau

bonsoir Fred

l'ajout de la 1ere ligne modifie la façon de chercher le debut et la lig

modifs:

debut = ActiveCell.Row - 2

Cells(debut + 2, 1).Select 'modif

 

[Freddy]

Re : Macro Tableau - si cellule vide fin de tableau

pfff j avais modifié seukement une ligne sur les 2 ! MERCI !!!!

C vraiment sympa ! 😱)

 

[Freddy]

Re : Macro Tableau - si cellule vide fin de tableau

Mais la je viens de constater k il ne s arret plus à la fin du tableau mais 2cellules avant la fin ! :'( arghh c dur ... 😛
une idée ?

Merci
Fred

 

[pierrejean]

Re : Macro Tableau - si cellule vide fin de tableau

re Fred

quelle menue modif as-tu introduite cette fois mmmmmmmmmmmm !!!

avec le fichier precedent cela ne se produisit pas

 

[Freddy]

Re : Macro Tableau - si cellule vide fin de tableau

MDR

rhoo j apprend 😉 😱 pas facil dailleurs comme language ...

Mais dans le fichier que tu m as renvoyé, ca se produit...j ai rien modifié moi 😛 ... il prend tout sauf les 2 denrnières colonnes du tableau 😕 je viens de verifier ...

 

[pierrejean]

Re : Macro Tableau - si cellule vide fin de tableau

re

mes excuses
tu as ecris 2 cellules et j'ai traduit par 2 lignes au lieu de 2 colonnes

voila

modif: Range("IV" & debut + 1).Select

 

[fred65200]

Re : Macro Tableau - si cellule vide fin de tableau

bonjour ou rebonjour à tous

modifie le code

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    titre = [B1]
    debut = 1 'Range("A1") '.End(xlDown).Row - 2
    col = Cells(2, Cells.Columns.Count).End(xlToLeft).Column
    lig = Cells(3, 1).End(xlDown).Row
    nbr_graph = ActiveSheet.ChartObjects.Count
    nom_graph = ChartObjects(1).Name
    ActiveSheet.ChartObjects(nom_graph).Activate
    ActiveChart.ChartArea.Select
    ActiveWindow.Visible = False
    'Selection.Delete
    Call creation_graph
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

Tu n'es pas obligé de sélectionner tes cellules pour connaître la dernière.
plus efficace

 

[Freddy]

Re : Macro Tableau - si cellule vide fin de tableau

merci merci !!!! 😱) !

 

[fred65200]

Re : Macro Tableau - si cellule vide fin de tableau

re

pierrejean
je me permets de modifier ce code

modif: Range("IV" & debut + 1).Select

car sur Excel 2007, la dernière colonne est XFD

Cells(debut + 1, Cells.Columns.Count).Select

cordialement