[VBA] Récupérer la sélection en cours

Logiciel & apps Programmation
1

Bonjour, je cherche à me faciliter la création de graphique et voilà ce que j’ai jusqu’à présent. Je n’arrive pas à trouver comment dire au graphique que sa source est la sélection en cours. Merci d’avance pour le coup de main !

    Dim Title As String
    Title = InputBox("Nom du graphique")
    Dim Information As Range
    Dim Position As String
    Worksheets(1).Activate
    
    Charts.Add After:=Sheets(Sheets.Count)
    ActiveChart.ChartType = xlColumnClustered
    'ActiveChart.SetSourceData Source:=Selection, PlotBy:=xlRows
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=Title
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = Title
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    Worksheets(1).Activate

Bien sûr le code me met une erreur sur Selection qui n’est pas adéquat…

2

VBA deconne un peu avec le activate…

J’ai mémoire que WORKSHEET(1).selected, ou un truc dans le genre peu fonctionner quelques fois.

Essai

3

+1 pour le activate qui deconne

Je te conseil de faire un


Worksheets(1).select

Pour ce qui est de ton “selection”, le mieux est de faire un tour du coté de l’aide vba, avec comme mot clé currentregion et selectregion, en gros du genre:


Worksheets("Sheet1").Activate
ActiveCell.CurrentRegion.Select

ca te renvoie un objet range, ce qui va bien pour la source de donnée de ton graphique.

Le système du mot “selection” ne marche bien qu’avec word (et encore, ca dépend de la version)

Voilà

4

Merci impeccable !