Renvoi à la ligne de valeurs LISTBOX's

Bonjour à tous,

je souhaite, dans une cellule, afficher les valeurs de plusieurs textbox (7 en tout) avec un retour à la ligne à la fin de chaque valeur.

Seulement, si une des textbox est vide, je souhaiterai que la valeur "" ne soit pas prise en compte. En gros je veux éviter de me retrouver avec des retours à la lignes qui seraient vides.

Voici mon code:

sub Affich

derlignA = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row

Sheets("Feuil1").Range("C" & derlignA).Value = TextBox1.Value & Chr(10) & TextBox2.Value & Chr(10) & TextBox3.Value 'etc etc,.... jusqu'à textbox7

endsub

Quelqu'un aurait une idée?

Au pire je pourrai faire une succession de IF AND OR - THEN mais j'ai peur que celà soit trop lourd. (64 procédures à taper).

Bonjour,

à tester

Sub Affich()
    derlignA = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    t = ""
    sep = ""
    For i = 1 To 7
        If Me("textbox" & i) <> "" Then t = sep & Me("textbox" & i)
        If t <> "" Then sep = vbLf
    Next i
    Sheets("Feuil1").Range("C" & derlignA).Value = t
End Sub

Malheureusement ça ne fonctionne pas.

Il m'affiche en colonne C: alt+Entrée puis la valeur textbox3 uniquement.

Je continue à chercher de mon côté.

bonjour,

il me faudrait ton fichier pour pouvoir t'aider davantage.

Voilà qui est fait.

Désolé le fichier est fait un peu rapidement car je suis au travail.

Je ferai ça plus au propre ce soir si nécessaire.

rebonjour

et au temps pour moi ! ceci devrait aller mieux ....

        t = ""
        sep = ""
        For i = 1 To 4
            If Me("textbox" & i) <> "" Then t = t & sep & Me("textbox" & i)
            If t <> "" Then sep = vbLf
        Next i
        Sheets("Feuil1").Range("C" & derlignA).Value = t

SUper vous êtes des dieux les gars merci beaucoup.