Formule pour supprimer certain chiffres d'une celule

Bonjour A tous,

Pouvez vous me donner la formule qui me permettrais de supprimer certain chiffre d'une cellule, comme dans l'exemple en piéce jointe.

Merci par avance pour vos Lumières.

Fichier Ici.

Bonjour, et bienvenue

Une solution en deux temps, voir fichier joint

A te relire,

Leakim

Bonjour,

Une solution par macro qui supprime toutes les chaines de nombres suivies de ":"

Bonjour game over,

Je dois dire que je l'imaginais bien un code pareil, de là à la faire ....

Bravo

leakim

Salut leakim et merci pour ce petit mot sympa

le code m'est venu assez spontanément donc...

Non, je plaisante, il y a quand même eu un peu de boulot, d'ailleurs je viens d'éditer fichier que j'ai posté, il y avait un petit bug.

Super merci a vous deux c'est exactement ce que je souhaité.

Ps : Je n'y connait absolument rien en macro, quel est la marche a suivre pour la réaliser sur l'ensemble de mes produits.

Merci encore.

poste ton fichier original s'il ne contient pas de données trop sensibles

Ne peux tu pas me donner pas a pas les étapes a suivre avec excel ?

Car en effet je serais obligé de le réaliser sur plusieurs tableau.

Voici une procédure générale qu'il faudra adapter à tes besoins.

Ouvre le classeur que tu souhaites traiter.

Dans le menu du haut, sélectionne l'onglet développeur; s'il n'existe pas affiche le de la façon suivante :

Clique sur le bouton Microsoft Office (tout en haut à gauche), puis sur Options Excel, Clique ensuite sur Standard, puis active la case à cocher Afficher l'onglet Développeur dans le ruban.

Dans le ruban développeur, sélectionne l'icone Visual Basic.

Affichage

Explorateur de Projets... une fenêtre à gauche de la fenêtre principale apparaitra alors (si elle n'était pas active par défaut).

Celle ci s'appelle "Projet - VBAProject"

Sélectionne, dans cette fenêtre, la feuille que tu veux traiter.

Le nom de la feuille va alors appraitre grisée.

colle le code suivant dans cette feuille :

Sub essai()
Dim myRange As Range, zz As String, aa As String, mm As String, derLig As Integer

derLig = Range("A" & Rows.Count).End(xlUp).Row
Range(Range("B2"), Cells(derLig, 2)).ClearContents
For j = 2 To derLig
zz = "": mm = ""
aa = Cells(j, 1)
For i = 1 To Len(aa)
    If IsNumeric(Mid(aa, i, 1)) And (IsNumeric(Mid(aa, i + 1, 1)) Or Mid(aa, i + 1, 1) = ":") Then zz = zz & Mid(aa, i, 1)
    If IsNumeric(Mid(aa, i, 1)) And (Not IsNumeric(Mid(aa, i + 1, 1)) And Mid(aa, i + 1, 1) <> ":") Then zz = ""
    If i > 1 Then
        If Mid(aa, i, 1) = ":" And IsNumeric(Mid(aa, i - 1, 1)) Then zz = zz & Mid(aa, i, 1): _
        mm = Application.WorksheetFunction.Substitute(aa, zz, ""): aa = mm: zz = "": i = 0
    End If
Next i
Cells(j, 2) = mm
If mm = "" Then Cells(j, 2) = Cells(j, 1)
Next j
End Sub

Va ensuite dans le menu exécution et sélectionne Exécuter/sub UserForm :

La macro renverra dans la colonne B de ta feuille les résultats de traitement de toutes les cellules de la colonne A depuis la cellule A2 jusqu'à la dernière cellule non vide de ta colonne A.

Fais donc attention à avoir ta colonne B vide si tu ne veux pas que la macro vienne effacer des infos déjà existantes.

Ok super Merci pour tout;

Sa fait Plaisir de tomber sur de vrai pro.

Merci Encore