[VBA-E]création feuille en fonction données d'1 col.

Version imprimable

23/02/2006, 13h09
Angel79

[VBA-E]création feuille en fonction données d'1 col.

Bonjour à tous!

Voilà j'ai un fichier Excel avec une feuille "général" . Dans cette feuille, colonne A, à partir de la ligne 6, j'ai des numéros qui se suivent de 1 à xx (tout dépend de ce qui a été saisi au départ, on peut avoir de 1 à 40 ou de 1 à 35, c'est en fonction de l'utilisateur).

Je voudrais en fait créer des onglets dans ce fichier, en fonction du nombre de cases remplies dans la colonne A à partir de la ligne 6, nommer l'onglet créé par la valeur de la cellule A6, puis A7 pour l'onglet suivant, etc.
De plus, je voudrais que la valeur de la cellule B6 de "général" se copie dans la cellule B1 de l'onglet correspondant nommé "1" suite à sa création. Et ainsi de suite pour les autres.

J'espère avoir été assez claire... Merci pour toute votre aide!

Code:

1
2
3
4
5
6
7
DernièreLigne = Cells(65535, 1).End(xlUp).Row
For i = 6 To DernièreLigne
    NomFeuille = Worksheets("Feuil1").Cells(i, 1).Formula
    Sheets.Add
    ActiveSheet.Name = NomFeuille
    Cells(1,2) = Worksheets("Feuil1").Cells(i, 2).Formula
Next

Tu dis

23/02/2006, 13h47
Angel79

Merci, ça fonctionne assez bien. cependant, mes onglets se créent les uns devant les autres, dans un ordre décroissant. est-il possible de les remettre dans l'ordre croissant?

De plus,

Citation:

Cells(1,2) = Worksheets("Feuil1").Cells(i, 2).Formula

n'a pas l'air de fonctionner. Il ne m'inscrit rien dans l'onglet créé.

Je ne comprends pas.
23/02/2006, 13h54
ouskel'n'or

Là, je sens que tu veux rire... ou t'as pas rélféchi... Ce serait plutôt ça, non ?

Code:

For i = dernièreligne to 6 step -1

Tu connais pas ? :lol:

A+

Edit
Pour ton autre question :

Code:

Worksheets(NomFeuille).Cells(1,2).formula = ....
23/02/2006, 13h56
SfJ5Rpw8

Citation:

Envoyé par Angel79

Merci, ça fonctionne assez bien. cependant, mes onglets se créent les uns devant les autres, dans un ordre décroissant. est-il possible de les remettre dans l'ordre croissant?

Citation:

Envoyé par aide en ligne excel

Add, méthode (collection Worksheets) - Exemples

Cet exemple montre comment créer une nouvelle feuille de calcul et comment l'insérer avant la feuille active.

ActiveWorkbook.Worksheets.Add
Cet exemple montre comment ajouter une nouvelle feuille de calcul après la dernière feuille du classeur actif.

Worksheets.Add.Move after:=Worksheets(Worksheets.Count)

Citation:

Envoyé par Angel79

De plus,

Citation:

Cells(1,2) = Worksheets("Feuil1").Cells(i, 2).Formula

n'a pas l'air de fonctionner. Il ne m'inscrit rien dans l'onglet créé.

Je ne comprends pas.

? si ce que tu dois copier et dans ldans la feuille général .. remplace Feul1 par général ... :wink:
23/02/2006, 14h00
ouskel'n'or

Merci, bbil, j'avais pas vu le Général... :wink:
23/02/2006, 14h12
Angel79

Merci bbil pour ton aide si gentille!
j'ai repris ce que tu as indiqué pour insérer les feuilles après la dernière active.

J'ai renommé ma feuille de base en "Général" mais le problème reste le même, le contenu de la cellule B6 de "Général" ne s'est pas recopié en B1 de la feuille créée et nommée "1".

Et ouskel'n'or, désolée mais en ce moment je suis très fatiguée et je n'ai fait que recopier bêtement ce que tu m'avais écrit.
23/02/2006, 14h16
Angel79

non c'est bon merci, j'ai vu, j'ai corrigé avec ce que ouskel'n'or a ajouté.

Merci bcp.