Discussion :

[fb62840]

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 :

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

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 :

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

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

[Menhir]

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 :

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

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

[fb62840]

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 :

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

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.

[patricktoulon]

bonsoir

Code :

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

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)

[fb62840]

Bonjour,
Merci beaucoup pour votre aide

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

J'ai tenté en corrigeant :

Code :

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

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