Macro Excel2000 découpage d'un fichier en plusieurs onglets

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Macro Excel2000 découpage d'un fichier en plusieurs onglets

lunamous

Bonjour à tous,

J'aimerai automatiser par macro le découpage d'un fichier Excel en fonction des changements de valeurs de la colonne F. Pour chaque valeur de cellule, couper la ou les ligne(s) concernée(s) et coller dans nouvel un onglet nommé comme la valeur de la cellule.
Les données de la colonne F sont au format texte et le nombre de lignes du fichier et le nombre de valeurs prises par les cellules de la colonne F sont variables.

Exemple fichier de départ :
F
1 ACQUIS
2 ACQUIS
3 DBT_RDMP_CALL
4 EQY_OFFER
5 EQY_OFFER
6 EQY_OFFER
7 EQY_OFFER
8 EQY_OFFER
9 EQY_OFFER
10 RIGHTS_OFFER

J'aimerai obtenir un onglet nommé 'ACQUIS' où toutes les lignes dont la cellule en Colonne F correspond auront été collées, idem avec un onglet 'DBT_RDMP_CALL', 'EQY_OFFER' et 'RIGHTS_OFFER'

Merci d'avance à ceux ou celles qui pourront m'aider.

Message édité par lunamous le 17-03-2011 à 11:23:07

Publicité

kiki29

Salut,voila pour ce qui est de la création des feuilles
j'ai donné à la feuille contenant les données le nom d'onglet Param
Sans doute à adapter

Option Explicit

Sub Tst()
Dim LastRow As Long, i As Long
Dim Ws As Worksheet, sNomF As String
LastRow = Sheets("Param" ).Range("F" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
sNomF = Split(Sheets("Param" )..Range("F" & i), " " )(1)
If ExistenceFeuille(sNomF) = False Then
Set Ws = Sheets.Add
Ws.Name = sNomF
Ws.Move Before:=Sheets("Param" )
End If
Next i
End Sub

Private Function ExistenceFeuille(ByVal sNomFeuille As String) As Boolean
On Error Resume Next
ExistenceFeuille = Sheets(sNomFeuille).Name <> ""
Err.Clear
End Function

Message édité par kiki29 le 17-03-2011 à 19:18:46

lunamous

Bonsoir,

J'ai renommé l'onglet Param et j'ai lancé la macro. J'ai le message "L'indice n'appartient pas à la sélection" qui s'affiche et le débogage pointe sur : LastRow = Sheets("Param" ).Range("F" & Rows.Count).End(xlUp).Row

Voyez-vous d'où peut venir le problème ?

Merci d'avance.

kiki29

Re,si tu renommes Param il faut également modifier Sheets("????" ) en conséquence, d'autre part j'ai pris tes données brutes et donc considéré que dans la colonne F il y a par exemple "1 ACQUIS"
alors que peut-^tre il y a uniquement "ACQUIS" ? auquel cas sNomF sera a corriger en Sheets("????" ).Range("F" & i))

J'ai corrigé le code plus haut en remplaçant Feuil1 ( codeName ) par Sheets("????" ) mais je te conseille pour la suite de te renseigner sur CodeName car cette propriété permet de ne pas toucher au code VBA même si l'on renomme l'onglet ou le déplace, voir par exemple sur http://www.ozgrid.com/VBA/excel-vba-sheet-names.htm

Message édité par kiki29 le 17-03-2011 à 19:25:01

lunamous

J'ai posté la solution proposée par une collègue sur ce lien : http://www.excel-downloads.com/for [...] rents.html

kiki29

Re,grand bien te fasse

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Macro Excel2000 découpage d'un fichier en plusieurs onglets

Sujets relatifs
Macro Excel pour graphiques	enregistrement fichier excel 2007 en pdf
Création d'un lien HTML vers un fichier local	Macro VBA pour passer de word aexcel
Help ! AJAX - POST et PHP pour fichier CSV	Code pour changer l'orde d'un nom de fichier
Macro Excel - Problème avec ActiveCell.Font.ColorIndex	[Batch] Runas : Executer plusieurs programmes sur invite CMD [Résolu]
demande d'aide pour une macro conditionnelle	[bash] Extraire et concaténer 2 strings depuis un fichier
Plus de sujets relatifs à : Macro Excel2000 découpage d'un fichier en plusieurs onglets

Page générée en 0.025 secondes