Hello les amis
J'ai récement été aidé sur ce forum pour réaliser une macro "copier données et les coller dans la première colonne vide à droite".
J'ai réalisé un graphique qui découle de la plage de données et qui nécessite que la plage de données évolue .
Après avoir essayé de me dépatouiller seul, sans sucès, je me permets de vous solliciter afin de voir ce qui ne fonctionne pas dns la ligne en rouge ci-dessous.
Merci d'avance
Vincent
Sub Macro4()
'
' Macro4 Macro
''On défini la variable LstCol (dont la valeur peut être comprise entre -32 768 et 32 767)
Dim LstCol As Integer
'On cherche la colonne de la première cellule vide en ligne 10
LstCol = Cells(10, Columns.Count).End(xlToLeft).Column + 1
'On copie la plage de cellule
Range("A10:A17").Copy
'On colle le format de la plage dans la cellule en ligne 10 et première cellule vide en ligne 1
Cells(10, LstCol).PasteSpecial Paste:=xlPasteFormats
'On colle les valeurs de la plage dans la cellule en ligne 10 et première cellule vide en ligne 1
Cells(10, LstCol).PasteSpecial Paste:=xlPasteValues
'On efface la selection due à la copie
Application.CutCopyMode = False
'actualisation de la plage de donnée du graphique suite à l'insertion de nouvelles données
' dans la colonne suivante
Cells(10, LstCol).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Feuil1'!$A$10:End(xlToLeft)")
ActiveChart.ChartType = xlBarClustered
End Sub
J'ai récement été aidé sur ce forum pour réaliser une macro "copier données et les coller dans la première colonne vide à droite".
J'ai réalisé un graphique qui découle de la plage de données et qui nécessite que la plage de données évolue .
Après avoir essayé de me dépatouiller seul, sans sucès, je me permets de vous solliciter afin de voir ce qui ne fonctionne pas dns la ligne en rouge ci-dessous.
Merci d'avance
Vincent
Sub Macro4()
'
' Macro4 Macro
''On défini la variable LstCol (dont la valeur peut être comprise entre -32 768 et 32 767)
Dim LstCol As Integer
'On cherche la colonne de la première cellule vide en ligne 10
LstCol = Cells(10, Columns.Count).End(xlToLeft).Column + 1
'On copie la plage de cellule
Range("A10:A17").Copy
'On colle le format de la plage dans la cellule en ligne 10 et première cellule vide en ligne 1
Cells(10, LstCol).PasteSpecial Paste:=xlPasteFormats
'On colle les valeurs de la plage dans la cellule en ligne 10 et première cellule vide en ligne 1
Cells(10, LstCol).PasteSpecial Paste:=xlPasteValues
'On efface la selection due à la copie
Application.CutCopyMode = False
'actualisation de la plage de donnée du graphique suite à l'insertion de nouvelles données
' dans la colonne suivante
Cells(10, LstCol).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Feuil1'!$A$10:End(xlToLeft)")
ActiveChart.ChartType = xlBarClustered
End Sub