titeuf18100
XLDnaute Nouveau
Bonjour .dans la colonne S du fichier PARTICIPATION j’aimerais qu’on ne puisse pas effacé cette colonne .merci d’avance
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [S:S]) Is Nothing Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
MsgBox "Vous ne devez pas toucher aux formules des cette colonne !", vbCritical, "OUPS..."
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [S:S]) Is Nothing Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
MsgBox "Vous ne devez pas toucher aux formules des cette colonne !", vbCritical, "OUPS..."
End If
End Sub
merci beaucoup ca marche nikel .par contre dans le fichier participation il me faut des lignes jusqu'a 125Bonjour @titeuf18100
Edit Bonjour @wDog66
Je te propose ce fichier
Pas de ligne vide dans un TS
Merci de ton retour