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 -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
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~
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~
A voir également:
- VB Excel - Remplacer cellules
- Verrouiller des cellules excel - Guide
- Liste déroulante excel - Guide
- Somme de plusieurs cellules excel - Guide
- Fusionner deux cellules excel en gardant le contenu - Guide
- Word et excel gratuit - Guide
2 réponses
Re,
Utilise ce code :
Cordialement
Patrice
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
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 !
Merci beaucoup de ton aide en tout cas !