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

Elodie10 · 11 Septembre 2020

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 · 11 Septembre 2020

bonjour Elodie10
Avec une fonction personnalisée

Elodie10 · 11 Septembre 2020

Trop fort! merci beaucoup.

job75 · 11 Septembre 2020

Bonjour Elodie10, Pierre,

Voyez le fichier joint et cette formule en B2 :

Code:

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

A+

eriiic · 11 Septembre 2020

Bonjour à tous,

une autre :

VB:

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

eric

Modeste geedee · 11 Septembre 2020

Bonsour®

Elodie10 à dit:
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

ChTi160 · 12 Septembre 2020

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

VB:

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

jean marie

mapomme · 13 Septembre 2020

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.

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

Elodie10

XLDnaute Nouveau

Pièces jointes

pierrejean

XLDnaute Barbatruc

Pièces jointes

Elodie10

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

eriiic

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

Discussions similaires