Astuces Excel
  1. Astuces Excel
  3. Colonnes pour un tableau en VBA
Intereting Posts
424 création de code et de graphique en vba Comment puis-je find la valeur maximale dans une string? excel Obtenir la valeur d'une textbox dans une cellule Supprimez une colonne Excel dans un autre sous-programme? Type défini par l'user VBA non défini (seulement parfois) Excel VBA – "coller" en utilisant RESIZE – besoin de coller spécial (notation scientifique) EXCEL VBA – Créer des cellules requirejses get une list distincte (index) si la valeur adjacente est égale à un text spécifique dans excel Copier avec des colonnes cachées et des lignes filtrées 2 multiplication binary 4 bits en excel Gérez efficacement un très grand file Excel dans .NET? Comment find le dernier article entré dans une colonne Coller la sélection de la plage variable d'un classur à un autre classur à partir d'une cellule spécifique Excel Web Query TIME toujours comme DATETIME Excel vers XML lorsque XSD inclut des structures récursives comme list de lists

Colonnes pour un tableau en VBA

J'ai un problème dans VBA et j'ai besoin de votre aide. J'ai une macro qui crée un certain nombre d'tabs avec des données et des plots dans chacun d'eux. À la fin du code, je souhaite append un autre tableau qui prendra des colonnes à partir de l'set de données de chaque onglet. Par exemple, le tableau que j'essaie nécessite les colonnes B: E et puis la colonne I.

Le code ci-dessous présente une erreur dans la plage. Toute autre chose que j'ai essayée crée le graphique avec succès l'achat aussi prend la colonne F, G, H ce qui n'est pas souhaitable. Pouvez-vous m'aider à cela?

À un deuxième niveau, je voudrais vous requestr comment puis-je choisir les colonnes à tracer en définissant le titre de la colonne (dans la première cellule de chaque colonne)

Merci d'avance à tous 

Range("B1:E1", "I1:I").Select Range(Selection, Selection.End(xlDown)).Select ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlLine ActiveChart.SeriesCollection(1).Select 'ActiveChart.SeriesCollection(1).AxisGroup = 2 ' puts secondary axis for residuals 'ActiveChart.SeriesCollection(1).ChartType = xlColumnClustered ActiveSheet.Shapes(3).ScaleWidth 1.362962963, msoFalse, msoScaleFromTopLeft ActiveSheet.Shapes(3).IncrementTop 150 ActiveSheet.Shapes(3).IncrementLeft -600