Accueil | Aide en ligne | Annuaire | Sécurité | Articles | Astuces | Téléchargements | Association 


Mon compte SOS Ordi

Vous n'êtes pas identifié
[-> S'inscrire à SOS Ordi
[-> Mot de passe perdu ?
S'identifier


Rechercher sur SOS Ordi

Ok

Dans





 Catégories de l'aide en ligne
 Aide en ligne


 Saviez vous que ...
Pour soutenir l'association et payer le serveur vous pouvez faire des dons


 Partenaires
  SOS Ordi > Aide en ligne > Logiciel > Développement > Langages > Visual Basic > Eviter les doublons Sous VBA Exel

Eviter les doublons Sous VBA Exel
7 réponse(s)
dont 1 ont aidé tims à résoudre son problème

  Problème résolu posté le 11/05/2004 à 16:08
Profil Configuration PC
tims


Aucun
État : Absent
je voudrai verifier si j'ai pas saisi deux fois la meme
information par exemple
-Dans la colonne A je saisis les noms tout en evitant
la double saisie. A la fin un Msgbox indiquant le nom est déja saisi.
Merci d'avance

   

Bas de page 


Information
Pour participer vous devez d'abord être membre ou identifié :
[-> M'identifier
[-> Je ne suis pas membre SOS Ordi, je souhaite m'inscrire
[-> J'ai perdu mon mot de passe


  Réponse postée le 11/05/2004 à 16:23
Profil du membre Configuration PC
geo909



État : Absent
Essaye de faire une recherche là :
http://www.excel-downloads.com/html[...]um/list.php?f=1

Moi j'y es trouvé un "effaceur de doublons" smile.gif

  Réponse postée le 11/05/2004 à 16:30
Profil du membre Configuration PC
Alpha
Modérateur


État : Absent
Salut
avant le test, trie les cellules par ordre croissant
puis utilise le code :
Set r = Range("A1:A50")
' Spécifie la plage exacte à couvrir
For n = 1 To r.Rows.Count
If r.Cells(n, 1) = r.Cells(n + 1, 1) Then
MsgBox "Duplicate data in " & r.Cells(n + 1, 1).Address
End If
Next n


a+

Edité par Alpha le 11/05/2004 à 16:36:54
Un problème sans solution est un problème mal posé - A. Einstein

  Réponse postée le 11/05/2004 à 18:02
Profil du membre Configuration PC
tims



État : Absent
CEST EXACTEMENT CE QUE JE VOULAIS?EST CE POSSIBLE AU LIEU
DE L'adresse de la cellule de dire le nom qui est duplique
exemple si moussa est saisie deux fois d'informer que moussa est deja saisi
encore merci beaucoup

  Réponse postée le 11/05/2004 à 22:55
Profil du membre Configuration PC
Alpha
Modérateur


État : Absent
ben dans ce cas, tu mets msgbox "Duplicate data" r r.Celss(n+1,1)

a+
Un problème sans solution est un problème mal posé - A. Einstein

  Réponse postée le 12/05/2004 à 10:46
Profil du membre Configuration PC
tims



État : Absent
j'ai assaye comme tul'as decrit mais ça marche pas

  Réponse postée le 12/05/2004 à 14:18
Profil du membre Configuration PC
Alpha
Modérateur


État : Absent
msgbox "Duplicate data" & r.Celss(n+1,1)

je testerai demain... là pas d'excel sous la main
a+
Un problème sans solution est un problème mal posé - A. Einstein

  Réponse postée le 13/05/2004 à 08:26
Profil du membre Configuration PC
Alpha
Modérateur


État : Absent
bon, après essai :

Set r = Range("A1:A10")
' Spécifie la plage exacte à couvrir
For n = 1 To r.Rows.Count
If r.Cells(n, 1) = r.Cells(n + 1, 1) Then
MsgBox "Duplicate data " & r.Cells(n, 1)
End If
Next n


Un problème sans solution est un problème mal posé - A. Einstein



Haut de page 

 

Version 5.6 | Infos / Contacts | Partenariat | Publicité