Fonction VBA de suppression de caractères

Résolu
hich007 Messages postés 21 Date d'inscription   Statut Membre Dernière intervention   -  
hich007 Messages postés 21 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je veux créer une macro qui sert à supprimer les 3 premiers caractères à gauche du contenu de la cellule pour les n lignes de la colonne exemple :

Colonne A

RD 123 => 123
RD 125 => 125
RD 126 => 126
RD 127 => 127

et faire le traitement pour les n lignes de la colonne

Pouvez vous m'aider svp ? merci
A voir également:

3 réponses

Réponse 1 / 3
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

un facon de faire:

code a mettre dans un module ou ThisWorkbook 

Sub Sup_RD()
  'pour la dernière ligne de la colonne A
  'feuille a adapter
  Application.ScreenUpdating = False
  With Worksheets("feuil1")
    derlig = .Range("A" & Rows.Count).End(xlUp).Row
    Set Plage = .Range("A1:A" & derlig)
    For Each cel In Plage
      .Range("A" & cel.Row) = Replace(cel, "RD ", "")
    Next cel
  End With
  Application.ScreenUpdating = True
End Sub


Bonne suite
0
Réponse 2 / 3
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
En employant la fonction Replace d'Excel c'est plus simple.. 
Sub Remplacer()
    Columns(3).Replace What:="RD ", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows
End Sub

Adapter le N° de colonne.
A+
0
Réponse 3 / 3
hich007 Messages postés 21 Date d'inscription   Statut Membre Dernière intervention  
 
merci bcp à vous tous :-)
0

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Durée de Fonctionnement cpu
Theodose3 -
Aubin -

7 réponses