Bonjour,
J'ai une question concernant l'écriture VBA. Je débute tout juste et je ne connais les écritures. Je voudrais entrer un if en VBA et ouvrir mon graph en A1 en sheet7 mais je ne sais pas comment faire! J'ai souligné et mis en gras ce que je voulais faire...mais je ne connais pas l'écriture exacte pour que cela fonctionne!
Sub Macro1()
'
' Macro1 Macro
' if.Activecell(H3) = "Employee 1" Then
ActiveSheet.ChartObjects("Chart 6").Activate
ActiveSheet.ChartObjects("Chart 6").Activate
Sheets("Sheet7").Select
Range("A1").Select
ActiveChart.SetSourceData Source:=Range("F20:G27,I20:K27,N20:O27")
Else Activecell(H3) = "Employee 2" Then
ActiveSheet.ChartObjects("Chart 6").Activate
ActiveSheet.ChartObjects("Chart 6").Activate
Sheets("Sheet7").Select
Range("A1").Select
ActiveChart.SetSourceData Source:=Range("F30:G37,I30:K37,N30:O37")
End IF
End Sub
Merci de votre aide
J'ai une question concernant l'écriture VBA. Je débute tout juste et je ne connais les écritures. Je voudrais entrer un if en VBA et ouvrir mon graph en A1 en sheet7 mais je ne sais pas comment faire! J'ai souligné et mis en gras ce que je voulais faire...mais je ne connais pas l'écriture exacte pour que cela fonctionne!
Sub Macro1()
'
' Macro1 Macro
' if.Activecell(H3) = "Employee 1" Then
ActiveSheet.ChartObjects("Chart 6").Activate
ActiveSheet.ChartObjects("Chart 6").Activate
Sheets("Sheet7").Select
Range("A1").Select
ActiveChart.SetSourceData Source:=Range("F20:G27,I20:K27,N20:O27")
Else Activecell(H3) = "Employee 2" Then
ActiveSheet.ChartObjects("Chart 6").Activate
ActiveSheet.ChartObjects("Chart 6").Activate
Sheets("Sheet7").Select
Range("A1").Select
ActiveChart.SetSourceData Source:=Range("F30:G37,I30:K37,N30:O37")
End IF
End Sub
Merci de votre aide