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+