Vous devez avoir un compte Developpez.com et être connecté pour pouvoir participer aux discussions.
Vous n'avez pas encore de compte Developpez.com ? L'inscription est gratuite et ne vous prendra que quelques instants !
Developpez.com
Accueil
Choisissez la catégorie, puis la rubrique :
Sur le forum, je viens de rencontrer une utilisation pour le moins étonnante de Select End Select Envoyé par ... Bonjour Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part 12345Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Select Case True Case Not Intersect(Target, Range("G51:G54")) Is Nothing Worksheets("PRESCRIPTION").Range("H51:H54").Formula = Worksheets("PRESCRIPTION").Range("AF51:AF54").Formula ...
Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Select Case True Case Not Intersect(Target, Range("G51:G54")) Is Nothing Worksheets("PRESCRIPTION").Range("H51:H54").Formula = Worksheets("PRESCRIPTION").Range("AF51:AF54").Formula
Mis à jour 13/08/2019 à 17h52 par Pierre Fauconnier