sélection de donné d'une colonne

**moimemessssssssss** · 05/04/2008, 14h12

Bonjour,

J'ai une feuille excel avec différentes colonnes.
Dans la colonne B, j'ai des groupes de noms differents, par exemple :

aa
bb
cc etc....

JE souhaite créer une nouvelle feuille excel pour chaque nom de la colonne B avec les données correspondantes des autres colonnes( une feuille excel pour
aa, une autre pour bb , une autre pour cc....)

Mais je sais pas comment faire pour dire que si le nom de la colonne B est different alors il faut créer une nouvelle feuille excel.
c'est cette notion de "different" que j'arrive pas a coder.

Merci de votre aide

**fring** · 05/04/2008, 14h26

Bonjour toimeme,

A la volée (sans tester) cela pourrait ressembler à 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
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub test()
Dim i As Integer, x As Integer, NbF As Integer
 
Application.ScreenUpdating = False
 
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
NbF = Sheets.Count
    For x = 2 To NbF
        If Sheets(x).Name = Cells(i, 2) Then
            Sheets(x).Select
            '...
            'procédure pour coller les données dans la feuille existante
            '...
            Exit For
        Else
            Sheets.Add after:=Sheets(Sheets.Count)
            ActiveSheet.Name = Cells(i, 2)
            '...
            'procédure pour coller les données dans la nouvelle feuille
            '...
            Exit For
        End If
    Next j
Next i
 
Application.ScreenUpdating = True
 
End Sub

**moimemessssssssss** · 05/04/2008, 15h28

Bonjour,

merci pour ta réponse.
Je me suis mal exprimé: en fait, je veux créer un nouveau classeur pour chaque nom et pas une nouvelle feuille excel.
est ce qu'il faut juste remplacer "sheet" par " workbook.add"?,

sinon, j'ai pas compris à quoi correspondait ta variable Nbf?? est le nombre de feuille disponible? si oui comment faites-vous pour connaître ce nombre de feuilles ?
Merci

Invité · 05/04/2008, 15h37

Bonjour,

Fring : Juste une précision, j'ai bien sûr testé et cela fonctionne mais à rectifier :

Code :

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

1
2
3
4
5
6
7
Next j
Next i

par 

Next x
Next i

**fring** · 05/04/2008, 15h50

Bonjour Jacques-Jean, merci pour la correction

Code :

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

NbF = Sheets.Count

NbF = nombre de feuilles présentent dans le classeur mais le code que je t'ai proposé n'est plus valable si il s'agit de classeurs et non de feuilles...

A ce moment là il me semble qu'il faudrait procéder via une requête ou un truc du style permettant d'exécuter la procédure sans devoir ouvrir tous les classeurs mais vu que je ne maîtrise pas encore cette procédure, je dois malheureusement laisser la main.

Bonne chance pour la suite

**moimemessssssssss** · 05/04/2008, 16h27

Bonjour,

Merci quand meme pour votre aide.

je vais voir si je trouve de trucs et je vous tiens au courant.
SI quelqu'un sait comment on fait, je suis preneur.

merci