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

Elodie10

XLDnaute Nouveau
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.
 

Pièces jointes

  • condition excel.jpg
    condition excel.jpg
    39.8 KB · Affichages: 13

Modeste geedee

XLDnaute Barbatruc
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 :
VB:
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
 

mapomme

XLDnaute Barbatruc
Supporter XLD

Pièces jointes

  • Elodie10- recherche- v1.xlsx
    11.6 KB · Affichages: 6
Dernière édition:
Haut Bas