XL 2013 formule

[matte]

bonjour,
pourriez vous me dire si il est possible de prendre le contenue de ma cellule A6 qui contient ce qui est entre parenthèse (Oiseau de Paradies : 8 – 15 – 6 – 4 – 12 – 9 – 1 – 2) pour écrire le nom en cellule C6 et les n° en cellules C7,C8,C9,C10,C11,C12,C13,C14 ?
SVP y a t'il quelqu'un qui pourrai m'aider ...
merci

 

[matte]

bonjour Djidji, Soan, Sylvanus, le fil,
je regarde vos proposition toute à l'heure ,je vais me posé quelque heure et je revient …
merci pour l'intérêt porter à mon problème, et votre réactivité

 

[sylvanu]

Bonjour Matte, Djidji, Soan,
En Pj un ex où on spécifie les feuilles concernées.

Sub Transfert()
NomFeuilles = Array("Feuil1", "Feuil1 (2)", "Feuil1 (3)")
Application.ScreenUpdating = False
For F = 0 To UBound(NomFeuilles)
    With Sheets(NomFeuilles(F))
        DerLig = .Range("A65500").End(xlUp).Row
        .Range("C6:K" & DerLig).ClearContents
        For L = 6 To DerLig
            tablo = Split(.Cells(L, "A"), " – ")
            tablo2 = Split(tablo(0), " : ")
            .Cells(L, "C") = tablo2(0)
            .Cells(L, "D") = tablo2(1)
            For i = 1 To 7
                .Cells(L, i + 4) = tablo(i)
            Next i
        Next L
    End With
Next F
End Sub

il suffit de mettre à jour le nom des feuilles dans :

NomFeuilles = Array("Feuil1", "Feuil1 (2)", "Feuil1 (3)")

Il y a plus simple si toutes les feuilles sont concernées, ou toutes sauf une. Mais pour cela in faudrait avoir le fichier final s'il y a des exceptions à faire.

 

[djidji59430]

Re bonjour a tous,
VBA ≠ moi
Alors, a la souris ....... (Oui, c'est primaire ! )
c'est le car(150) – , pas un tiret

 

[matte]

bonjour Saon, Sylvanu, Djidji,
je vous remercie toussent pour votre aides, je vais regarder ce qui s'adaptera la mieux à mon projet et reviendrai vers vous .
Toute fois une petite question ,comment faudrait t'il faire si en A6:A106, pour chaque lignes je voulait remplacer : et - par vide sans déplacer les données ?
merci

 

[soan]

Bonsoir matte, le fil,

nouvelle version du fichier,
même utilisation : Ctrl e

soan

 

[matte]

bonjour Saon,
une fois lancer les données copier affiche un message d'erreur du au format texte des chiffres, en colonne A les - disparaisse bien, en revanche les : son toujours la .
merci

 

[soan]

Bonjour matte,

version du fichier sans tirets ni deux-points,
et les nombres seront des vrais nombres,
pas du texte.

soan

 

[matte]

bonjour Saon,
merci ca fonctionnent merci

 

[matte]

merci c 'est ni quel