Discussion :

[vbapasmapau]

Bonjour,
Je souhaite, à partir des valeurs contenues en colonne A de la feuille 1 :
- créer un onglet par valeur contenue dans la colonne A
- copier chaque ligne de la colonne A et la coller en ligne 2 de l’onglet correspondant
- renommer chacun de ces onglets selon la valeur de la colonne A
- copier la ligne 1 de la feuille 1 dans chacun de ces onglets

Ne connaissant pas le nom des onglets, je n’arrive pas à y coller la première ligne de la feuil1, pouvez-vous m’aiguiller ?
Merci

Je vous mets le code que j’ai réussi à faire, c’est la dernière étape qui coince.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Worksheets("Feuil1").Activate
Dim DerLign As Long, Dim I As Integer
 
DelLign = Range("A65536").End(xlUp).Row
For I = 2 To DerLign
 
If Worksheets("Feuil1").Range("A" & I) <> "" Then
Worksheets("Feuil1").Range("A" & I).EntireRow.Copy
 Sheets.Add
 Range("A2").Select
 ActiveSheet.Paste
 ActiveSheet.Name = Sheets("Feuil1").Range("A" & I)
End If
Next

[Philippe Tulliez]

Bonjour,
Une solution est d'ajouter la nouvelle feuille avant la première

Code :

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

1
2
3
4
5
6
Sub t1()
 With ThisWorkbook
 .Sheets.Add Before:=Sheets(1)
  MsgBox .Sheets(1).Name
 End With
End Sub

Une autre en l'ajoutant après la dernière feuille

Code :

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

1
2
3
4
5
Sub T2()
 With ThisWorkbook
 .Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
  MsgBox Sheets(Sheets.Count).Name
End With

Mais dans tous les cas, comme une feuille copiée devient la feuille active, tu peux simplement récupérer son nom

Code :

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

1
2
3
4
5
6
Sub T3()
 With ThisWorkbook
 .Sheets.Add Before:=Sheets(1)
  MsgBox ActiveSheet.Name
End With
End Sub

[vbapasmapau]

Bonjour

Merci beaucoup pour votre réponse. Effectivement, je n'avais pas pensé à copier entièrement l'onglet et supprimer dans un deuxième temps les lignes qui ne m'intéressent pas.