Discussion :

[JukeBoX]

Bonjour,

Voilà le problème, j'ai une valeur cellule A1 avec un saut de ligne, une textbox avec laquelle j'indique un texte avec un saut de ligne qui va ensuite copier cette valeur en B1 et ensuite une macro qui compare A1 et B1 et si identique alors affiche OK en C1.
Lorsque je rentre les mêmes valeurs en A1 et B1 le code ne fonctionne pas mais si je ne mets pas de saut de ligne alors le code fonctionne... Je n'arrive pas à me dépatouiller avec ça

test.xlsm

Merci pour votre aide

[tototiti2008]

Bonjour,

le retour à la ligne dans la Textbox est codé par vbCrLf (ou chr(13) & chr(10))
en faisant Alt+Entrée dans une cellule, le retour à la ligne est codé par vbLf (ou chr(10))

pour que ce soit équivalent, il faudrait écrire

Code :

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

range("B1").value = replace(textbox1.text, vbCrlf, vblf)

[JukeBoX]

Je te remercie tototiti2008 !

Du coup est-ce que c'est possible de comparer deux valeurs de cellules sans tenir compte compte des retours lignes et retour chariot ?

[tototiti2008]

par exemple

Code :

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

if replace(replace(range("A1").value),vbcr,""),vblf,"") = replace(replace(range("B1").value),vbcr,""),vblf,"") then

[JukeBoX]

Du coup j'ai un tableau sur plusieurs lignes et je voulais savoir si c'était possible de remplacer vbCrLf (ou chr(13) & chr(10)) par vbLf (ou chr(10)) ?

[tototiti2008]

Bonsoir,

Code :

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

=substitue(A1;Car(13);"")

à recopier
puis à coller en valeur

[JukeBoX]

Possibilité d'avoir une macro qui agit sur la colonne entière ?

Je te remercie

EDIT : Est-ce que ce code pourrait faire l'affaire ?

Code :

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

1
2
3
With Worksheets("Feuil1")
.Range("A:A").Replace vbCrLf, ""
End With

[JukeBoX]

Finalement j'ai trouvé

Code :

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

1
2
3
With Worksheets("Feuil1")
.Range("A:A").Replace vbCrLf, Chr(10)
End With

Je passe le sujet en résolu.

Merci à tototiti2008 de son aide précieuse !