{VBA} un probleme de code Fermé

Question

bonjour a tous,
voila, j'ai un problème vba, mais je sais pas comment trop faire, malgré mes maigres notions en informatiques.
j'ai un classeur excel, avec ma feuille, qui contient beaucoup d'enregistrement de donnees, reparties sur une ligne et plusieurs colonnes pour un individu (nom,prenom,No de telephone, No de secu...) les données sont saisies par une equipe et dans excel sont classees par ordre alphabetique. et donc je voudrais "nettoyer" le fichier.
1- je voudrais qu'a l'execution de la fonction, tous les doublons ( un doublon c'est deux lignes qui ont le Meme numero de telephone) soient coloriés en une couleur par exemple qui me permettra de savoir quel traitement y appliquer en parcourant la feuille.  (j'ai pensé a une recherche sequentielle...je sais pas)
2- m'assurer que tous les Numeros de telephone qui sont dans la colonne A ont X chiffres...
j'ai pensé a une boucle for, ou j'ai vu ce code for each cell, je sais plus trop, 
enfin si quelqun peut me proposer quelque chose, merci infiniment

eriiic · Answer

Bonjour, Une mise en forme conditionnelle ne suffit pas ? Remarque tu peux l'ajouter en vba... avec en formule pour les doublons après avoir sélectionné la colonne : =B1=B2 et pour les longueurs : - si numériques : =NBCAR(TEXTE(B1;"standard"))<>9 - si texte : =NBCAR(B1)<>9 eric

zanu · Answer

bonjour, 
eRic merci pour ton debut de solution.
sauf que je n'y comprends pas grand chose. en fait je fais des traitements post saisies,sur les fichiers qui me viennent des agents de saisie. donc, les donnees sont deja la, et je dois faire le traitement.
je ne sais pas si dans ce cas on pourrait encore utiliser des formules.

eriiic · Answer

Sélectionner la colonne A puis menu 'format / mise en forme conditionnelle...' Dans la liste déroulante choisir 'la formule est' et à droite saisir: =A1=A2 cliquer sur 'format' pour choisir le motif cliquer sur ajouter pour la 2nde formule: =NBCAR(TEXTE(A1;"standard"))<>9 (ou =NBCAR(A1)<>9 si cellules en format texte)

zanu · Answer

j'essaye, mais je sais pas, ça marche pas. c'est censé faire quoi ces formules stp?

eriiic · Answer

Une mise en forme conditionnelle te change la couleur du fond, de la police,... si une condition est remplie.
C'était un exemple rapide, qui partait du principe que tes données étaient triées. Ce qui n'est peut-être pas le cas.
Dépose un extrait de ton fichier (sans données confidentielles) sur cijoint.fr et colle ici le lien fourni.
eric

eriiic · Answer

voici un exemple : classeur2.xls
J'ai changé la formule de la MFC 1 qu'elle soit valable sur une liste non triée, et la 2 pour que les cellules vides ne soient pas colorées.
eric

zanu · Answer

bonjour eric,
merci encore pour tout;. c'est vrai que pour ce problème j'ai mis une pause, j'y reviens dans quelques jours. 
j'ai un petit souci avec ce fichier que je te mets sur cijoint, 
http://www.cijoint.fr/cjlink.php?file=cj201001/cijxBOHNAu.xls
en fait je dois produire une feuille avec des nombres de 1 à 5 comme tu verras sur la feuille ( un début)
et le dernier chiffre variie jusqu'a 20 en fonction de l'avant dernier.
je peux faire un alho pour ca, mais comment remplir la feuille, je sais pas
si tu as une idee pr faire ça ailleurs merci!

zanu · Answer

t'as pas une idee?

eriiic · Answer

Ah, j'avais regardé mais pas compris...
Tu dis de 1 à 5 sauf le dernier, mais l'avant dernier aussi apparemment.
Du coup de quelle combinaison à quelle combinaison tu veux ?
Et pourquoi présenter sur plusieurs colonnes qui complique tout ?
Tu devrais quand même démarrer un nouveau post comme le sujet change.
eric

zanu · Answer

bonjour eric,
stp je n'arrive pas a implementer ta formule pour les doublons sous word 2003

eriiic · Answer

Bonsoir,

C'est normal, c'est pour excel.
eric

zanu · Answer

oui je sais, je voulais dire Excel 2003. 
en fait je voulais que la formule puisse supprimer systematiquement une de deux ligne qui a le meme No , si c'est possible

{VBA} un probleme de code

12 réponses

Discussions similaires