• Initiateur de la discussion Initiateur de la discussion matte
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
918
Réponses
12
Affichages
1 K
Réponses
14
Affichages
1 K
Réponses
17
Affichages
2 K
Retour