Problémes selection des cellules

Bonjour le forum

Une question pour bouclé mon projet,

J'aurai voulu que si dans ma plage de cellule (variable maplage), si une des cellules est égal à ABS001 lance la macro1, si c'est égale à ABS012 lance la macro deux, sinon sort de la procédure.

J'ai essayé sans succés. Lors du lancement, une erreure ce met sur .Value

Le code en question

Private Sub Worksheet_Change(ByVal Target As Range) 

Dim maplage As String

    maplage = ("A6:A20, A29:A43, A52:A66, A75:A88, A97:A110").Value

'condition : si le changement se fait ailleurs que maplage, sort de la procédure
If Target.Address <> maplage Then Exit Sub
    'si maplage = ABS011 lance la macro1 du Module 12
    If Target.Value = "ABS011" Then Module12.macro1
    'si maplage = ABS012 lance la macro2 du Module 12
    If Target.Value = "ABS012" Then Module12.macro2
End Sub

Merci Coco

Bonjour,

Target te fourni le range de la plage modifiée.

Déjà il vaut mieux exclure le cas de plusieurs cellules (ou alors le traiter), et ensuite il ne sera que très très rarement égal à maplage (d'autant plus si tu compare à .value...). Calcule l'intersection.

if target.count >1 then exit sub

if intersect(target,maplage) is nothing then exit sub

If Target.Value = "ABS011" Then Module12.macro1

'si maplage = ABS012 lance la macro2 du Module 12

If Target.Value = "ABS012" Then Module12.macro2

essaie déjà dans cette direction (non testé), et reviens pour la suite s'il y a

eric

Salut,

Avec un fichier exemple, ça aurait été plus simple

Normalement la macro ci-dessous devait faire l'affaire :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

    If Not Application.Intersect(Target, Range("A6:A20, A29:A43, A52:A66, A75:A88, A97:A110")) Is Nothing Then

        'si maplage = ABS011 lance la macro1 du Module 12
        If Target.Value = "ABS011" Then Module12.Macro1
        'si maplage = ABS012 lance la macro2 du Module 12
        If Target.Value = "ABS012" Then Module12.Macro2

    End If

End Sub

Cordialement.

EDIT : Oups, j'arrive un peu tard Salut Eric

Bonsoir à vous deux, et à tous le forum

Ca fonctionne comme je le voulais.

Merci Eric pour ton fichier et tes explications ca me sera très utile plus tard.

Merci à toi aussi Yvouille pour ton aide

Cordialement Coco

J'ai dû louper quelque chose, je ne vois pas le fichier d'Eriiic

Amicalement.

Oui pardon Yvouille, Ton fichier et les explications d'Eric... Lol

Merci encore

Coco