Modifier et renommer texte dans plusieurs cellules avec visual basic.

[lolo62000]

Bonjour,

j'ai une base données Excel que je dois retravailler pour simplifier la lecture d'un TCD, et j'ai des données en colonne C, qui s'intitulent : dental, dental HSA et dental estimate, ou health, health estimate, health hsa. Je voudrais, associer une macro à un bouton, qui me permette de renommer tous les mots de la colonne C débutant par "den", afin de les renommer en "dental". Et tous les mots de cette même colonne débutant par "med", en medical.
Je me casse la tête sur ça depuis 2 jours, s'il vous plaît aidez-moi!

 

[vbacrumble]

Re : Modifier et renommer texte dans plusieurs cellules avec visual basic.

Bonsoir

Sub lolo6200()
Dim c as range
For each c in Range("C1:C" & [C65536].End(xlUP).Row)
If c Like "dent*" Then c.value="dental"
If c Like "med*" Then c.value = "medical"
Next
End sub

 

[lolo62000]

Re : Modifier et renommer texte dans plusieurs cellules avec visual basic.

Merci vbacrumble!

C'est merveilleux, ça fonctionne parfaitement. Il me semblait bien qu'il fallait utiliser la fonction Like, mais je n'arrivais pas à la mettre en pratique.
Merci encore.