Discussion :

[LuckyBr]

Bonjour,

je reviens vers vous car j'ai un soucis pour exporter des données d'une feuille à une autre.
Dans ma feuille 1 j'ai les colonnes A à I avec information. Dans la colonne B je peux trouver plusieurs informations différentes.
Je souhaite pouvoir trier mes informations de la feuille 1 en plusieurs feuilles en prenant comme critères de tri l'information se trouvant en B

Exemple
En B je peux avoir comme info MUE ou FIN... et donc j'aimerais avoir la création d'une feuille avec juste les lignes ayant en colonne B l'info MUE et pareil pour FIN

Voilà le code que j'ai mis en place mais il ne marche absolument pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Export()
 
Dim sheetsource As Worksheet
Dim cellsource As Range
Dim zonesource As Range
 
Set sheetsource = Worksheet("TFF & TAF Global")
Set zonesource = sheetsource.Range(sheetsource.Cells(3, "B"), sheetsource.Cells(Rows.Count, "D").End(xlUp))
 
For Each cellsource In zonesource.Cells
    If cellsource.Value Like "MUE" Then
        sheetsource.Range(cellsource, cellsource.Offset(0, 5)).Copy Sheets("MUE").Cells(Rows.Count, "A").End(xlUp).Offset(0, 0)
 
End If
Next
End Sub

Merci pour votre aide

[Menhir]

Il est rare qu'un For Each sur une zone Range soit plus pratique qu'un simple For To.
Plus simple :

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 Export()
Dim sheetsource As Worksheet
Dim Ligne As Long, Fin As Long
 
Set sheetsource = Worksheet("TFF & TAF Global")
Fin = sheetsource.Cells(Rows.Count, "D").End(xlUp).Row
 
For Ligne = 3 To Fin
    If sheetsource.Cells(Ligne, "D").Value = "MUE" Then
        sheetsource.Range("A" & Ligne & ":I" & Ligne).Copy Sheets("MUE").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
 
End If
Next
End Sub

Cela dit, ton problème venait sans doute de ton Offset(0, 0).

[LuckyBr]

Merci pour ta réponse.
Mon problème reste le même quand je lance la macro il me met :

erreur de compilation Sub ou function non définie

et me renvoie sur Sub Export ().
Ce n'est pas la bonne fonction ?

Ensuite là j'avais essayé pour un cas dans le cas ou en B il est indiqué MUE. Peut-on généraliser la fonction pour que quand on lance la macro.. elle créée autant de feuilles que de variable différentes en B ?

[Menhir]

Mon problème reste le même quand je lance la macro il me met : erreur de compilation Sub ou function non définie.. et me renvoit sur Sub Export ()
ce n'est pas la bonne fonction ?

Export est peut-être un mot réservé.
Essaye de changer de nom en le remplaçant par "toto".

Ensuite là j'avais essayé pour un cas dans le cas ou en B il est indiqué MUE.
Peut-on généraliser la fonction pour que quand on lance la macro.. elle créée autant de feuilles que de variable différentes en B ?

Pour ça, il faudrait à chaque fois vérifier si la feuille de calcule existe, par exemple en créant une fonction.

Code :

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

1
2
3
4
5
6
7
8
9
10
Function WorksheetExist(Nom As String) As Boolean
Dim WS As Worksheet
For Each WS in Worksheets
    If WS.Name = Nom Then
        WorksheetExist = True
        Exit Function
    End If
Next WS
WorksheetExist = False
End Function

C'est du code tapé directement sur le forum. Il faut donc le tester et éventuellement le débugger, mais tu as le principe général.

Si la fonction renvoie False, alors il faut créer la feuille avant de la renseigner.

[LuckyBr]

non même en remplacant par un autre nom celà ne marche toujours pas.
il surligne en jaune Sub toto () ou sub export ()
et surligne en bleu le worksheet de la ligne 7

Code :

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

Set sheetsource = Worksheet("TFF & TAF Global")

j'ai bien vérifié le nom de la feuille. il est bon

[laurent_ott]

Ce n'est pas Worksheet mais Worksheets (avec un s)

[Menhir]

Où as-tu placé ce code ?