Compilier deux code Private Sub Worksheet_Change

bonjour

j'ai besoin d'aide pou mon code "Compilier deux code Private Sub Worksheet_Change"

j'ai ce code :

""Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("F8:G100"), Target)
If xRg Is Nothing Then Exit Sub
If Target.Value = "pas fait" Then
Call EnvoiMail3
End If
End Sub

sauf que je veux l'appliquer sur 10 type de mail(chaque plage de cellule corespond a un mail)

expl: F8:G100--> call envoi mail1

("D8:E100")-->call envoi mail2

ext......

merci pour votre aide

cordialement

Bonjour,

Quelque chose dans ce genre:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Value = "pas fait" Then
        EnvoiMail3
        Exit Sub
    End If
    If Not Intersect(Range("F8:G100"), Target) Is Nothing Then
        EnvoiMail1
    ElseIf Not Intersect(Range("D8:E10"), Target) Is Nothing Then
        EnvoiMail2
    ElseIf Not Intersect(Range("F8:G10"), Target) Is Nothing Then
        EnvoiMail4
    ElseIf Not Intersect(Range("H8:O10"), Target) Is Nothing Then
        EnvoiMail5
    'etc...
    End Sub
End Sub

Cdlt

merci pour la réponce je veux l'esseyer et je vous dirais

bien cordialement

bonjour Arturo83

en fait, j'ai essayer le code mais il fonctionne juste sur le mail N° 3 ( envoi mail3) pas les autres mail

voici le ficher

cordialement

Bonjour,

Vous retournez le fichier avec votre code initial, où est celui que je préconisais? je viens de faire des essais avec ma proposition et ça marche (hormis que j'avais mis un "End sub" à la place d'un "End if"). Montrez-moi ce que vous avez fait pour dire que cela ne marche pas!

Cdlt

Bonjour Arturo83

excuse moi pour le retard , c'est bon ton code fonctionne parfaitement

merci

bien cordialement