bonjour le forum
petit sousail ,quand je lance une quelconque macro,aprés son execution j'un message d'erreur sur la macro suivante
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b20:e20:b32:e32")) Is Nothing Then Exit Sub
If InStr(1, Target.Value, " ") > 0 Then
MsgBox "Ne pas saisir d'espace dans cette cellule !!!!!!"
Target.ClearContents
Target.Select
End If
End Sub
et cette macro m'est bien utuile et la suprimer m'ennuirai beaucoup
que faire
merci
phil69
petit sousail ,quand je lance une quelconque macro,aprés son execution j'un message d'erreur sur la macro suivante
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b20:e20:b32:e32")) Is Nothing Then Exit Sub
If InStr(1, Target.Value, " ") > 0 Then
MsgBox "Ne pas saisir d'espace dans cette cellule !!!!!!"
Target.ClearContents
Target.Select
End If
End Sub
et cette macro m'est bien utuile et la suprimer m'ennuirai beaucoup
que faire
merci
phil69