Problème sur excel et VBA assez simple

Re : Problème sur excel et VBA assez simple

bonjour,
Brut de décoffrage (voir la note en bas)
Note que tu n'indiques pas
- quoi faire si la feuille existe déjà
- quoi faire si plusieurs lignes concerne le même composant
A+
kjin

Re : Problème sur excel et VBA assez simple

Merci pour otre réponse si rapide
Cependant quand j'essaye de compile le code ca ne marche pas. il me dit qu'il y a une erreur avec newF...

Re : Problème sur excel et VBA assez simple

l'erreur est dans cette ligne
.Cells(3, 4) = newF

Re : Problème sur excel et VBA assez simple

Re,
Faut lire les réponses !

kjin à dit:

Note que tu n'indiques pas
- quoi faire si la feuille existe déjà

Cliquez pour agrandir...

Si tu n'as pas pris soin de supprimer les feuilles A, B...au préalable, il y aura forcément un pb
En attendant ta réponse donc...
A+
kjin

Re : Problème sur excel et VBA assez simple

En effet ca marche très bien du coup. Merci beaucoup !!!

Est-ce que tu pourrais juste m'expliquer à quoi serve les différentes fonctions auquelles tu as fait appel pour que je puisse l'adapter à mon véritable fichier...

En réalité le vrai fichier est comme ci - joint!

Mais je comprendrai si vous n 'avez pas de temps à perdre avec ça. Comme je vous l 'ai dit je ne suis pas très bon en programmation et je ne voudrais pas vous embeter avec ca...

Re : Problème sur excel et VBA assez simple

Voici le code que j'ai réalisé en reprenant le tien pour le faire sur la totalité des données dont j'ai besoin.
C'est un peu lourd mais ca marche, sauf quand il y a un nom qui comporte des éléments incorrects comme des paranthèses, des crochets, etc
Sub Macro1()

' Macro1 Macro

Dim i%, t As Range, newF$

With Feuil1

For i = 1 To .Range("A65000").End(xlUp).Row

Set r = .Cells(i, 2).Resize(1, 4)
Set r1 = .Cells(i, 6).Resize(1, 4)
Set r2 = .Cells(i, 10).Resize(1, 4)
Set r3 = .Cells(i, 14).Resize(1, 4)
Set r4 = .Cells(i, 18).Resize(1, 4)
Set r5 = .Cells(i, 23).Resize(1, 4)
Set r5 = .Cells(i, 27).Resize(1, 4)
Set r5 = .Cells(i, 32).Resize(1, 4) 'copie 4 colonnes !

newF = .Cells(i, 1)
Feuil2.Copy after:=Sheets(Sheets.Count)

With ActiveSheet

.Name = newF
.Cells(4, 3) = newF
.Cells(16, 2).Resize(r.Rows.Count, r.Columns.Count) = r.Value
.Cells(17, 2).Resize(r.Rows.Count, r.Columns.Count) = r1.Value
.Cells(18, 2).Resize(r.Rows.Count, r.Columns.Count) = r2.Value
.Cells(19, 2).Resize(r.Rows.Count, r.Columns.Count) = r3.Value
.Cells(20, 2).Resize(r.Rows.Count, r.Columns.Count) = r4.Value
.Cells(21, 2).Resize(r.Rows.Count, r.Columns.Count) = r5.Value

End With

Next

End With

End Sub

Re : Problème sur excel et VBA assez simple

Encore moi desole...
Si jamais je veux maintenantles données créer des nouveaux fichier et non des nouveaux onglets? C'est réalisable? Merci beaucoup!