XL 2013 Private Sub Worksheet_Change

yoda60

XLDnaute Nouveau
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

VB:
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
 
Solution
Bonjour Yoda,
Un petit fichier test aurait été le bienvenu.
Un essai en PJ avec :
VB:
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 ...

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Yoda,
Un petit fichier test aurait été le bienvenu.
Un essai en PJ avec :
VB:
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 ...
 

Pièces jointes

  • Classeur1.xlsm
    14.5 KB · Affichages: 6

Discussions similaires

Réponses
2
Affichages
273

Statistiques des forums

Discussions
299 850
Messages
1 979 570
Membres
206 780
dernier inscrit
Edwige81