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
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
A voir également:
- Fonction VBA de suppression de caractères
- Fonction si et - Guide
- Forcer suppression fichier - Guide
- Caractères ascii - Guide
- Caractères spéciaux clavier azerty - Guide
- Exemple de mot de passe à 8 caractères - Guide
3 réponses
f894009
Messages postés
17213
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 décembre 2024
1 711
12 oct. 2012 à 10:59
12 oct. 2012 à 10:59
Bonjour,
un facon de faire:
code a mettre dans un module ou ThisWorkbook
Bonne suite
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
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
12 oct. 2012 à 12:26
12 oct. 2012 à 12:26
Bonjour,
En employant la fonction Replace d'Excel c'est plus simple..
Adapter le N° de colonne.
A+
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
Messages postés
21
Date d'inscription
mercredi 19 janvier 2011
Statut
Membre
Dernière intervention
31 octobre 2012
18 oct. 2012 à 11:38
18 oct. 2012 à 11:38
merci bcp à vous tous :-)