Discussion :

[illight]

Bonjour,

Cela faisait longtemps que je n'avais pas écrit ici.

Je reviens vers vous pour un petit souci : comme l'indique le titre, je voudrais supprimer un retour chariot, suite à l'instruction de cette requête :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    For k = LBound(TabUU, 1) To UBound(TabUU, 1) 'variable qui parcourt les lignes du tableau UU
        ContenuCellule = ""
        If k = 1 Then                           'si première ligne, on remplit la première
            firstcellule = ""
            f.Cells(c, 1).Value = NbUU
            firstcellule = firstcellule & TabTitres(1) & " : " & TabUU(1, 1) & " - Format : " & UFCMAS.TxtFormat.Value
            f.Cells(c, 2).Value = firstcellule
            c = c + 2               'on incrémente pour commencer le tab
        End If
        For j = LBound(TabUU, 2) To UBound(TabUU, 2) 'variable qui parcourt les colonnes
            If TabUU(k, j) <> "" Then
                ContenuCellule = ContenuCellule & TabTitres(j) & " : " & TabUU(k, j) & Chr(10)
            End If
        Next j
        'puis on colle la fin du contenu dans la cellule
        f.Cells(c, 2).Value = ContenuCellule
        c = c + 2
    Next k

Comme vous pouvez le constater, sur cette ligne, qui remplit ma variable ContenuCellule (je vous remets la ligne) :

ContenuCellule = ContenuCellule & TabTitres(j) & " : " & TabUU(k, j) & Chr(10)

par la suite, je remplis ma cellule et le tour est joué.
Malheureusement, quand je remplis ma cellule et que ma boucle est finie, j'ai ce chr(10) qui traine à la fin de ma cellule, et du coup, dans ma cellule, j'ai un gros blanc (qui est ce fameux retour chariot).

D'où ma question existe-t-il un moyen de supprimer juste ce dernier retour chariot ?

Pour information, à la fin de mon instruction, j'ai essayé d'écrire ça :

Code :

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

f.Cells(c, 2).Value = ContenuCellule & chr(8)

Pensant que le CHR(8) était le backspace, qui fait un retour arrière, mais ça ne marche pas et ça me met un magnifique carré blanc sur la ligne vide

Auriez-vous une solution/idée à me proposer ?

En vous remerciant par avance de votre réponse


PS : Oups, ça faisait tellement longtemps que je ne l'ai pas mis dans la bonne catégorie désolé Messieurs les modérateurs, vous pouvez le placer dans "Macros VBA Excel svp ? Merci d'avance

[mercatog]

Code :

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

f.Cells(c, 2).Value = Left(ContenuCellule,len(contenucellule)-1)

[neupont]

Bonjour,
tu pourrais différencier le dernier traitement ?

Code :

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

1
2
3
4
5
6
7
For j = LBound(TabUU, 2) To UBound(TabUU, 2)-1'variable qui parcourt les colonnes
   If TabUU(k, j) <> "" Then
       ContenuCellule = ContenuCellule & TabTitres(j) & " : " & TabUU(k, j) & Chr(10)
   End If
Next j
ContenuCellule = ContenuCellule & TabTitres(j+1) & " : " & TabUU(k, j+1)

Ou un truc dans ce genre...

[Jean-Philippe André]

salut,
autre methode en utilisant Replace

Code :

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

Replace(strinput,chr(10),"")

[neupont]

Mais là il remplace tous les retours, et pas seulement le dernier

[Jean-Philippe André]

c'est exact, mes confuses

les 2 autres solutions me senblent bonnes a utiliser

[illight]

Code :

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

f.Cells(c, 2).Value = Left(ContenuCellule,len(contenucellule)-1)

Ah bah vi, je suis bête, j'ai même pas pensé à faire ça

Je vais faire l test, et vous tiens au courant

Merci pour vos réponses

[illight]

Yes ça marche, merci