XL 2010 Création d'onglet avec condition

[Sandrine123]

Bonjour,

Je souhaiterais de l'aide pour une macro Excel.

Dans la colonne A, j'ai des données (leur syntaxe commence toujours pas E.2)
Je souhaiterais créer des onglets automatiquement avec copie de la ligne correspondante.

Je souhaiterais que les données E.2 soient regroupées par groupe de 2.

Par exemple, la macro doit créer un onglet 1 ou l'on doit retrouver E.2017.4044-1-1 et E.2017.4044-2-1
Et sur un second onglet, on doit retrouver E.2017.4057-1-1 et E.2017-4050-1-1
Et sur un troisième E.2017.4090-1-1

Est-ce possible de paramétrer cela ?

Merci pour votre aide.

Bonne journée.

 

[vgendron]

Hello

un essai avec ce code

Sub creerOnglets()

FinTab = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row 'nombre de lignes dans la feuille Sheet1
i = 1
While (2 * i) - 1 <= FinTab
    Sheets.Add After:=Sheets(Sheets.Count) 'on ajoute une feuille
    ActiveSheet.Name = "Groupe " & i 'que l'on nomme Groupe X
    With Sheets("Sheet1") 'on copie colle deux lignes
        .Range("A" & 2 * (i - 1) + 1).Resize(2, 14).Copy
        ActiveSheet.Paste
        i = i + 1
    End With
Wend
End Sub

 

[dudule]

Bonjour,

Quelle est la clé de différenciation entre les données ? J'entends par là comment faire pour définir si telle ou telle ligne doit être sur tel ou tel onglet ?
En l'état je pensais utiliser la colonne E étant donné que les deux premières lignes se regroupent comme dans ta demande mais ça va coincer pour différencier la ligne 5 de la 3 et 4.

Comme je ne pense pas que tu veuilles une macro qui ne fonctionne que sur ton exemple, il faut plus de précisions ou un moyen pour définir automatiquement quelle ligne va dans quel onglet.

Bonne journée

 

[Sandrine123]

Bonjour vgendron,

C'est exactement ce que je souhaitais, merci beaucoup pour votre aide.

Bon après-midi.