Modification code avec retour chariot

Bonjour à tous,

Pourriez-vous m'aider à supprimer les "retours chariots" inutiles dans les cellules que provoque l'exécution du code suivant si certaines cellules sont "vides" ?

Merci beaucoup,

Code:

---

1 2	MAR.Range("B2").Value = Fsource.Cells(24, Col).Value & vbLf & Fsource.Cells(25, Col).Value & vbLf & Fsource.Cells(26, Col).Value

---

Ce code me sert à placer le contenu de 3 cellules provenant d'une feuille Fsource dans la cellule B2 de ma feuille MAR

Le problème c'est que lorsque les cellules sont vides j'obtiens un retour chariot inutile.

J'aimerais, en fin de code, supprimer tous les "retours chariots" inutiles qui se trouvent dans les cellules de la feuille MAR

J'ai essayé en utilisant ceci mais ça ne fonctionne pas :

Code:

---

1 2 3 4 5 6

For a = 1 To 50 Mar .Range("B1:C50").Replace X, Chr(10) Next .Range("B1:C50").EntireRow.AutoFit '<<<==== Lligne ajoutée

---

Citation:

---

Envoyé par fb62840

Pourriez-vous m'aider à supprimer les "retours chariots" inutiles dans les cellules que provoque l'exécution du code suivant si certaines cellules sont "vides" ?

---

Il est plus simple de ne pas les mettre que de les supprimer.

Code:

---

1 2 3

MAR.Range("B2").Value = IIf(Len(Fsource.Cells(24, Col).Value) = 0, "", Fsource.Cells(24, Col).Value & vbLf) MAR.Range("B2").Value = MAR.Range("B2").Value & IIf(Len(Fsource.Cells(25, Col).Value) = 0, "", Fsource.Cells(25, Col).Value & vbLf) MAR.Range("B2").Value = MAR.Range("B2").Value & Fsource.Cells(26, Col).Value

---

Bonjour,

Merci beaucoup, avec votre explication, j'ai trouvé la solution.

Par contre les retours chariots sont à gérer un peu différemment sinon ils s'ajoutent de manière incorrecte.

Voici comment j'ai adapté votre code :

Code:

---

1 2 3 4

MAR.Range("B2").Value = IIf(Len(Fsource.Cells(24, Col).Value) = 0, "", Fsource.Cells(24, Col).Value) MAR.Range("B2").Value = MAR.Range("B2").Value & IIf(Len(Fsource.Cells(25, Col).Value) = 0, "", vbLf & Fsource.Cells(25, Col).Value) MAR.Range("B2").Value = MAR.Range("B2").Value & IIf(Len(Fsource.Cells(Fsource.Cells(26, Col).Value) = 0,"", vbLf & Fsource.Cells(Fsource.Cells(26, Col).Value

---

Et ainsi tout se passe bien.

Merci beaucoup.

bonsoir

Code:

---

1 2	res = Array(Fsource.Cells(24, Col).text, Fsource.Cells(24, Col).text, Fsource.Cells(24, Col).text) If Join(res) Like "[a-z-A-z-0-9]" Then MAR.Range("B2").Value = Join(res, vbCrLf)

---

Bonjour,
Merci beaucoup pour votre aide

Navré de répondre si tardivement, j'étais absent pour quelques jours.

J'ai tenté en corrigeant :

Code:

---

1 2 3

res = Array(Fsource.Cells(24, Col).text, Fsource.Cells(25, Col).text, Fsource.Cells(26, Col).text) If Join(res) Like "[a-z-A-z-0-9]" Then MAR.Range("B2").Value = Join(res, vbCrLf)

---

Ce qui est étrange, c'est que lorsque j'affiche le contenu de Join(res) dans une msgbox j'obtiens bien les valeurs contenues dans les 3 cellules mais la ligne IF join(Res) Like "[a-z-A-z-0-9]" Then MAR.Range("B2").Value = Join(res, vbCrLf) n'affiche pas de valeur dans la cellule B2