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 !