XL 2010 Supprimer les lignes vides dans une cellule

Staple1600

XLDnaute Barbatruc

• 29 Octobre 2017

• #2

Bonsoir le fil, le forum

@Myst
C'est le résultat souhaité?

VB:

Sub Test()
Dim p As Range, c As Range
Set p = [A1].CurrentRegion
Application.ScreenUpdating = False
For Each c In p
If Len(c) < 50 Then
c.Value = Replace(c.Text, Chr(13), vbNullString)
c.WrapText = False
End If
Next
End Sub

 

Vote positif 0 Vote négatif

Myst

XLDnaute Occasionnel

• 29 Octobre 2017

• #3

Bonsoir Staple1600
Oui c'est exactement ça comme toujours
merci

 

Vote positif 0 Vote négatif

Myst

XLDnaute Occasionnel

• 29 Octobre 2017

• #4

Re
OUPS , un peu trop rapide j'ai été, le texte dans les TEXTBOX5 , 9, 10, 11, 12, 13, 14, 15, 16 et 17 doivent s'afficher a la vertical dans une même cellule en colonne "F" de la feuille "Base de donnee" et la ce n'est plus le cas, toutes les données ce place a la suite sur une seul ligne, je voudrais seulement supprimer les espaces vide verticalement dans chaque cellule

 

Vote positif 0 Vote négatif

Myst

XLDnaute Occasionnel

• 30 Octobre 2017

• #5

Allo, y a quelqu'un ?

 

Vote positif 0 Vote négatif