suppression de doublon

[tinet]

bonjour le forum,

question j'ai une macro qui copie des informations de la feuil1 sur la feuil2.

dans le module de la feuil2, j'ai ce code pour supprimer le doublon

'verifier doublon
     
       Private Sub Worksheet_Change(ByVal Target As Range)

       
     Doublon = Range("L65000").End(xlUp).Value
If Application.CountIf(Range("L4:L" & Range("L65000").End(xlUp).Row), Doublon) > 1 Then
MsgBox "Déjà Présent !", vbExclamation
Range("L65000").End(xlUp).EntireRow.ClearContents
End If
End Sub

la formule marche mais je suis obligé de retourner sur la feuil2 pour activer la formule.
j'aurais aimé que cela se fasse après l'exécution de ma macro.

a+

 

[Pierrot93]

Re : suppression de doublon

Bonjour,

perso comprends pas trop ta demande... le code étant dans le module de la feuille et lié à l'événement change, celui ne se déclenchera qu'en cas de modification sur la dite feuille...

bonne journée
@+

 

[tinet]

Re : suppression de doublon

bonjour Pierrot93,

le code étant dans le module de la feuille et lié à l'événement change, celui ne se déclenchera qu'en cas de modification sur la dite feuille...

oui la formule change sur la dite feuille.
mais ma macro qui copie un champ de la feuil1 sur la feuil2, ne réactualise pas la dite feuille.
je pensais à rajouter dans ma macro quelque chose du type recalcule la feuil2.

a+

 

[Pierrot93]

Re : suppression de doublon

Bonjour,

peut être rajouter ceci :

Feuil2.Calculate

mais sans plus d'élément....

 

[tinet]

Re : suppression de doublon

Re,

J'ai rajouter dans ma macro une excution sur la feuille pour recaculer.

merci quand même.

a+