Suppression une partie d'une cellule

Bonjour,

Je chercherais un code afin de supprimer une partie du contenue de 2093 cellules.

Ici dans la colonne B je souhaiterais effacer tous les 113 et laisser uniquement le nombre qui suit. Exemple : 113 111.001 -> 111.001 etc...

Auriez-vous des idées?

Merci à vous :)

Bonjour,

Allège ton fichier !!!

=SUBSTITUE(B14;"113 ";"")

Adaptation au différents onglets

=SUBSTITUE(B14;CONCATENER($C$10;" ");"")

Bonne Journée

Salut,

Si tu veux passer par une macro pour modifier directement la colonne, utilise ceci :

Private Sub traiterColonne_Click()

    Application.ScreenUpdating = False

    Dim Ws_113 As Worksheet
    Set Ws_113 = ThisWorkbook.Worksheets("CAN 113")

    derligPrix = Ws_113.Range("B" & Rows.Count).End(xlUp).Row

    Dim tabPrix() As Variant
    tabPrix = Ws_113.Range("B14", "B" & derligPrix).Value

    For i = LBound(tabPrix, 1) To UBound(tabPrix, 1)

        tabPrix(i, 1) = Replace(tabPrix(i, 1), "113", "")

    Next i

    Ws_113.Range("B14").Resize(UBound(tabPrix, 1), UBound(tabPrix, 2)) = tabPrix

    Application.ScreenUpdating = True

End Sub

Bibu

Bonjour,

sélectionne la Colonne B, rechercher ou ctrl + f , remplacer 113 par rien