erreur d'execution 13

laurent.madec · 6 Décembre 2007

Bonjour le forum!

j'ai une Macro pour faire une mise en forme conditionnelle, mais lorsque je veux copier la cellule, j'ai un message d'erreur : "erreur d'execution 13"

voici mon code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "EX" Then Target.Interior.ColorIndex = 36
If Target.Value = "ET" Then Target.Interior.ColorIndex = 34
If Target.Value = "VA" Then Target.Interior.ColorIndex = 44

If Target.Value <> "EX" And Target.Value <> "BB" And Target.Value <> "ET" _
And Target.Value <> "VA" Then Target.Interior.ColorIndex = 2

End Sub

il doit me manquer un bout de code...

PascalXLD · 6 Décembre 2007

Re : erreur d'execution 13

Bonjour

Pas de problème pour moi

ça bug où ??

jeanpierre · 6 Décembre 2007

Re : erreur d'execution 13

Bonjour laurent.madec, Pascal, re au forum,

Sous 2000, aucun problème.

Bonne journée.

Jean-Pierre

laurent.madec · 6 Décembre 2007

Re : erreur d'execution 13

en fait, ca bug lorsque je veux copier dans plusieurs cellules en même temps.

merci!

Luki · 6 Décembre 2007

Re : erreur d'execution 13

Bonjour Laurent, re Jean-Pierre, salut Pascal

Le problème vient du fait que ton "target" est une plage de cellule.

Tu ne peux donc pas comparer en même temps plusieurs cellules. Il faut dans ce cas, passer par une boucle. Tu peux regarder l'exemple ci-dessous, ça devrait répondre à ta question. (dernier post sur le fil)

https://www.excel-downloads.com/thr...macro-dans-une-fonction-conditionnelle.86030/

Bonne journée à tous.

Edit : Salut Pierrot

Pierrot93 · 6 Décembre 2007

Re : erreur d'execution 13

Bonjour Laurent, Jean-Pierre, Pascal

modifies peut être ta macro comme suit :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target
    If c.Value = "EX" Then c.Interior.ColorIndex = 36
    If c.Value = "ET" Then c.Interior.ColorIndex = 34
    If c.Value = "VA" Then c.Interior.ColorIndex = 44
    If c.Value <> "EX" And c.Value <> "BB" And c.Value <> "ET" _
        And c.Value <> "VA" Then c.Interior.ColorIndex = 2
Next c
End Sub

bonne journée
@+

Edition bonjour Luki

laurent.madec · 6 Décembre 2007

Re : erreur d'execution 13

Merci beaucoup ca fonctionne

et merci aussi pour les exemples commentés, je debute en vba et c'est pas toujour clair!!

erreur d'execution 13

laurent.madec

XLDnaute Nouveau

PascalXLD

XLDnaute Barbatruc

jeanpierre

Nous a quitté

laurent.madec

XLDnaute Nouveau

Luki

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

laurent.madec

XLDnaute Nouveau

Discussions similaires