b-a ba a traduire en macro

[Sylvie]

Si quelqu'un pouvait me traduire en macro Excel ou VBA l'algorithme suivant : table (nom, prenom, codepostal, tel), cela me rendrait infiniment service.

Lire fichier

Tant que pas dernier enregistrement
cd1 prend la nouvelle valeur du champ codepostal en cours
tel1 prend la valeur du champ te en cours valeur nouveau champ
nb enregistrement =1
lire enregistrement suivant
tant que codepostal en cours = cd1 et tel en cours=tel1
nb enregistrement = nb enregistrement +1
fin tant que
si nb enregistrement > 1 alors ;
inserer nouvel enregistrement avec tel1 et cd1 et le reste à blanc
fin si
fin tant que

fermer fichier

 

[Bernard]

Bonsoir Sylvie,

Je viens de réaliser une base de donnée à 6 critères;

Si cela se satisfait;


Cordialement

Bernard

 

[Sylvie]

Merci beaucoup. Je suis en train de l'éplucher pour bien comprendre.
A bientôt
Sylvie