XL 2013 formule

matte

XLDnaute Junior
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
 

sylvanu

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

VB:
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 :
Code:
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.
 

Pièces jointes

  • essaie - (2).xlsm
    30.2 KB · Affichages: 12

matte

XLDnaute Junior
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
 

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 849
dernier inscrit
florentMIG