Private Sub Lance_appli_click() UserForm1.Show End Sub
Private Sub Lance_appli_click() UserForm1.Show vbModeless End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$4" Then Application.EnableEvents = False Call Son4 Application.EnableEvents = True End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim oRange As Range Set oRange = Intersect(Target, Range("A4")) If oRange Is Nothing Then Debug.Print Time, "A4 n'est pas dans la sélection des cellules modifiées" Else Debug.Print Time, "A4 a été modifiée" End If- Ouvre la fenêtre de debug (Ctrl-G) et surveille ce qui s'y écrit pendant que tu tapes des valeurs dans des cellules, y compris dans A4.