Recherche numéro de série

Bonjour à tous

Je vous explique mon souci :

J'ai un tableau (dans le fichier ci-joint) qui contient 3 colonnes :

• Numéro de série
• Type de composant
• Type de produit

J'ai un composant "X" qui comporte plusieurs numéros de série :

• 111-325-152
• 122-554-897

J'aimerais qu'apparaisse dans la colonne "Type de composant" le nom du composant "X" en fonction du numéro de série.

Pourriez-vous m'aider ?

Merci à vous !

Bonjour

Où est-il ce tableau à 3 colonnes?

Cordialement

Bonjour,

vérifie le fichier que tu as joint, il ne correspond pas a ce que tu demandes.

Bonjour,

Excusez-moi, je me suis trompé mon tableau comporte bien 2 colonnes

Pour être plus clair, j'aimerais attribuer un nom de composant à plusieurs numéros de série. Et j'aimerais que ce nom de composant s'affiche dans la colonne "Type de composant".

Exemple :

Pour les numéros de série :

• 111-325-152
• 122-554-897

J'aimerais que le nom "X" s'affiche en face d'eux dans la colonne "Type de composant"

Bonjour

En B2, incrémenté vers le bas, une formule parmi d'autres:

=SI(SOMMEPROD(N(A2={"111-325-152";"122-554-897"}))=1;"X";"")

Cordialement

Merci de ta réponse

Et si je souhaite tester uniquement une partie du numéro de série ?

Exemple :

Si "111-325-152" contient "111", alors "X"

Aussi, s'il y a beaucoup trop d'éléments à tester, comment peut-on faire en ne passant pas par une formule ?

Bonjour

Pour tester le 111 avec une formule

=SI(NB.SI(A2;111&"*")=1;"X";"")

Cordialement

Bonjour

Suite au précédent message:

Pour tester sans formules, Code Module

Sub Cherche()
Dim Cel As Range
For Each Cel In Range("A2", Range("A2").End(xlDown))
If Cel Like "111*" Then
Cel.Offset(0, 1) = "X"
End If
Next Cel
End Sub

Tu cliques sur le bouton pour tester

Cordialement

Bonjour,

Merci pour tes solutions, la seconde marche du tonnerre !

Cependant je ne m'y connais pas en VBA, comment puis-je faire pour rajouter d'autres conditions dans le code ?

Exemple :

• "X" pour les numéros de série "111"
• "Y" pour les numéros de série "112"

Un petit UP svp ?

Bonjour,

Sub Cherche()
Dim Cel As Range
For Each Cel In Range("A2", Range("A2").End(xlDown))
If Cel Like "111*" Then Cel.Offset(0, 1) = "X"
If Cel Like "112*" Then Cel.Offset(0, 1) = "Y"
If Cel Like "113*" Then Cel.Offset(0, 1) = "Z"

Next Cel
End Sub

Bonjour,

Merci beaucoup à toi, c'était tout simple finalement

Une dernière chose, si ça ne te dérange pas. J'ai l'impression que la macro ne prend en compte que le début de texte des cellules.

Pour certains numéros de série, j'aimerais utiliser la macro pour qu'elle reconnaisse les 3 derniers chiffres par exemple.

Aurais-tu une idée de comment faire s'il te plaît ?

Merci

Bonjour

Dans le code, rajoutes un astérisque

If Cel Like "*111*"

Cordialement

Super, merci de ton aide !

Je me suis servi de ta macro pour créer une autre colonne qui renseigne un autre type d'informations à partir des numéros de série.

Je m'explique. J'ai désormais 2 colonnes avec tes macros, mais j'ai changé les critères dedans. Je veux que chacune des 2 colonnes me donne une info différente en fonction des numéros de série.

Mais lorsque je clique sur le bouton de la macro de la colonne 1, les résultats apparaissent bien dans cette colonne mais aussi dans la colonne 2 !

C'est à s'arracher les cheveux, j'ai beau changer des choses dans la macro cela ne donne rien...

Aurais-tu une idée du problème s'il te plaît ?

Up svp ?