besoin d'aide

[Florent]

Bonjour le Forum,

Cela faisait quelque temps que je n'avait pas demandé de l'aide sur ce forum, c'est pourquoi ce soir je suis venu vous soumettre un petit problème ( enorme pour moi )

j'ai trouvé sur ce forum une macro pour ne pas saisir des données en doublon. Mais voila je n'arrive pas à la modifier pour l'adapter à mon projet.
Le controle des données ce fait en colonne B . Ce que je souhaiterai faire c'est quand il y a un doublon c'est que cela m'efface les cellules A à C de cette même ligne

merci à celui ou celle qui pourra m'aider

Florent

 

[RENATO]

Si tu modifies ton listing comme cela......

If Application.WorksheetFunction. _
CountIf(Range("b3:b1000"), Target.Value) > 1 Then
MsgBox "cette valeur existe déjà"
Target.Value = ""
Target.Select
ActiveCell.Offset(0, -1).Select
Selection.ClearContents
ActiveCell.Offset(0, 2).Select
Selection.ClearContents
End If
End If
End Sub

ça devrait s'arranger.

Bonne soirée

 

[Florent]

Bonsoir Renato, le Forum

merci , c'est simple mais efficace .

A+

Florent

 

[florent]

Bonjour à tous,

j'ai un petit problème d'adaptation

la solution proposée fonctionne très bien dans mon exemple mais je n'arrive pas à la transposer dans mon projet
les faits : la macro détecte bien les doublons , supprime la valeur dans la cellule mais ne supprime pas les valeurs adjacentes.

ces valeurs adjacentes s'inscrivent suite à une saisie à travers un userfom

 

[Florent]

Bonjour à tous,

j'ai un petit problème d'adaptation

la solution proposée fonctionne très bien dans mon exemple mais je n'arrive pas à la transposer dans mon projet
les faits : la macro détecte bien les doublons , supprime la valeur dans la cellule mais ne supprime pas les valeurs adjacentes.

ces valeurs adjacentes s'inscrivent suite à une saisie à travers un userform
en meme temps que la valeur dans la cellule testé pour le doublon ( holala, je ne sais pas si je me fait comprembre..)

Est ce quelqu'un pourrait m'aider ou m'aiguiller car je nage demuis 3 jours dans ce problème.
J'ai penser à chercher la derniere cellule non vide de chaque colonne et supprimer la valeur mais je ne sais pas comment faire ( toujours nul et progresse trop tentement le gars..)

merci d'avance

Florent