Discussion :

[ericdev67]

Bonsoir,

grâce au code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub CréerFeuilles()
  i = 1
    Do Until IsEmpty(Feuil1.Cells(i, 1))
       Sheets.Add after:=Worksheets(Worksheets.Count)
       ActiveSheet.Name = Feuil1.Cells(i, 1).Value
       i = i + 1
  Loop
End Sub

J'arrive à créer des feuilles avec le nom se trouvant dans les cellules A.
exemple :
A1 europe
A2 asie....

les feuilles créés s'appellent europe, asie, etc...
En fait, j'ai un listing ~1000 lignes où il y a europe, asie, usa, afrique....
j'ai le listing total dans une feuille "total" et j'aimerai copier/coller les valeurs des lignes+colonnes dans chaque feuilles crées par rapport à leur nom.

En clair, dans la feuille "europe" uniquement les valeurs de la colonne A de "europe"+ toutes les données des colonnes B,C, etc....

Jusqu'à présent, je copiais/collais dans chaque feuilles puis appliquais un filtre automatique, mais ça plante quand il n'y a pas de valeurs....

Merci
A+

[fring]

Bonjour,

Tu peux essayer un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim i As Integer, j As Integer
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    For j = 2 To Sheets.Count
        If Cells(i, 1) = Sheets(j).Name Then
        Rows(i).Copy Sheets(j).Cells(Rows.Count, 1).End(xlUp)(2)
        Exit For
        End If
    Next j
Next i
End Sub

Ce code est à adapter si par exemple tu comptes faire des mises à jour, tel quel le code va te recopier toutes les valeurs trouvées à chaque mise à jour.

[ericdev67]

Merci Fring,

Super ce code !!!
J'essaye juste de l'améliorer depuis ce matin : ton code réparti bien dans toutes les feuilles Afrique,....mais il faut que je puisse remettre la première ligne ("A1:IU1") car c'est là que se trouve les titres de colonnes....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim i As Integer, j As Integer
Range("a1:iu1").Copy
 
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    For j = 2 To Sheets.Count
        If Cells(i, 1) = Sheets(j).Name Then
        Rows(i).Copy Sheets(j).Cells(Rows.Count, 1).End(xlUp)(2)
 
        Exit For
        End If
    Next j
Next i
End Sub

Et je plante....pourtant, je sais que c'est simple, mais j'arrive pas à placer range("A1:IU1").paste pour coller la première ligne dans chaque feuille....

Merci,
A+

[fring]

Essaye comme ceci (pas testé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim i As Integer, j As Integer
With Sheets(1)
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
    For j = 2 To Sheets.Count
    .Rows(1).Copy Sheets(j).Cells(1, 1)
        If .Cells(i, 1) = Sheets(j).Name Then
        .Rows(i).Copy Sheets(j).Cells(Rows.Count, 1).End(xlUp)(2)
        End If
    Next j
Next i
End With
End Sub

[ericdev67]

Super cool de venir à mon secours....Merci

Mais je galère : ton code copie bien dans les feuilles, mais il prend la ligne A1:IU1 de la première feuille, alors qu'il faudrait qu'il copie la première ligne de la deuxième feuille, de plus, il met à la dernière ligne dans chaque feuille, les éléments du premier classeur....je vois pas où ça coince...

Merci
A+

[ericdev67]

TROP COOOOOOLLLLLLLLL,

En fait, j'ai utlisé ton deuxième code :
Par macro, je supprime ma feuil1, celle qui donne le nom des feuilles, une fois supprimée, je rappatrie mes données, j'exécute ton code, et....nickel...!!!!!!!

Lors de mes premiers essais, ,je gardais toujours la première feuille qui attribuait les noms des feuilles et ça me plantait à chaque fois.....en faisant la manip, tout baigne....

Merci fring, top cool (pour moi, une journée de recherche...., mais c'est comme ça qu'on avance...)

A+ pour de prochaines aventures...
Merci