Effacer 11 premier caractère VBA
franck
-
fdrhsrth -
fdrhsrth -
Bonjour,
Je fais une macro sur excel et pour raison profession je cherche à supprimer les 11 premiers caractères de toutes les cellules sur la colonne D.
Merci par avance!
et bon week-end ensoleillé à tous!!
Je fais une macro sur excel et pour raison profession je cherche à supprimer les 11 premiers caractères de toutes les cellules sur la colonne D.
Merci par avance!
et bon week-end ensoleillé à tous!!
Configuration: Windows XP Internet Explorer 6.0
A voir également:
- Effacer 11 premier caractère VBA
- Caractère spéciaux - Guide
- Caractere speciaux - Guide
- Windows 11 - Guide
- Logiciel montage vidéo gratuit windows 11 - Guide
- Mise à jour KB5077241 pour Windows 11 : à boire, à manger, et à jeter - Guide
1 réponse
Bonjour,
Voilà un exemple:
;o)
Voilà un exemple:
Dim lig As Long
Dim chaine As Variant
lig = 2 'mettre la première ligne où doit commencer le test
While Worksheets(1).Range("D" & lig).Value <> ""
chaine = Worksheets(1).Range("D" & lig).Value
Worksheets(1).Range("D" & lig).Value = Mid(chaine, 11, len(chaine) )
lig = lig + 1
Wend
;o)
merci de ton aide mais j'au trouver en convertissant :
Columns("E:E").Select
Selection.Insert Shift:=xlToRight
Range("D17:D536").Select
Selection.TextToColumns Destination:=Range("D17"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(12, 1)), TrailingMinusNumbers:=True
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Range("E9").Select
merci!!