Sujet Précédent Sujet Suivant

Effacer 11 premier caractère VBA

franck -  
 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!!
A voir également:

1 réponse

Réponse 1 / 1
Polux31 Messages postés 7219 Statut Membre 1 204
 
Bonjour,

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)
1
fdrhsrth
 
Bonjour,
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!!
0

Discussions similaires

Formate
2015 -
MPMP10 -

1 réponse