Discussion :

[thib.gueraud]

Bonjour tout le monde,

J'aimerais créer une nouvelle feuille à chaque tri effectué, avec les données des 3 colonnes copiées dans la nouvelle feuille.



J'ai réussi à faire un module seulement pour obtenir ce que je veux pour "Ambassade de Bretagne", mais j'aimerais qu'à la fin de celui-ci, le module poursuive sur "Anticafé Beaubourg" et ainsi de suite, afin de créer autant de feuille qu'il y a de nom de restaurants différents dans la colonne C. :

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 creafeuille()
'
' creafeuille Macro
'
 
'
    ActiveSheet.Range("$A$1:$C$41979").AutoFilter Field:=3, Criteria1:= _
        "Ambassade de Bretagne"
    Range(Selection, Selection.End(xlToLeft)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    Selection.Copy
    Sheets.Add
    ActiveSheet.Paste
    ActiveSheet.Name = Range("C2").Text
End Sub

Je pense qu'il faut que je fasse une sorte de loop, mais je ne maitrise malheureusement que les loops avec des nombres entiers.

Quelqu'un aurait des tips ?

Merci