Microsoft 365 Excel : si cellule contient "4" alors "4" ou contient "6" alors "6"

[Elodie10]

Bonjour,
c'est sans doute une énième question concernant les conditions dans Excel, mais après avoir bien cherché, je n'ai toujours pas trouvé la bonne formule. Donc, j'en appelle à votre aide svp.
Je voudrais renvoyer en colonne B une valeur qui correspond à un morceau de texte de ma cellule en colonne A.
Mon cas précisément :
J'ai une liste de plusieurs milliers d'articles dont l’unité d'achat (colonne A) est, par exemple, "colis de 4 unités" ; je veux alors ramener en colonne B le chiffre 4.
Quand l'unité d’achat est "colis de 6 unités", je veux ramener 6;
Quand l'unité d’achat est "colis de 12 unités", je veux ramener 12;
etc.
J'ai mis en pièce jointe un fichier pour illustrer mon cas, avec la formule que j'ai testée, sans succès.
Merci d'avance.

 

[pierrejean]

bonjour Elodie10
Avec une fonction personnalisée

 

[Elodie10]

Trop fort! merci beaucoup.

 

[job75]

Bonjour Elodie10, Pierre,

Voyez le fichier joint et cette formule en B2 :

=SIERREUR(--SUBSTITUE(SUBSTITUE(SUBSTITUE(A2;"Colis de";);"unité";);"s";);"")

A+

 

[eriiic]

Bonjour à tous,

une autre :

=--STXT(A2;10;NBCAR(A2)-15)

eric

 

[Modeste geedee]

Bonsour®

Mon cas précisément :
J'ai une liste de plusieurs milliers d'articles dont l’unité d'achat (colonne A) est, par exemple, "colis de 4 unités" ; je veux alors ramener en colonne B le chiffre 4.
Quand l'unité d’achat est "colis de 6 unités", je veux ramener 6;
Quand l'unité d’achat est "colis de 12 unités", je veux ramener 12;

directement issue de l'enregistreur :

Sub Macro1()
    Columns("A:A").Select
    Selection.Replace What:="*colis de ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="uni*", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

 

[ChTi160]

Bonsoir Elodie10
Bonsoir le Fil ,le Forum
ou un truc du genre

Public Function Init(Cellule As Range) As String
 Init = Split(Cellule, " ")(2)
End Function

jean marie

 

[mapomme]

Bonjour @Elodie10 ,
Surtout pour saluer @pierrejean , @job75 , @eriiiic ,@Modeste geedee , @ChTi160 , @Usine à gaz ,

Et pour montrer qu'on peut faire une formule beaucoup plus longue, beaucoup plus tordue, beaucoup plus matricielle, beaucoup plus illisible et un peu plus tolérante.