Fonction VBA de suppression de caractères Résolu

Question

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

f894009 · Answer

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

lermite222 · Answer

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+

hich007 · Answer

merci bcp à vous tous :-)

Fonction VBA de suppression de caractères

3 réponses

Discussions similaires

Newsletters