Bonjour,
j'ai un tableau sur lequel je doit changer tous les libellés "xxxxx - yyyy
-1223" en "yyyy - 1223"
Mon problème est que le seul point commun de tous les libellés est " - "
Est-il possible de créer une macro qui supprimerait tous les libellés du 1er
caractères jusqu'au blanc après le premier tiret ?
et encore merci a tous ce qui se sont penchés sur mon problem
Cordialement JP
Sub zzz() For Each c In Selection c.Value = Mid(c, Application.Find("-", c) + 2, 9 ^ 9) Next End Sub
AV
JB
Ne sélectionne que les constantes:
For Each c In Selection.SpecialCells(xlCellTypeConstants, 23) c.Value = IIf(InStr(c.Value, "-") > 0, Mid(c.Value, InStr(c.Value, "-") + 2), c.Value) Next c
JB
Ne sélectionne que les constantes:
For Each c In Selection.SpecialCells(xlCellTypeConstants, 23)
c.Value = IIf(InStr(c.Value, "-") > 0, Mid(c.Value,
InStr(c.Value, "-") + 2), c.Value)
Next c
For Each c In Selection.SpecialCells(xlCellTypeConstants, 23) c.Value = IIf(InStr(c.Value, "-") > 0, Mid(c.Value, InStr(c.Value, "-") + 2), c.Value) Next c
