Aide pour une macro

RENAUDER

Nous a quitté

Repose en paix

• 31 Août 2009

• #2

Re : Aide pour une macro

Bonjour,

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

 

Vote positif 0 Vote négatif

S

Sakele

Guest

• 31 Août 2009

• #3

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!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Août 2009

• #4

Re : Aide pour une macro

Bonjour Sakele, RENAUDER,

Dans la macro, utiliser un Filtre automatique :

Code:

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+

 

Vote positif 0 Vote négatif

A

anton1

Guest

• 31 Août 2009

• #5

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

 

Vote positif 0 Vote négatif

S

Sakele

Guest

• 31 Août 2009

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Août 2009

• #7

Re : Aide pour une macro

Re,

Sakele à dit:

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

Cliquez pour agrandir...

Adaptez la plage à filtrer :

Code:

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

A+

 

Vote positif 0 Vote négatif

S

Sakele

Guest

• 31 Août 2009

• #8

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

 

Vote positif 0 Vote négatif