XL 2013 Private Sub Worksheet_Change

[yoda60]

bonjour,

j'ai essayé de faire une macro évènementielle sur trois cellules différentes de la même feuille , mais la macro plante.
Ces trois cellules doivent être indépendantes et appeler chacune une macro différente si on met ok.
En espérant être clair , merci d'avance.

cdt

Private Sub Worksheet_Change(ByVal Target As Range)

 
   On Error Resume Next
    
    
    If Not Application.Intersect(Target, Range("B47")) Is Nothing Then
        If Target.Value = "OK" Then
        Call ok0
        
        End If
  
  
   End If
  

    If Not Application.Intersect(Target, Range("D47")) Is Nothing Then
        If Target.Value = "OK" Then
          
            Call ok1
      End If
   End If
    
    
    
    If Not Application.Intersect(Target, Range("F47")) Is Nothing Then
        If Target.Value = "OK" Then
        Call ok2
        
        End If
   End If

 

[sylvanu]

Bonjour Yoda,
Un petit fichier test aurait été le bienvenu.
Un essai en PJ avec :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B47]) Is Nothing And LCase(Target) = "ok" Then OK0
    If Not Intersect(Target, [D47]) Is Nothing And LCase(Target) = "ok" Then OK1
    If Not Intersect(Target, [F47]) Is Nothing And LCase(Target) = "ok" Then OK2
End Sub

Le Lcase permet de détecter ok, OK, Ok ...

 

[yoda60]

bonjour Sylvanu, c'est vrai que c'est un peu abusé de ne pas avoir envoyé de fichier modèle , en tous cas super boulot, c'est propre et efficace, un grand merci.
bonne journée