Fonction VBA de suppression de caractères

Résolu/Fermé

hich007 Messages postés 21 Date d'inscription mercredi 19 janvier 2011 Statut Membre Dernière intervention 31 octobre 2012 - 12 oct. 2012 à 10:05
hich007 Messages postés 21 Date d'inscription mercredi 19 janvier 2011 Statut Membre Dernière intervention 31 octobre 2012 - 18 oct. 2012 à 11:38

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:

Fonction VBA de suppression de caractères
Caractères ascii - Guide
Forcer suppression fichier - Guide
Fonction si et - Guide
Caractères spéciaux symboles clavier - Guide
Exemple de mot de passe à 8 caractères - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
12 oct. 2012 à 10:59

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

Réponse 2 / 3

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
12 oct. 2012 à 12:26

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+

Réponse 3 / 3

hich007 Messages postés 21 Date d'inscription mercredi 19 janvier 2011 Statut Membre Dernière intervention 31 octobre 2012
18 oct. 2012 à 11:38

merci bcp à vous tous :-)

Discussions similaires

1500 signes équivaut à combien de ligne dans un document wor

Méthode find dans VBA - Recherche de données sous Excel

Erreur d'exécution 13 Incompatibilité de type

Discussions similaires

Newsletters