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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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: 33
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
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour