Détection des doublons sans effacer

drakkar_agfa · 09/10/2008, 21h04

Bonjour,

ma question est simple, comment reproduire laformule excel "=NB.SI(A:A;A1)>1" en code VBA...

Je veux savoir A1 a un doublon dans la colonne, ensuite A2, et ...... Pour descendre les lignes de la colonne il n'a pas de problème, il s'agit seulement de trouver le code correspondant, s'il en a un...

Merci de votre temps!!!

myDearFriend! · 09/10/2008, 21h19

Bonsoir drakkar_agfa,

Code :

MsgBox Application.CountIf(Columns(1), Range("A1").Value) > 1

te donnera VRAI ou FAUX.

Cordialement,
Didier_mDF

drakkar_agfa · 09/10/2008, 21h55

Wow merci.

Je souhaitais avoir quelque chose d'aussi simple que ça

Merci

09/10/2008, 21h04	#1 (permalink)
drakkar_agfa Membre du Club Date d'inscription: septembre 2008 Localisation: Québec Âge: 21 Messages: 101	Détection des doublons sans effacer Bonjour, ma question est simple, comment reproduire laformule excel "=NB.SI(A:A;A1)>1" en code VBA... Je veux savoir A1 a un doublon dans la colonne, ensuite A2, et ...... Pour descendre les lignes de la colonne il n'a pas de problème, il s'agit seulement de trouver le code correspondant, s'il en a un... Merci de votre temps!!!

09/10/2008, 21h19	#2 (permalink)
myDearFriend! Candidat au titre de Membre du Club Date d'inscription: juillet 2007 Messages: 25	Bonsoir drakkar_agfa, Code : MsgBox Application.CountIf(Columns(1), Range("A1").Value) > 1 te donnera VRAI ou FAUX. Cordialement, Didier_mDF

09/10/2008, 21h55	#3 (permalink)
drakkar_agfa Membre du Club Date d'inscription: septembre 2008 Localisation: Québec Âge: 21 Messages: 101	Wow merci. Je souhaitais avoir quelque chose d'aussi simple que ça Merci

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Excel > VBA Excel
Détection des doublons sans effacer

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email