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