Discussion :

[JeromeLdze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Jean-Philippe André]

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)

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[JeromeLdze]

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