XL 2013 Macro Automatique

Kidcarotte · 24 Juillet 2019

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 A88
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("A88")
End If

'
End Sub

job75 · 24 Juillet 2019

Bonjour Kidcarotte,

Utilisez une macro Worksheet_Change, exemples innombrables sur ce forum.

A+

Ikito · 24 Juillet 2019

Bonjour à vous deux,

WorkSheet_Change juste ici

Kidcarotte · 26 Juillet 2019

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("A88")

End If
End If

End Sub

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

Je vous ai joint la macro

Calvus · 26 Juillet 2019

Bonjour Kidcarotte, Job75, Ikito,

Voici le code :

VB:

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 · 26 Juillet 2019

Bonjour Calvus

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

Kidcarotte · 26 Juillet 2019

Excusez moi jai fais une erreure

MERCI BEAUCOUP !!
Vous me sauvez mon vendredi apres midi

XL 2013 Macro Automatique

Kidcarotte

XLDnaute Junior

job75

XLDnaute Barbatruc

Ikito

XLDnaute Occasionnel

Kidcarotte

XLDnaute Junior

Pièces jointes

Calvus

XLDnaute Barbatruc

Kidcarotte

XLDnaute Junior

Kidcarotte

XLDnaute Junior

Discussions similaires