Macro
Bonjour,
J'aimerais réaliser une macro sur une liste de personnel:
Chaque salarié est attaché à un pays (colonne E)
Je voudrais que chaque pays soit spliter sur des onglets différents avec la liste des salariés attachés au pays en question.
La liste commence en A3 jusque R3 (A2:R2 =entête avec en E2 le pays), il y a en tout 2396 lignes.
Merci d'avance à tous pour votre aide.
Cordialement
J'aimerais réaliser une macro sur une liste de personnel:
Chaque salarié est attaché à un pays (colonne E)
Je voudrais que chaque pays soit spliter sur des onglets différents avec la liste des salariés attachés au pays en question.
La liste commence en A3 jusque R3 (A2:R2 =entête avec en E2 le pays), il y a en tout 2396 lignes.
Merci d'avance à tous pour votre aide.
Cordialement
3 réponses
-
Bonjour.
Qu'est-ce qui ne fonctionne pas avec votre macro... ?
-
Bonjour,
Voici la macro écrite.
Là ou il y a écrit feuil1 remplace par le nom de ta feuille où sont situés les salariés sinon la macro buggera.
Sub Macro1()
'compte nombre de lignes
nb_lignes = Sheets("Feuil1").Cells(3, 5).End(xlDown).Row
'de la ligne 3 jusqu'au bout
For i = 3 To nb_lignes
feuille = Sheets(1).Range("E2")
On Error GoTo suite
Sheets(feuille).Select
GoTo fin
Next
'si la feuille pays n'est pas créé, on la crée
suite:
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = feuille
For j = 1 To 23
Sheets(feuille).Cells(2, j) = Sheets("Feuil1").Cells(2, j)
Next
GoTo fin
'une fois la feuille créée ou non créée, on copie le personnel lié
fin:
nb_ligne = Sheets(feuille).Cells(2, 5).End(xlDown).Row
For j = 1 To 23
Sheets(feuille).Cells(nb_ligne, j) = Sheets("Feuil1").Cells(i, j)
Next
End Sub -
Bonjour,
Désolé je quitte le poste.
