Macro pour avoir un même code défaut par type

Bonjour à toutes et tous

Dans mon projet, j'aurais de nouvreau besoin de vous

Serait possible de mettre un code défaut par type de défaut, avec du code VBA car j'ai des dizaines de milliers de lignes à traiter.

Car dans ma base de données j'ai plusieurs code de défauts pour le même type,

J'aimerai mettre un même numéro par type de défaut

Par exemple:

1001 pour Fourche 1 : Palette non centré à droiter exemple.

1002 pour Fourche 1 : Palette non centré à gauche

Remplacer les anciens codes par le nouveau code

En sachant que j'ai plusieurs type d’équipement pas simplement des TK

Voir fichier joint

Merci

6code-defaut.xlsx (23.38 Ko)

Bonjour

Teste ce fichier:

19code-defaut-v1.xlsm (21.36 Ko)

Dis-moi

A+

Salut Patty

Merci pour ton retour, ta macro fonctionne bien. Mais elle ne correspond pas à ce que je désirerais, je pense que je me suis mal expliqué, j'aurais aussi dû mettre un onglet liste .

mon besoin est que la macro suivant l'intitulé du défaut remplace le numéro existant par un mis par

défaut. Sur le fichier joint j'ai rajouté un onglet liste avec une colonne nouveau numéro et texte du message.

Sur l'onglet liste, que le numéro dépendant du message remplace celui qui sur l'onglet donnée ayant le même message

Merci

Bonjour

Vois si cela te convient:

21code-defaut-v2.xlsm (21.44 Ko)

A+

Salut Patty

C'est exactement ce que je voulais, cela va énormément me simplifier mes analyse.

Pourrais tu m'expliquer ton code ?

Set Rng = wsl.Range("B:B").Find(wsd.Cells(i, 3), LookIn:=xlValues, lookat:=xlWhole)

If Not Rng Is Nothing Then

lig = Rng.Row

wsd.Cells(i, 1) = wsl.Cells(lig, 1).Value

Cela me servirais peut être

Grand merci

Bonjour

Je te renvoie le fichier avec quelques commentaires

19code-defaut-v2.xlsm (22.11 Ko)

A+

Salut Patty

Merci pour tes explications.

Cdt

Rechercher des sujets similaires à "macro meme code defaut type"