Bonjour,
J'ai une question tres stupide mais dont je n'arrive pas a trouver la réponse, j'ai une macro qui s'execute en fonction du nom de la feuille/onglet, et j'aimerais qu'elle s'execute peu importe le nom de la feuille (donc ActiveSheet j'imagine mais je n'ai pas réussi a trouver la syntaxe correcte)
Voici la macro et la partie qu'il faudrait donc changer en rouge pour que la macro s'éxecute sur la feuille qui est actuellement utilisée:
J'ai une question tres stupide mais dont je n'arrive pas a trouver la réponse, j'ai une macro qui s'execute en fonction du nom de la feuille/onglet, et j'aimerais qu'elle s'execute peu importe le nom de la feuille (donc ActiveSheet j'imagine mais je n'ai pas réussi a trouver la syntaxe correcte)
Voici la macro et la partie qu'il faudrait donc changer en rouge pour que la macro s'éxecute sur la feuille qui est actuellement utilisée:
VB:
Sub CRENEAUX()
Dim LR As Long, L As Long
Application.ScreenUpdating = False
With [COLOR=rgb(184, 49, 47)][B]Worksheets("Sheet0")[/B][/COLOR]
LR = .Cells(.Rows.Count, 1).End(xlUp).Row
.UsedRange.Borders.LineStyle = xlNone
For L = 1 To LR
If .Cells(L, 1) & .Cells(L, 2) & .Cells(L, 3) <> .Cells(L, 1).Offset(1) & .Cells(L, 2).Offset(1) & .Cells(L, 3).Offset(1) Then
With .Cells(L, 1).Resize(, 29).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
End With
End If
Next L
End With
Application.ScreenUpdating = True
End Sub