Problème avec la Formule CountIf
E
Bonjour,
j'ai un problème avec ma formule CountIf elle ne fonctionne pas pour je trouve logique.
je dois faire un formulaire de saisie ( une base de donnée d'Assurée ) pour mon travail mais le problème je ne dois pas avoir plusieurs fois la même personne donc je voulais faire un CountIf pour détecter si le numéro AVS/NSS entrée dans le formulaire existe déjà et si oui ca met un message d'erreur pour dire que l'assuré existe déjà, mais ma formule ne marche pas bien avez vous une solution?
La formule:
If Num_AVS_Box.Value = Aplication.WorksheetFunction.CountIf(Colums("E:E"), Num_AVS_Box.Value) Then
MsgBox "numéro AVS/NSS Déjà éxistant"
Else
Worksheets("liste").Select
ligne = Sheets("liste").Range("A456541").End(xlUp).Row + 1
Cells(ligne, 1) = Réf_section_box.Value
Cells(ligne, 2) = Section_box.Value
Cells(ligne, 3) = Nom_box.Value
Cells(ligne, 4) = Prénom_box.Value
Cells(ligne, 5) = Num_AVS_Box.Value
Cells(ligne, 6) = Réf_AI_Box.Value
Cells(ligne, 7) = Canton_box.Value
Cells(ligne, 8) = MSP_box.Value
Cells(ligne, 9) = Canton_box.Value
Cells(ligne, 10) = entrée_box.Value
Cells(ligne, 11) = Sortie_box.Value
Unload UserForm1
UserForm1.Show
End If
End Ifje peux vous envoyer le fichier mais je dois juste supprimer les donnée personnel de nos assurée.
Petitle formulaire de saisie et uneUserForm.
Bonjour Exau, le forum,
Peut-être ainsi:
If Application.WorksheetFunction.CountIf(Columns("E:E"), Num_AVS_Box.Value) > 0 ThenCordialement,