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
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
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
1 sept. 2004 à 11:02
Bonjour,
j'ai fait ce code vite fait, il marche mais n'est pas optimisé au mieux je pense :
Fanny
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