Macro Tableau - si cellule vide fin de tableau

skoobi

XLDnaute Barbatruc

• 7 Novembre 2007

• #2

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 7 Novembre 2007

• #3

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

 

Vote positif 0 Vote négatif

F

Freddy

XLDnaute Junior

• 7 Novembre 2007

• #4

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

 

Pièces jointes

• ExempleMacro4.xls

  44.5 KB · Affichages: 97
• ExempleMacro4.xls

  44.5 KB · Affichages: 93
• ExempleMacro4.xls

  44.5 KB · Affichages: 91

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 7 Novembre 2007

• #5

Re : Macro Tableau - si cellule vide fin de tableau

re

vois si cela te convient:

nouvelle definition de lig:

Code:

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

 

Pièces jointes

• ExempleMacro4.xls

  40.5 KB · Affichages: 91
• ExempleMacro4.xls

  40.5 KB · Affichages: 99
• ExempleMacro4.xls

  40.5 KB · Affichages: 93

Vote positif 0 Vote négatif

F

Freddy

XLDnaute Junior

• 8 Novembre 2007

• #6

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

 

Pièces jointes

• ExemplePJean.xls

  46 KB · Affichages: 88
• ExemplePJean.xls

  46 KB · Affichages: 84
• ExemplePJean.xls

  46 KB · Affichages: 77

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 8 Novembre 2007

• #7

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

 

Pièces jointes

• ExemplePJean.xls

  44.5 KB · Affichages: 67
• ExemplePJean.xls

  44.5 KB · Affichages: 73
• ExemplePJean.xls

  44.5 KB · Affichages: 72

Vote positif 0 Vote négatif

F

Freddy

XLDnaute Junior

• 9 Novembre 2007

• #8

Re : Macro Tableau - si cellule vide fin de tableau

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

C vraiment sympa ! 😱)

 

Vote positif 0 Vote négatif

F

Freddy

XLDnaute Junior

• 9 Novembre 2007

• #9

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 9 Novembre 2007

• #10

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

 

Vote positif 0 Vote négatif

F

Freddy

XLDnaute Junior

• 9 Novembre 2007

• #11

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 9 Novembre 2007

• #12

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

 

Pièces jointes

• ExemplePJean.xls

  35.5 KB · Affichages: 62
• ExemplePJean.xls

  35.5 KB · Affichages: 78
• ExemplePJean.xls

  35.5 KB · Affichages: 69

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 9 Novembre 2007

• #13

Re : Macro Tableau - si cellule vide fin de tableau

bonjour ou rebonjour à tous

modifie le code

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

 

Dernière édition: 9 Novembre 2007

Vote positif 0 Vote négatif

F

Freddy

XLDnaute Junior

• 9 Novembre 2007

• #14

Re : Macro Tableau - si cellule vide fin de tableau

merci merci !!!! 😱) !

 

Vote positif 0 Vote négatif

fred65200

XLDnaute Impliqué

• 9 Novembre 2007

• #15

Re : Macro Tableau - si cellule vide fin de tableau

re

pierrejean
je me permets de modifier ce code

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

Cliquez pour agrandir...

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

Code:

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

cordialement

 

Vote positif 0 Vote négatif