Messages des blogs récents

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

1
2
3
4
5
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

...