automatiser declanchement d'une macro

[eduraiss]

Bonjour au forum

J'ai une macro que voici
Sub test_eric()
Dim CelluleType As String
CelluleType = Range("b3")

Application.ScreenUpdating = False

If CelluleType = "A" Then
Range("B56:E83").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-24
Range("B4").Select
ActiveSheet.Paste
Range("F4").Select


End If

If CelluleType = "B" Then
Range("B84:E125").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-24
Range("B4").Select
ActiveSheet.Paste
Range("F4").Select

End If
If CelluleType = "C" Then
Range("B126:e167").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-24
Range("B4").Select
ActiveSheet.Paste
Range("F4").Select

End If
If CelluleType = "D" Then
Range("B168:E209").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-24
Range("B4").Select
ActiveSheet.Paste
Range("F4").Select

End If

End Sub

Comment faire pour l'automatiser, je m'explique

en B1 j'ai une liste déroulante (numero de semaine) avec une formule en b3 je vais chercher une lettre (A,B,C,D)coresponadant a des groupes ensuite je clique sur le bouton macro pour effectuer la copie


Si possible lorsque j'utilise la liste deroulante en validant par enter faire directement la copie

Merci de votre aide A+

 

[Pierrot93]

Re : automatiser declanchement d'une macro

Bonsoir Eduraiss

si j'ai bien compris, peut être avec une macro évènementielle placée dans le moule de la feuille en question :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
test_eric
End If
End Sub

bonne soirée
@+

 

[wilfried_42]

Re : automatiser declanchement d'une macro

re:

si c'est une combobox, tu lie ta combobox à la macro

si c'est une liste de validation
dans le code worksheet de la bonne feuille

sub worksheet_change(byval target as range) ---> interuption sur saisie

if target.address = ""$B$1" then call tamacro

end sub

 

[eduraiss]

Re : automatiser declanchement d'une macro

Bonsoir au forum

Merci a tous les deux ça marche super
Cordialement,
A+

 

[rjphel]

Re : automatiser declanchement d'une macro

Bonjour à tous
J'ai aussi un souci avec l'automatisation d'une macro. Mon problème est le suivant: j'ai une macro qui doit executer une feuille d'excel resultante elle d'une requete. comment faire pour que ma macro s'execute sur la nouvelle feuille? Merci d'avance