Discussion :

[BoorBox]

Bonjour,

Je vous contacte parce que j'ai un peu la fleme de faire du VBA pour une simple opération.
Je dispose d'un fichier du type

ref | desc | nom

dans mon champs desc il se peut que la chaines de caractères présente des retour chariot.
Je voudrais insérer une ligne à chaque retour chariot en gradant les champs ref nom.

Bref pour faire court je veux savoir si il y a une fonction excel pour insérer des lignes.

[patricktoulon]

bonjour
la réponse est simple c'est NON!!!! ca n'existe pas sans VBA
c'est le prix de la flemme

[BoorBox]

Dommage.

Bon je suis passé par VBA du coup.
Est ce que par hasard tu sais quel caractère correspond au retour chariot?

Code :

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

1
2
 
tmp = Split(Cells(my_line, desc_col), vbLf)

j'ai fait ca mais mais ca m'enlève du texte quelque fois alors qu'il n'y a pas de retour

[Philippe Tulliez]

Bonjour,

dans mon champs desc il se peut que la chaines de caractères présente des retour chariot.

Si j'ai bien compris ta demande,
Tu as dans une ou plusieurs cellules des chaînes de caractères dont certaines ont un retour chariot
Pour voir les chaînes de caractères précédées par le retour chariot (chr(10) ou vbLf) à la ligne suivante

• Sélectionner les cellules concernées
• Cliquer sur la commande Renvoyer à la ligne automatiquement du groupe Alignement de l'onglet [Accueil]

[BENNASR]

je sais pas si c'est ce que tu cherche

Code :

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

1
2
3
4
5
6
7
8
Sub test()
    Dim Cell As Range
    Dim Plage As Range
    Set Plage = Range("A2:A10")
    For Each Cell In Plage
    Cells(Cell.Row, 2) = Cell.Value & Chr(10) & ""
    Next
End Sub

[BoorBox]

Philippe c'était ça!
Sauf que je voulais que la ref et nom soit ajouté à la ligne insérée.
Du coup je voulais trouver une commande excel qui me permette de le
faire comme ca j'aurais pu je pense gérer pour que ça s'execute comme voulu.

[BoorBox]

je pose le code on sait jamais.
C'est pas le mieux je traite directement par cellule etc...
Mais bon il fait ce que je veux

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
19
20
21
22
23
24
 
Sub split_desc()
    Dim my_line, ref_col, desc_col, name_col
    my_line = 3
    ref_col = 2
    desc_col = 3
    name_col = 4
    While (Cells(my_line, ref_col) <> "")
        Dim i
        Dim tmp As Variant
        tmp = Split(Cells(my_line, desc_col), vbLf)
        Cells(my_line, desc_col) = tmp(0)
        For i = 0 To UBound(tmp)
            If (i >= 1 And tmp(i) <> "") Then
                Rows(my_line + 1).Insert
                my_line = my_line + 1
                Cells(my_line, ref_col) = Cells(my_line - 1, ref_col)
                Cells(my_line, name_col) = Cells(my_line - 1, name_col)
                Cells(my_line, desc_col) = tmp(i)
            End If
        Next
        my_line = my_line + 1
    Wend
End Sub

[Philippe Tulliez]

Bonjour,
Sans VBA par la concaténation des valeurs des cellules concernées et du caractère ascii 10
Exemple pour cellule A2 et B2

Code :

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

=A2 & CAR(10) & B2

Ensuite tirer vers le bas et puis

• Sélectionner les cellules concernées
• Cliquer sur la commande Renvoyer à la ligne automatiquement du groupe Alignement de l'onglet [Accueil]