Insérer une ligne sans VBA

Version imprimable

01/02/2019, 12h08
BoorBox

Insérer une ligne sans VBA

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.
01/02/2019, 12h14
patricktoulon

re

bonjour
la réponse est simple c'est NON!!!! ca n'existe pas sans VBA
c'est le prix de la flemme :ptdr:
01/02/2019, 14h50
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:

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
01/02/2019, 15h02
Philippe Tulliez
Bonjour,

Citation:

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]

je sais pas si c'est ce que tu cherche

Code:

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

01/02/2019, 15h10
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.

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:

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

01/02/2019, 15h25
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:

=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]
01/02/2019, 16h16
zenpbb
Bonjour,
Ou alors en utilisant Power Query (dispo en fonction de la version d'Excel : intégré à partir de le version 2016, sous forme d'Add-In pour les versions 2010 et 2013) :

Onglet [Données] / Obtenir des données / A partir d'autres sources / A partir d'un tableau ou d'une plage → sélectionner les données

Ensuite, dans l'éditeur Power Query (qui s'ouvre automatiquement) :
1. Sélectionner la colonne à splitter
2. Onglet [Transformer], puis Fractionner la colonne / Par délimiteur
3. Sélectionner "délimiteur personnalisé",
  cocher "Diviser en utilisant des caractères spéciaux" et choisir "saut de ligne",
  choisir Fractionner à "Chaque occurrence du délimiteur",
  choisir Fractionner en "Lignes",
  sélectionner Guillemet "Aucun"
4. Onglet [Accueil], puis Fermer et charger
Et tout ça rien qu'à la souris, sans toucher au clavier, donc pour quelqu'un qui a la flemme de faire du VBA...