Supprimer les doublons dans certains cas

Question

Je n’arrive pas à continuer la macro SupprimeDoublons malgré pas mal de tentatives. Dans l’état actuel le but de cette macro c’est qu’en cas d’erreur dans la dernière saisie on puisse la corriger, on refait une nouvelle saisie et la macro supprime la ligne du dessus « exemple 1 dans la feuille Bdd » le doublon du dessus sera supprimé ave le message "Les Données sont Enregistrées jusque-là tout va bien, ça marche. Je voudrais maintenant interdire la saisie des doublons qui ont une date inférieure à la date de saisie comme exemple 2, ou supprimer la dernière saisie, avec l’annulation du MsgBox du premier cas et affiché un nouveau MsgBox du style les données non enregistrées. (le nombre de lignes par année dans Bdd sera d’environ 500 ligne se qui comporte le risque d’erreur de date). Pour info et en cas de besoin le MOT DE PASSE c’est le chiffre 1 J’espère avoir été clair et vous remercie pour votre aide...

Cylfo · Accepted Answer

Ok. En cas de modification si tu veux que les personnes ressaisissent les valeurs : dans le module associé à l'onglet "Formulaire" et la procédure "WorkSheet_Change ", il suffit de mettre en commentaire les lignes comme ci-dessous en fin de procédure à partir du ElseIf :

' Evènement déclenché par la modification de la valeur d'une cellule
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nDerLigDtConvoc As Long
Dim dDerDtConvoc As Date
   ' Si la cellule modifiée n'est pas celle de la date de convocation => sortie
   If Application.Intersect(Target, ActiveSheet.Range("V_DT_CONVOC")) Is Nothing Then Exit Sub
   ' Vérifier que le format correspond bien à une date
   If Target.Value = "" Or IsDate(Target.Value) = False Then
      MsgBox "La date de convocation ne correspond pas à un format de date valide ...", vbExclamation, "Date de convocation incorrecte"
      ' Annuler la saisie
      AnnuleSaisie
      Exit Sub
   End If
   ' Contrôle de la date par rapport à la dernière date de convocation saisie
   With Worksheets("Bdd").ListObjects("T_CONVOCS")
      nDerLigDtConvoc = .ListRows.Count
      dDerDtConvoc = .ListColumns("Date").DataBodyRange(nDerLigDtConvoc).Value
      ' Si la date saisie est antérieure => message d'erreur et sortie
      If Target.Value < dDerDtConvoc Then
         MsgBox "Vous ne pouvez pas saisir une convocation antérieure à la dernière réalisée en date du " & dDerDtConvoc & " ...", vbExclamation, "Convocation impossible"
         AnnuleSaisie
         Exit Sub
      ' Si la date correspond à la dernière convocation => rapatrier les donnée
      'ElseIf Target.Value = dDerDtConvoc Then
      '   ActiveSheet.Range("E4").Value = .ListColumns(TC_COL_NB_CONV).DataBodyRange(nDerLigDtConvoc).Value
      '   ActiveSheet.Range("E6").Value = .ListColumns(TC_COL_CONV_FLUX).DataBodyRange(nDerLigDtConvoc).Value
      '   ActiveSheet.Range("E8").Value = .ListColumns(TC_COL_CONV_STOCK).DataBodyRange(nDerLigDtConvoc).Value
      '   ActiveSheet.Range("E10").Value = .ListColumns(TC_COL_NB_PRES).DataBodyRange(nDerLigDtConvoc).Value
      '   ActiveSheet.Range("E13").Value = .ListColumns(TC_COL_NB_PRES).DataBodyRange(nDerLigDtConvoc).Value
      End If
   End With
End Sub

Cdlt,

Cylfo

Cylfo · Answer

Pourquoi ne pas détecter l'anomalie dès la saisie de la date dans l'onglet "Formulaire" et interdire l'enregistrement s'il y a déjà des infos saisies à cette même date ? Ce serait plus simple, il n'y aurait pas de suppression de doublons à traiter, non ? Cdlt, Cylfo...

Cylfo · Answer

Re,

C'est possible en testant si la date renseignée correspond à la dernière du tableau, les contrôles sont fait suite à las saisie de la date.

Je te joins une proposition basée sur le contrôle de la date dans le formulaire, contrôle refait également au moment de l'enregistrement. J'ai modifié le tableau des données en tableau structuré (TS) nommé "T_CONVOCS" et j'ai également nommé dans l'onglet "Formulaire" la cellule de la date en "V_DT_CONVOC".

Le code est dans l'évènement "Worksheet_Change" du module associé à l'onglet "Formulaire" et j'ai adapté l'enregistrement dans le "module 1" pour utiliser les propriétés des TS.

Je te laisse regarder et me revenir si tu as besoin de plus amples informations.

12suprimer-les-doublons-2.xlsm (89.25 Ko)

Cdlt,

Cylfo

Cylfo · Answer

Je corrige !!...

Cylfo · Answer

Re,

J'ai corrigé le pbm du doublon par contre je ne comprends pas le point 1. Après l'enregistrement, les valeurs sont effacées, elles ne réapparaissent pas. Le seul cas où les anciennes valeurs sont affichées c'est lorsque tu saisis une date correspondant à la dernière date de convocation et qui, sauf erreur de compréhension, correspond au cas où tu veux autoriser la modification.

20suprimer-les-doublons-3.xlsm (89.64 Ko)

Cdlt,

Cylfo

Cylfo · Answer

Re, Merci pour ton retour et bonne saisie Cdlt, Cylfo...

Cylfo · Answer

Le bug (Erreur 13 - Incompatibilité de type) au niveau de la date, lorsque tu utilises la touche "Suppr" est lié au fait que les cellules sont fusionnées. Je te joins une V4 qui corrige ce bug mais si tu as déjà fait des saisies, tu peux reporter la modification, il y a une seule ligne à remplacer que je t'indique ci-dessous, ligne sous "&lt;&lt;&lt;&lt;&lt;&lt;&lt;" : ' Evènement déclenché par la modification de la valeur d'une cellule Private Sub Worksheet_Change(ByVal Target As Range) Dim nDerLigDtConvoc As Long Dim dDerDtConvoc As Date ' Si la cellule modifiée n'est pas celle de la date de convocation =&gt; sortie If Application.Intersect(Target, ActiveSheet.Range("V_DT_CONVOC")) Is Nothing Then Exit Sub ' Vérifier que le format correspond bien à une date '&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt; Ci-dessous, la seule ligne à substituer à celle présente dans la V3 &gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt; If Target.Cells(1, 1).Value = "" Or IsDate(Target.Cells(1, 1).Value) = False Then MsgBox "La date de convocation ne correspond pas à un format de date valide ...", vbExclamation, "Date de convocation incorrecte" ' Annuler la saisie AnnuleSaisie Exit Sub End If Cdlt, Cylfo...