XL 2013 Private Sub Worksheet_Change

yoda60 · 31 Janvier 2022

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

sylvanu · 31 Janvier 2022

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 · 31 Janvier 2022

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 ...

yoda60 · 31 Janvier 2022

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

XL 2013 Private Sub Worksheet_Change

yoda60

XLDnaute Nouveau

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

yoda60

XLDnaute Nouveau

Discussions similaires