Bonjour à Tous
j'ai récuperé le code suivant pour eviter d'avoir sur les colonnes AS et AT une double saisie sur les celllules d'une meme ligne.
Je souhaiterais appliquer cela à plusieurs autre colonne : C et F , X et Z. ...;
Après plusieurs tentatives sans succès je fais appel au forum pour m'aider !!
Merci
A bientot
Gibtoul
j'ai récuperé le code suivant pour eviter d'avoir sur les colonnes AS et AT une double saisie sur les celllules d'une meme ligne.
Je souhaiterais appliquer cela à plusieurs autre colonne : C et F , X et Z. ...;
Après plusieurs tentatives sans succès je fais appel au forum pour m'aider !!
Merci
A bientot
Gibtoul
Code:
Private Sub Worksheet_Change(ByVal zz As Range)
If Intersect(zz, Range("AS80:AT633")) Is Nothing Then Exit Sub
y = zz.Row
If Application.CountA(Range("AS" & y & ":AT" & y)) > 1 Then
Application.EnableEvents = False
MsgBox "Attention double saisie !!": zz = ""
Application.EnableEvents = True
End If
End Sub