Microsoft 365 Recherche la fonction VBA

[Emile63]

Bonjour a tous,

Je crée une table avec la boucle ci dessous, mon problème c'est que dans certaines cellules il y a plusieures lignes dans la même cellule (Alt+tab) et dans le tableau j'aimerais que ce ne soit qu'une seule et même ligne. Est-ce qu'il y a une fonction qui me permets de le faire?

For i = 1 To 14
tableau_Type(i) = Feuil2.Cells(X, 2).Value
X = X + 1
Next

Merci d'avance pour votre aide.
Cordialement,

 

[laurent3372]

Essaie ceci (non testé) :

tableau_type(i)=replace(feuil2.cells(X,2),vblf," ")

 

[laurent950]

Bonjour
Voici la solution ci dessous.

Dim new_text As String
For i = 1 To 14
        new_text = Replace(Feuil2.Cells(X, 2).Value , Chr(10), " ")
        new_text = Replace(new_text, Chr(13), " ")
        tableau_Type(i)  = new_text
X = X + 1
Next

 

[Emile63]

Merci beaucoup, et bonne soirée