Bonjour,
Je souhaiterais changer une liaison en changeant uniquement 01.
J'ai actuellement ça comme macro
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sem$, w As Worksheet
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual 'pour accélérer
On Error Resume Next 'sécurité
sem = LCase([A1])
If Not sem Like "sem##" Then sem = "01": [A1] = sem
For Each w In Worksheets
w.Cells.Replace "]*'", "]" & sem & "'", xlPart
Next
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub
Qui pourrais me corriger cette macro
Merci
Je souhaiterais changer une liaison en changeant uniquement 01.
J'ai actuellement ça comme macro
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sem$, w As Worksheet
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual 'pour accélérer
On Error Resume Next 'sécurité
sem = LCase([A1])
If Not sem Like "sem##" Then sem = "01": [A1] = sem
For Each w In Worksheets
w.Cells.Replace "]*'", "]" & sem & "'", xlPart
Next
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub
Qui pourrais me corriger cette macro
Merci