VB Excel - Remplacer cellules

Résolu

Rikkunter Messages postés 7856 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention - 14 sept. 2010 à 15:37

Bonjour,

Je sais que c'est nul mais ça fait une éternité que j'ai plus fait ça...

Comment faire pour parcourir l'ensemble des cellules d'un document existant, donc en Excel, et d'y insérer un test à chaque fois ?

Je veux remplacer "ST" pas "Pcs", "BT" par "Boite" etc...
Et ce uniquement dans la colonne "H" si ça peut simplifier...

Merci de votre aide~

--
They will not force us, they will stop degrading us, they will not control us, we will be victorious. <3

Hey. J'suis une fille. Tabarnak.

Afficher la suite

2 réponses

Réponse 1 / 2
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention 1 784
Re,

Utilise ce code :
```
Sub test()
Dim rng As Range
Dim cel As Range
  Set rng = ActiveSheet.Columns("H").Resize(ActiveSheet.UsedRange.Rows.Count)
  For Each cel In rng.Cells
    cel.Value = Replace(cel.Value, "ST", "Pcs")
    cel.Value = Replace(cel.Value, "BT", "Boite")
  Next
End Sub
```
Cordialement
Patrice
0
1. Rikkunter Messages postés 7856 Date d'inscription Statut Membre Dernière intervention 181
  
  J'essaie ça, c'est cool, merci :)
  C'est à intégrer à mon code, donc je fais une nouvelle Function ?
  Je sais c'est tout con comme question, mais quand tu as plus l'habitude... C'est plus vraiment naturel !
  Merci encore !
  
  0
2. Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention 1 784
  
  Au choix soit tu intègre les lignes dans le code existant soit tu fais une nouvelle procédure Sub (mais pas une Function) de tu appelle depuis ton code par Call Test (remplacer Test par le Nom de la Sub).
  
  0
3. Rikkunter Messages postés 7856 Date d'inscription Statut Membre Dernière intervention 181
  
  Yep, j'ai fait un call, et fait une Sub à côté :)
  Merci beaucoup de ton aide en tout cas !
  
  0
4. Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention 1 784
  
  De rien, avec plaisir
  
  0
Réponse 2 / 2
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention 1 784

Bonjour,

Utilise Édition, Remplacer ...
-1
1. Rikkunter Messages postés 7856 Date d'inscription Statut Membre Dernière intervention 181
  
  Salut,
  
  Merci, mais il faut que ce soit inclu dans la macro, pour que ça se fasse automatiquement. Ca va ensuite s'injecter dans une base de données, donc ça serait une opération à effectuer des centaines de fois... Autant l'incorporer.
  
  0

VB Excel - Remplacer cellules

2 réponses

Discussions similaires

Newsletters