Astuces Excel
  1. Astuces Excel
  3. Sélection de deux colonnes et création d'un graphique dans VBA
Intereting Posts
Prenez la formule à partir d'une autre base de la feuille de calcul sur la valeur dans le titre Comment appliquer la fonction Mid à cette string dans Excel? Créez un calendar de budget excel en référençant une colonne et une ligne Comment combiner une fonction d'expression régulière dans vlookup? C #: date Excel FromOADate flips jour et mois Le sorting d'une autre feuille de excel provoque différents résultats de VLOOKUP pouvez-vous utiliser des macros Excel pour placer des codes html autour du text sélectionné comment créer un "téléchargement" Pls wait … "msg pour download le file excel et charger sur SQL Server? vba: excel SAVE on close Méthode d'OLEObject ne fonctionnant pas dans Excel VBA CSV supprime tout après la 4ème virgule PasteSpecial causant un bug Filtrer les numbers à partir d'un file CSV à l'aide de Java Création de colors avec boucle Boucle macro Excel et ajout

Sélection de deux colonnes et création d'un graphique dans VBA

Bonjour, je suis assez nouveau pour VBA. J'essaie de créer un graphique avec des valeurs à partir de deux colonnes A1: A10, C1: C10 (c.-à-d. A et C). J'ai sélectionné ces deux colonnes avec la souris et lorsque j'essaie le code de macro, j'obtiens l'erreur suivante: "Run-time erreur 1004, erreur d'application ou erreur définie par l'object ". Mais je peux créer un graphique lorsque je sélectionne les colonnes A et B (c'est-à-dire A1: B10). Besoin d'une suggestion.

C'est mon code: 

Sub Chart() Dim rng As Range Set rng = Selection ActiveSheet.Shapes.AddChart.Select ActiveChart.SetSourceData Source:=rng ActiveChart.ChartType = xlColumnClustered End Sub

Cela fonctionne pour moi 

 Sub Sample() Dim ws As Worksheet Dim rng As Range Dim objChrt As ChartObject Dim chrt As Chart Set ws = ThisWorkbook.Sheets("Sheet1") With ws Set rng = .Range("A1:A10,C1:C10") .Shapes.AddChart Set objChrt = .ChartObjects(.ChartObjects.count) Set chrt = objChrt.Chart With chrt .ChartType = xlColumnClustered .SetSourceData Source:=rng End With End With End Sub

Ou si vous souhaitez toujours utiliser .Selection utilisez cette 

 Sub Sample() Dim ws As Worksheet Dim rng As Range Dim objChrt As ChartObject Dim chrt As Chart '~~> Check if what the user selected is a valid range If TypeName(Selection) <> "Range" Then MsgBox "Select a range first." Exit Sub End If Set ws = ThisWorkbook.Sheets(Selection.Parent.Name) With ws Set rng = Selection .Shapes.AddChart Set objChrt = .ChartObjects(.ChartObjects.count) Set chrt = objChrt.Chart With chrt .ChartType = xlColumnClustered .SetSourceData Source:=rng End With End With End Sub