Remplacement d'une chaine de caractères en VB

Résolu
touroul Messages postés 509 Date d'inscription   Statut Membre Dernière intervention   -  
touroul Messages postés 509 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

Réponse 1 / 2
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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
1
Réponse 2 / 2
touroul Messages postés 509 Date d'inscription   Statut Membre Dernière intervention   16
 
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.
0