Demande d'aide sur excel

Résolu

clash4 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
clash4 Messages postés 2 Date d'inscription Statut Membre Dernière intervention - 13 nov. 2009 à 00:55

Bonjour,
j'aimerais bien avoir votre aide concernant un petit problème sur EXCEL.
j'ai une colonne sur mon tableau qui contient des chiffre séparés par des " - " ( colonnes séparées nom, num, description ) exp:
----------------------------------------------------
nom numéro description

sarah 12-54-001 azzerzaar
ali 687_00 fafaakgkm
---------------------------------------------------

et j'aimerais le transformer sous la forme:
----------------------------------------------------
nom numéro description

sarah 12 azzerzaar
sarah 54 azzerzaar
sarah 001 azzerzaar

ali 687 fafaakgkm
ali 00 fafaakgkm
----------------------------------------------------

merci d'avance :D

Afficher la suite

A voir également:

Demande d'aide sur excel
Liste déroulante excel - Guide
Word et excel gratuit - Guide
Comment trier par ordre alphabétique sur excel - Guide
Comment calculer la moyenne sur excel - Guide
Déplacer colonne excel - Guide

2 réponses

Réponse 1 / 2

gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention 4 724

bonjour

Pour créer de nouvelles lignes tu dois passer par une macro et je te propose ceci à coller dans ta feuille concernée (mode d'emploi éventuel) :

Public Sub degroupe()
Dim lig As Long
Application.ScreenUpdating = False
For lig = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row To 1 Step -1
    Cells(lig, 2).Value = Replace(Cells(lig, 2).Value, "-", "|")
    Cells(lig, 2).Value = Replace(Cells(lig, 2).Value, "_", "|")
    While cre_ligne(lig)
    Wend
Next lig
End Sub

Public Function cre_ligne(lig)
Dim pos As Integer, der As Integer
Const sep As String = "|"
cre_ligne = False
pos = 0
    Do
        der = pos
        pos = InStr(der + 1, Cells(lig, 2).Value, sep)
    Loop Until pos = 0
    If der <> 0 Then
        Rows(lig + 1).Insert
        Cells(lig + 1, 1).Value = Cells(lig, 1).Value
        Cells(lig + 1, 2).Value = "'" & Mid(Cells(lig, 2).Value, der + 1)
        Cells(lig, 2).Value = "'" & Left(Cells(lig, 2).Value, der - 1)
        Cells(lig + 1, 3).Value = Cells(lig, 3).Value
        cre_ligne = True
    End If
End Function

Ensuite tu dois autoriser les macros et lancer (alt + F8) la macro "degroupe".

Réponse 2 / 2

clash4 Messages postés 2 Date d'inscription Statut Membre Dernière intervention

merci énormement gbinforme, tu m'a sauvé la vie !!!

merci encore une fois t'es toujours Zen

Votre réponse