macro ne fonctionne pas ,,,

[justine62000]

bonjour
j'essaye d'interdire la saisie de doublon dans la zone j20:j30
mais j'ai une erreur
laquelle??

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("j20:j30"), Target) Is Nothing Then
If Application.CountIf(Range(Cells(20, Target.Column), Cells(30, Target.Column)), Target) > 1 Then
MsgBox "double saisie"
Target.ClearContents
End If
End If
End Sub

 

[Compte Supprimé 979]

Re : macro ne fonctionne pas ,,,

Salut Justine62000

Je ne vois pas de problème particulier dans ton code

Peut-être comme ça

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Range("J20:J30"), Target) Is Nothing Then Exit Sub
  If Application.WorksheetFunction.CountIf(Range("J20:J30"),Target) > 1 Then
    MsgBox "double saisie"
    Target.ClearContents
  End If
End Sub

Sinon qu'elle est ton erreur ?

A+

 

[justine62000]

Re : macro ne fonctionne pas ,,,

bonjour
non ca ne fonctionne pas
il ne m'interdit pas les doublon pour la zone j20:j30

 

[justine62000]

Re : macro ne fonctionne pas ,,,

bonjour jean marcel,bruno,le fil
comment modifié la macro alors pour interdir la saisie de doublon
si possible avec message box
merci justine

 

[Pierrot93]

Re : macro ne fonctionne pas ,,,

Bonjour à tous

sauf erreur, pour moi l'événement "Worksheet_Change" teste la / les cellule(s) modifiée(s) et non la cellule active après la validation... Ou bien quelque chose m'a échappé... fort possible du reste... Et le code de Bruno fonctionne bien chez moi...

bon après midi.
@+

 

[Pierrot93]

Re : macro ne fonctionne pas ,,,

Re

As tu vérifié que les procédures événementielles se déclenchent bien ?

@+

 

[Compte Supprimé 979]

Re : macro ne fonctionne pas ,,,

Bonjour à tous,

@Jean-Marcel
Désolé de te contredire, mais le Worksheet_Change, teste bien la celulle qui vient d'être modifiée (comme le dis Pierrot93)
Edit : oups je n'avais pas vu ta réponse, OK

@Justine62000
As-tu bien mis la précédure au bon endroit !?
C'est à dire dans le code de la feuille "mise a jour planning"

A+

 

[justine62000]

Re : macro ne fonctionne pas ,,,

re
oui ca fonctionne maintenant super
merci
bruno aurais tu une idee pour faire ceci
si une personne est en conges suivant le numero de semaine de la feuille conges par rapport au numero de semaine de la feuille mise a jour planning son nom se trouve remplcacer sur la feuille mise a jour planning soit par "remplacement1 ou remplacement2 ouremplacement 3 suivant si il est disponible dans liste rest
ou quelque chose comme ca