Discussion :

[Angel79]

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!

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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,

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.

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = dernièreligne to 6 step -1

Tu connais pas ?

A+

Edit
Pour ton autre question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(NomFeuille).Cells(1,2).formula = ....

[SfJ5Rpw8]

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?

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)

De plus,

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 ...

[ouskel'n'or]

Merci, bbil, j'avais pas vu le Général...

[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.

[Angel79]

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

Merci bcp.