sélection de donné d'une colonne

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

Bonjour toimeme,

A la volée (sans tester) cela pourrait ressembler à un truc du genre :

Code:

---

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

---

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

Bonjour,

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

Code:

---

1 2 3 4 5 6 7

Next j Next i par Next x Next i

---

Bonjour Jacques-Jean, merci pour la correction ;)

Code:

---

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

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

Bonjour fring,

jai essayé votre code
mais excel bloque sur

Code:

---

ActiveSheet.Name = Cells(i, 2)

---

il est ecrit "erreur définie par l'application ou l'objet""

savez vous pourquoi ?
merci

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9

Set NewBook = Workbooks.Add mpath = "C:\monrep\monsousrep\" Pour créer un nouveau classeur :   For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row nomf = cells(i, 1) NewBook.SaveAs Filename:=mpath & nomf & ".xls" next i Set NewBook = Nothing

---

Citation:

---

Envoyé par moimemessssssssss

Bonjour fring,

jai essayé votre code
mais excel bloque sur

Code:

---

ActiveSheet.Name = Cells(i, 2)

---

il est ecrit "erreur définie par l'application ou l'objet""

savez vous pourquoi ?
merci

---

Comme je le répète régulièrement, il est difficike de deviner et d'apporter une réponse sans avoir le fichier sous les yeux. A vue de nez, n'y aurait-il pas une cellule vide dans la colonne B ? Ou une cellule comportant des caractères non autorisés dans le nom d'une feuille ?

bonjour,

en fait j'ai fait des essais.
dans la colonne B j'ai juste azerty en B2 et poiuy en B3
si je crée une feuille nommé azerty alors le code se bloque à

Code:

---

ActiveSheet.Name = Cells(i, 2)

---

sinon je crée pas de feuille azerty il se bloque aussi au même endroit

par contre je parcours i de la facon suivante

Code:

---

1 2 3 4 5

For i = 2 to 3   For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row NbF = Sheets.Count For x = 2 To NbF

---

je comprend pas ou est le probleme

merci de m'aider si quelqu'un sait

Il faut supprimer la ligne For i = 2 to 3

Code:

---

1 2 3 4 5 6 7

For i = 2 to 3 <-- supprime cette ligne For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row NbF = Sheets.Count For x = 2 To NbF

---

Bonjour,

j'ai supprimé le

Code:

---

1 2 3

For i = 2 to 3

---

mais rien à faire, j'ai toujours le meme probleme

par contre si je nomme la feuille explicitement

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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 = "bonjour" '... 'procédure pour coller les données dans la nouvelle feuille '... Exit For End If Next j Next i

---

la ça marche correctement par contre si je met

Code:

---

1 2	ActiveSheet.Name = Cells(i, 2)

---

le code s'arrete et ne marche pas

avez vous une idée ?
merci.

arf oui...il faut lui préciser Cells(i, 2) de quelle feuille, sinon il va regarder dans la cellule de la nouvelle feuille et comme elle est vide ça coince

Code:

---

ActiveSheet.Name = Sheets("nomdelafeuille").Cells(i, 2)

---

Après réflexion...cela donne

Code:

---

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 29

Sub test() Dim i As Integer, x As Integer, NbF As Integer   Application.ScreenUpdating = False   With Sheets(1) 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 '... GoTo suite End If Next x Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = .Cells(i, 2) '... 'procédure pour coller les données dans la nouvelle feuille '... suite: Next i End With   Application.ScreenUpdating = True   End Sub

---