Convertir des données d'une cellule vers la même cellule
N
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 CellEn 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