Menu

Remplacement d'une chaine de caractères en VB [Résolu]

Messages postés
351
Date d'inscription
mardi 5 octobre 2010
Statut
Membre
Dernière intervention
24 mars 2019
-
Bonsoir le forum.

Je souhaiterais, dans une sélection de cellules, remplacer le contenu de toutes les cellules contenant au moins 5 caractères par le mot "oui", en VB.

J'imagine que je dois combiner "LEN" et "REPLACE".
Du genre :
Selection.Replace What:=LEN>5, Replacement:="oui"


Puis-je vous demander un peu d'aide svp ?

Par avance merci !

Configuration: Windows / EXCEL 2013 / Firefox 63.0
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
10544
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2019
1393
1
Merci
Bonsoir

Tu peux faire quelque chose du genre :
plage=ActiveSheet.Range("A1:B20") 'Adapter la définition dela plage à ton fichier
for each cell in plage
If lLen(cell.value)>=5 then cell.value="oui"
Next 


Cdlmnt
Via

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 40383 internautes nous ont dit merci ce mois-ci

Commenter la réponse de via55
Messages postés
351
Date d'inscription
mardi 5 octobre 2010
Statut
Membre
Dernière intervention
24 mars 2019
12
0
Merci
Bonjour Via

Merci bien pour ta réponse.
Effectivement cette syntaxe fonctionne.

Juste pour info pour ceux qui passeraient par ici, cette macro s'applique à une zone nommée, voici la macro définitive.

Sub MacroRemplace()
For Each cell In Range("MaZoneNommee")
If Len(cell.Value) >= 5 Then cell.Value = "oui"
Next
End Sub


Bonne journée et merci encore.
Commenter la réponse de touroul