Comment utiliser le "Active Sheet" du VBA sur Excel ?
MacroBeginner
-
MacroBeginner -
MacroBeginner -
Bonjour,
Je sais que de nombreux postes ont déjà été posté a ce sujet, donc je m'excuse du désagrément, mais je n'arrive toujours pas à utiliser cette fonction..
Mon problème est le suivant :
J'ai crée une macro sur Excel à partir d'un ficher donné, appellons-le "Sheet1".
Il s'agit de faire un simple graph des 2 premieres colonnes.
Seulement dès que j'utilise cette macro sur un autre ficher, cela ne fonctionne pas, et je sais pourquoi, car la macro dépend du ficher d'origine "Sheet1".
J'aimerai qu'on m'explique clairement où modifier le code suivant pour qu'il soit actif dans n'importe quelle ficher excel.
Le code :
Sub Macro1()
'
' Macro1 Macro
'
'
Range("A1:B22").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$B$22")
ActiveSheet.Shapes("Chart 1").IncrementLeft 55.5
ActiveSheet.Shapes("Chart 1").IncrementTop -48.75
Range("N7").Select
End Sub
Merci beaucoup !
Je sais que de nombreux postes ont déjà été posté a ce sujet, donc je m'excuse du désagrément, mais je n'arrive toujours pas à utiliser cette fonction..
Mon problème est le suivant :
J'ai crée une macro sur Excel à partir d'un ficher donné, appellons-le "Sheet1".
Il s'agit de faire un simple graph des 2 premieres colonnes.
Seulement dès que j'utilise cette macro sur un autre ficher, cela ne fonctionne pas, et je sais pourquoi, car la macro dépend du ficher d'origine "Sheet1".
J'aimerai qu'on m'explique clairement où modifier le code suivant pour qu'il soit actif dans n'importe quelle ficher excel.
Le code :
Sub Macro1()
'
' Macro1 Macro
'
'
Range("A1:B22").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$B$22")
ActiveSheet.Shapes("Chart 1").IncrementLeft 55.5
ActiveSheet.Shapes("Chart 1").IncrementTop -48.75
Range("N7").Select
End Sub
Merci beaucoup !
A voir également:
- With active sheet vba
- Active partition disk - Télécharger - Stockage
- Pass telecommande active - Forum Téléviseurs
- Menu déroulant google sheet - Accueil - Guide bureautique
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Comment activé - Guide