XL 2013 formule

M

matte

XLDnaute Junior

• 9 Novembre 2020

• #16

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é

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 9 Novembre 2020

• #17

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

Vote positif 0 Vote négatif

djidji59430

XLDnaute Barbatruc

• 9 Novembre 2020

• #18

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

 

Pièces jointes

• (tuto1.gif

  934.5 KB · Affichages: 11

Vote positif 0 Vote négatif

M

matte

XLDnaute Junior

• 9 Novembre 2020

• #19

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 9 Novembre 2020

• #20

Bonsoir matte, le fil,

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

soan

 

Pièces jointes

• Sans les tirets.xlsm

  19.4 KB · Affichages: 7

Vote positif 0 Vote négatif

M

matte

XLDnaute Junior

• 9 Novembre 2020

• #21

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 10 Novembre 2020

• #22

Bonjour matte,

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

soan

 

Pièces jointes

• Sans tirets ni 2pts.xlsm

  19.7 KB · Affichages: 5

Vote positif 0 Vote négatif

M

matte

XLDnaute Junior

• 10 Novembre 2020

• #23

bonjour Saon,
merci ca fonctionnent merci

 

Vote positif 0 Vote négatif

M

matte

XLDnaute Junior

• 11 Novembre 2020

• #24

merci c 'est ni quel

 

Vote positif 0 Vote négatif