Fonction Replace qui ne fonctionne pas

Bonjour à tous,

Je suis confronté un problème lors de l'utilisation de la fonction Replace en VBA.

Mon objectif est de remplacer les sauts chariot présent dans une cellule déterminée par un caractère '$', plus facile pour continuer mon traitement. Lorsque que je teste mon code sur une cellule la,ba, pas de problème, mais lorsque que je lance le code sur la cellule source, aucun résultat.

Ci-dessous le code utilisé, et en pièce le fichier utilisé.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Test() Dim FeuilleRecep As Worksheet Set FeuilleRecep = sh_Reception   ' Cellule désirée FeuilleRecep.Range("A4").Replace Chr(10), "$" ' Cellule test FeuilleRecep.Range("A7").Replace Chr(10), "$" ' Temporisation Application.Wait Now + TimeValue("0:00:02") 'Modification inverse pour relancer un test FeuilleRecep.Range("A4").Replace "$", Chr(10) FeuilleRecep.Range("A7").Replace "$", Chr(10)   End Sub

---

Je suis sûr qu'il s'agit d'une subtilité sur le format de la cellule. Si une manip' permet de formater la cellule source permettant le traitement, je suis preneur :).

Par avance merci de votre aide, et bon courage !

Salut,

as-tu regarde le code qui t'etait donne par l'enregistreur de macro ? Je pense que Chr(10) est a completer/a remplacer avec Chr(13)

j'ai testé ton fichier il y a bien un saut de ligne mais en fait avec la fonction replace sur "celle il faut replacer alt+chr(10) ce qui est impossible alors tu dois recupérer le texte dans un string ou modifier la chaine directement mais toujours en tant que string
et faire sauter les chr(10)

Code:

---

with FeuilleRecep.Range("A4"):.value =Replace(.Value, Chr(10), "$"):end with

---

pour pouvoir taper un saut de ligne dans une cellule la touche alt doit être enfoncée pour taper sur enter donc l'inverse doit être considéré mais a ma connaissance je ne sais pas mais il me semble que ce ne soit pas possible de replacer "alt"+enter
;)

Bonjour Jean-Philippe, Bonjour Patrick

@Jean-Philippe: Oui, et même en tapant Alt+0010, cela ne fonctionne pas.

@Patrick: C'est exactement ça! Ton code fonctionne, il suffisait de travailler la Value, mais je n'avais pas essayé si la fonction Replace fonctionnait aussi.

Le problème est résolu, merci !

J'en profite pour vous remercier de manière générale, notamment Jean-Philippe, qui m'avait déjà aidé en répondant aux autres discussions :plusser: