Aide pour une macro

[Sakele]

Bonjour à tous
J'ai un fichier Excel avec 5 colonnes (Artiste-Album-....)et je souhaite copier toutes les cellules avec les artistes dont le nom commence par a dans l'onglet 2 que jai renommé A , puis les artistes dont le nom commence par B dans l onglet 3 renommé B et comme cela pour chaque lettre.Je précise que ce fichier est modifié régulièrement donc le nombre d artistes commençant par chaque lettre est variable....
J'ai testé plusieurs macros vu ici en les modifiant mais plantage....
Merci d'avance
Alain

 

[RENAUDER]

Re : Aide pour une macro

Bonjour,

Si déjà tu nous donnais ce que tu as fait, cela éviterait de partir de rien.

 

[Sakele]

Re : Aide pour une macro

Merci de ta réponse....mais après plusieurs jours j'en suis à ...rien.....je ne connait rien aux macro et je n'ai pas avancé d'un pas.....Je suis donc preneur de tout conseil!

 

[job75]

Re : Aide pour une macro

Bonjour Sakele, RENAUDER,

Dans la macro, utiliser un Filtre automatique :

Sub Filtrage()
Dim i As Byte
On Error Resume Next
ActiveSheet.AutoFilterMode = False
With Range([A1], [A65536].End(xlUp)) 'plage étudiée de la feuille active
  For i = 1 To 26 'pour les 26 lettres
    .AutoFilter Field:=1, Criteria1:=Chr(96 + i) & "*" 'filtrage des lettres a b c...
    Sheets(Chr(64 + i)).Cells.Clear 'on vide les feuilles A B C...
    .SpecialCells(xlVisible).Copy Sheets(Chr(64 + i)).[A1] 'copie des cellules filtrées dans les feuilles A B C...
    .AutoFilter
  Next
End With
End Sub

A+

 

[anton1]

Re : Aide pour une macro

Bonjour Sakele, Renauder, Job75,

J'ai une question pratico-pratique quant à certaines termes que l'on retrouve souvent dans des lignes de codes. A quoi correspondent :

• i
• Chr

On retrouve souvent ces termes et je n'ai jamais compris à quoi cela correspond.

Merci d'avance pour vos réponses

 

[Sakele]

Re : Aide pour une macro

Super merci ca marche impec sauf que je dois transférer mes 5 colonnes et pas une seule...avec ta macro seule la première (avec le nom du groupe et sa première lettre) alors que je dois transférer mes 4 autres colonnes qui correspondent.As tu une solution svp???
J'ai une autre question : maintenant que jai mes 26 onglets puis je les enregistrer sous 26 fichiers html en une seule fois??
Milles mercis...
Alain

 

[job75]

Re : Aide pour une macro

Re,

je dois transférer mes 5 colonnes et pas une seule...

Adaptez la plage à filtrer :

With Range([A1], [A65536].End(xlUp)).Resize(, 5)

A+

 

[Sakele]

Re : Aide pour une macro

ah vraiment super milles mercis!!
Et pour ma deuxième question , auriez vous encore une très bonne idée svp?
Maintenant que jai mes 26 onglets puis je les enregistrer sous 26 fichiers html en une seule fois??
Alain