Effacer 11 premier caractère VBA

Fermé

franck - 20 mars 2009 à 16:47
fdrhsrth - 23 mars 2009 à 09:31

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:

Effacer 11 premier caractère VBA
Caractère ascii - Guide
Caractere speciaux - Guide
Caractère spéciaux - Guide
Windows 11 23h2 - Accueil - Windows
Installer windows 11 sur pc non compatible - Accueil - Windows

1 réponse

Réponse 1 / 1

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
20 mars 2009 à 17:02

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)

fdrhsrth
23 mars 2009 à 09:31

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!!

Discussions similaires

Caractère invisible ou vide pour pseudo invisible