XL 2013 Macro Automatique

[Kidcarotte]

Bonjour
J'ai une feuille excel avec une liste deroulante. Il y a un certain nombre de critere, par exemple : Pas de packaging, Packaging plastic...
J'aimerais creer une macro qui, rempli les cellule automatiquement pour un critere donner, sans utiliser de bouton.
Par exemple :

Si "pas de packaging" alors B5:E5 se copie automatiquement dans A8😀8
J'ai fais un code pour ca, mais j'arrive a pas l'avoir automatiser. Lorsque je clique sur "Run Sub," cela se copie, mais l'idee est que les employes n'est pas a ouvrir VBA

Des suggestions ?
Merci par avance
Voici mon code :

Sub If_function()
'

If types_of_material = No_packaging Then
Range("B5:E5").Copy Range("A8😀8")
End If



'
End Sub

 

[job75]

Bonjour Kidcarotte,

Utilisez une macro Worksheet_Change, exemples innombrables sur ce forum.

A+

 

[Ikito]

Bonjour à vous deux,

WorkSheet_Change juste ici

 

[Kidcarotte]

Bonjour,
Merci a vous deux pour ces explications, cependant il n y a quelques chose que je ne comprends pas.

J'ai suivi le process comme le lien ci dessus. et mon code est le suivant
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells = "A5" Then
ThisRow = Target.Row
If Target.Cells = "No Packaging" Then
Range("B5:E5").Copy Range("A8😀8")

End If
End If

End Sub

Mais absolument rien ne se passe... Je ne comprends pas...

Je vous ai joint la macro

 

[Calvus]

Bonjour Kidcarotte, Job75, Ikito,

Voici le code :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> Range("A5").Address Then Exit Sub
If Target = "No packaging" Then Range("B5:E5").Copy Range("A8")

End Sub

Bonne journée

 

[Kidcarotte]

Bonjour Calvus

merci beaucoup, mais cela ne marche pas non plus....

 

[Kidcarotte]

Excusez moi jai fais une erreure

MERCI BEAUCOUP !!
Vous me sauvez mon vendredi apres midi