Remplacement d'une chaine de caractères en VB
Résolu
touroul
Messages postés
520
Date d'inscription
Statut
Membre
Dernière intervention
-
touroul Messages postés 520 Date d'inscription Statut Membre Dernière intervention -
touroul Messages postés 520 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 :
Puis-je vous demander un peu d'aide svp ?
Par avance merci !
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
2 réponses
-
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
-
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.
