Convertir des données d'une cellule vers la même cellule

Bonjour à tous, bonjour le forum,

Merci pour vos précieuses réponses ! Elles fonctionnent parfaitement

Pour le coup j'ai refait quelques tests hier soir (nuit) avec des bouts de codes VBA venant d'autres fichiers, et j'ai trouvé celui-ci qui m'a dépanné, bien que non optimisé (avec un peu du code de @saboh12617, si tu arrives à reconnaitre de quel bout il s'agit ) :

'Décompile les informations renseignées dans la colonne B
    Range("B2:B5").Select
    Selection.TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="" & Chr(10) & "", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12 _
        , 1)), TrailingMinusNumbers:=True

'Supprime le masque proposé (avant les ":")
  For Each Cell In Range("B2:G5")
    If Cell.Value <> 0 Then
      Cell.Value = Trim(Right(Cell.Value, Len(Cell.Value) - InStrRev(Cell.Value, ":")))
    End If
  Next Cell

En revanche c'est tiré d'un vieux fichier, réadapté au besoin, et ça manque d'optimisation (mais ça a fonctionné pour 300 lignes donc bon...)

Merci encore à tous pour m'avoir aidé et surtout pour nous avoir permis de progresser collectivement. C'est aussi pour cela que j'adore naviguer sur ce forum

8conversion2.xlsm (18.33 Ko)
Rechercher des sujets similaires à "convertir donnees meme"