High-Tech Santé Médecine Droit-Finances

Connecter

la Wii à Internet

Rechercher : dans
Par :

Effacer 11 premier caractère VBA

Dernière réponse le 23 mar 2009 à 09:31:26 franck, le 20 mar 2009 à 16:47:03 
 Signaler ce message aux modérateurs

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

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « effacer 11 premier caractère VBA » dans :
Sed - Introduction à SED - Part III VoirSED - The Stream EDitor - Part III Ce document est une introduction à la pratique et à l'utilisation de l'éditeur de flux "SED", qui essaie de couvrir certaines fonctionnalités assez méconnues, pour ne pas dire "quasi inconnues", qui font de "SED"...
Les piles en langage C VoirLes piles Requis I. INTRODUCTION II. Définition III. La construction du prototype d'un élément de la pile IV. Opérations sur les piles A. Initialisation B. Insertion d'un élément dans la pile C. Ôter un élément de la pile D. Affichage...
[Windows] Auto-complétion des commandes dans la console Voir
VBScript - Les fonctions de chaînes de caractères VoirLes fonctions de chaînes de caractères Fonction Description Filter(InputStrings, Value[, Include[, Compare]]) Sélectionne des chaînes de caractères parmi un tableau de chaînes...
Fonctions de texte Voir
Posez votre question Répondre

1

Polux31, le 20 mar 2009 à 17:02:32

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) «Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» 
Nicolas Boileau

   
Répondre à Polux31

2

 fdrhsrth, le 23 mar 2009 à 09:31:26

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

   
Répondre à fdrhsrth
Posez votre question Répondre
Ils ont besoin de votre aide