Boucles ...

cs_actaruss
Messages postés
55
Date d'inscription
mardi 3 juin 2003
Statut
Membre
Dernière intervention
27 mai 2009
- 1 sept. 2004 à 10:42
HFanny
Messages postés
699
Date d'inscription
mercredi 19 février 2003
Statut
Membre
Dernière intervention
13 mai 2011
- 1 sept. 2004 à 11:02
Salut, dans une feuille excel, dans la colonne A1 j'ai une série d'informations ex :
ZE
ZE
ZE
RT
RT
RT
JK
JK

etc...
J'aimerais que le code VBA me crée une nouvelle page avec tous les ze nommée ZE, une autre conteant tous les RT nommée RT etc...
Merci.

1 réponse

HFanny
Messages postés
699
Date d'inscription
mercredi 19 février 2003
Statut
Membre
Dernière intervention
13 mai 2011
20
1 sept. 2004 à 11:02
Bonjour,
j'ai fait ce code vite fait, il marche mais n'est pas optimisé au mieux je pense :

Dim nom As String
Dim feuille, feuilleAjout As Worksheet
Dim cellule, cell As Range
Set feuille = ActiveSheet
Set cellule = feuille.Range("A1")
nom = ""

While Not IsEmpty(cellule)
If cellule.Value <> nom Then
    nom = cellule.Value
    Set feuilleAjout = Sheets.Add(after:=Worksheets(Worksheets.Count))
    feuilleAjout.Name = nom
    Set cell = feuilleAjout.Range("A1")
    cell = cellule.Value
    Set cell = cell.Offset(1, 0)
Else
    cell = cellule.Value
    Set cell = cell.Offset(1, 0)
End If

Set cellule = cellule.Offset(1, 0)
Wend



Fanny
0