Créer des onglets automatiquement selon une variable
4 réponses
BlackStorm
Bonjour à tous,
Je n'arrive pas trouver de son solution à mon probleme :
J'ai une feuille Excel d'environ 450 Lignes
Il s'agit d'infos de clients (Raison sociale, adresse...). J'ai une
colonne je note que chaque client est suivi par un agent comptable
(reperé par son code).
Cette liste est mise à jour tous les 3 mois environs.
Je voudrais qu'Excel me crée autant de feuilles (qu'il y a d'agent
comptable) et qu'il me fasse un "couper/coller" des données clients
contenues dans la feuille 1 dans ces feuilles (lesquelles prendraient le
nom de l'agent comptable)...
Objectif : pouvoir individualisé les suivis sans risque d'erreur sur les
lignes ...
Je ne sais pas si cela est possible... mais merci d'avance pour votre aide !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir. Regarde le classeur à l'adresse : http://cjoint.com/?krw0vTWey4 et exécute la macro "Répartition" Cordialement. Daniel
Bonjour à tous,
Je n'arrive pas trouver de son solution à mon probleme :
J'ai une feuille Excel d'environ 450 Lignes Il s'agit d'infos de clients (Raison sociale, adresse...). J'ai une colonne je note que chaque client est suivi par un agent comptable (reperé par son code).
Cette liste est mise à jour tous les 3 mois environs. Je voudrais qu'Excel me crée autant de feuilles (qu'il y a d'agent comptable) et qu'il me fasse un "couper/coller" des données clients contenues dans la feuille 1 dans ces feuilles (lesquelles prendraient le nom de l'agent comptable)... Objectif : pouvoir individualisé les suivis sans risque d'erreur sur les lignes ...
Je ne sais pas si cela est possible... mais merci d'avance pour votre aide !
BlackStorm
Bonsoir.
Regarde le classeur à l'adresse :
http://cjoint.com/?krw0vTWey4
et exécute la macro "Répartition"
Cordialement.
Daniel
Bonjour à tous,
Je n'arrive pas trouver de son solution à mon probleme :
J'ai une feuille Excel d'environ 450 Lignes
Il s'agit d'infos de clients (Raison sociale, adresse...). J'ai une
colonne je note que chaque client est suivi par un agent comptable
(reperé par son code).
Cette liste est mise à jour tous les 3 mois environs.
Je voudrais qu'Excel me crée autant de feuilles (qu'il y a d'agent
comptable) et qu'il me fasse un "couper/coller" des données clients
contenues dans la feuille 1 dans ces feuilles (lesquelles prendraient le
nom de l'agent comptable)...
Objectif : pouvoir individualisé les suivis sans risque d'erreur sur les
lignes ...
Je ne sais pas si cela est possible... mais merci d'avance pour votre aide !
Bonsoir. Regarde le classeur à l'adresse : http://cjoint.com/?krw0vTWey4 et exécute la macro "Répartition" Cordialement. Daniel
Bonjour à tous,
Je n'arrive pas trouver de son solution à mon probleme :
J'ai une feuille Excel d'environ 450 Lignes Il s'agit d'infos de clients (Raison sociale, adresse...). J'ai une colonne je note que chaque client est suivi par un agent comptable (reperé par son code).
Cette liste est mise à jour tous les 3 mois environs. Je voudrais qu'Excel me crée autant de feuilles (qu'il y a d'agent comptable) et qu'il me fasse un "couper/coller" des données clients contenues dans la feuille 1 dans ces feuilles (lesquelles prendraient le nom de l'agent comptable)... Objectif : pouvoir individualisé les suivis sans risque d'erreur sur les lignes ...
Je ne sais pas si cela est possible... mais merci d'avance pour votre aide !
BlackStorm
JB
Bonjour,
http://cjoint.com/?ksh1lwMHm5
[A1:e100].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[I1], Unique:=True For Each c In Range([i2], [I65000].End(xlUp)) Sheets("base").[i2] = c On Error Resume Next Sheets(c.Value).Activate If Err <> 0 Then Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = c Else Cells.ClearContents End If Sheets("base").[A1:e100].AdvancedFilter CriteriaRange:=Sheets("base").[i1:i2], _ Action:=xlFilterCopy, CopyToRange:=[A1] Next c
Cordialement JB
Bonjour à tous,
Je n'arrive pas trouver de son solution à mon probleme :
J'ai une feuille Excel d'environ 450 Lignes Il s'agit d'infos de clients (Raison sociale, adresse...). J'ai une colonne je note que chaque client est suivi par un agent comptable (reperé par son code).
Cette liste est mise à jour tous les 3 mois environs. Je voudrais qu'Excel me crée autant de feuilles (qu'il y a d'agent comptable) et qu'il me fasse un "couper/coller" des données clients contenues dans la feuille 1 dans ces feuilles (lesquelles prendraient le nom de l'agent comptable)... Objectif : pouvoir individualisé les suivis sans risque d'erreur sur les lignes ...
Je ne sais pas si cela est possible... mais merci d'avance pour votre aid e !
BlackStorm
Bonjour,
http://cjoint.com/?ksh1lwMHm5
[A1:e100].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[I1],
Unique:=True
For Each c In Range([i2], [I65000].End(xlUp))
Sheets("base").[i2] = c
On Error Resume Next
Sheets(c.Value).Activate
If Err <> 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = c
Else
Cells.ClearContents
End If
Sheets("base").[A1:e100].AdvancedFilter
CriteriaRange:=Sheets("base").[i1:i2], _
Action:=xlFilterCopy, CopyToRange:=[A1]
Next c
Cordialement JB
Bonjour à tous,
Je n'arrive pas trouver de son solution à mon probleme :
J'ai une feuille Excel d'environ 450 Lignes
Il s'agit d'infos de clients (Raison sociale, adresse...). J'ai une
colonne je note que chaque client est suivi par un agent comptable
(reperé par son code).
Cette liste est mise à jour tous les 3 mois environs.
Je voudrais qu'Excel me crée autant de feuilles (qu'il y a d'agent
comptable) et qu'il me fasse un "couper/coller" des données clients
contenues dans la feuille 1 dans ces feuilles (lesquelles prendraient le
nom de l'agent comptable)...
Objectif : pouvoir individualisé les suivis sans risque d'erreur sur les
lignes ...
Je ne sais pas si cela est possible... mais merci d'avance pour votre aid e !
[A1:e100].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[I1], Unique:=True For Each c In Range([i2], [I65000].End(xlUp)) Sheets("base").[i2] = c On Error Resume Next Sheets(c.Value).Activate If Err <> 0 Then Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = c Else Cells.ClearContents End If Sheets("base").[A1:e100].AdvancedFilter CriteriaRange:=Sheets("base").[i1:i2], _ Action:=xlFilterCopy, CopyToRange:=[A1] Next c
Cordialement JB
Bonjour à tous,
Je n'arrive pas trouver de son solution à mon probleme :
J'ai une feuille Excel d'environ 450 Lignes Il s'agit d'infos de clients (Raison sociale, adresse...). J'ai une colonne je note que chaque client est suivi par un agent comptable (reperé par son code).
Cette liste est mise à jour tous les 3 mois environs. Je voudrais qu'Excel me crée autant de feuilles (qu'il y a d'agent comptable) et qu'il me fasse un "couper/coller" des données clients contenues dans la feuille 1 dans ces feuilles (lesquelles prendraient le nom de l'agent comptable)... Objectif : pouvoir individualisé les suivis sans risque d'erreur sur les lignes ...
Je ne sais pas si cela est possible... mais merci d'avance pour votre aid e !
BlackStorm
JB
Si les feuilles des gestionnaires n'existent pas:
[A1:e100].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[I1], Unique:=True For Each c In Range([i2], [I65000].End(xlUp)) Sheets("base").[i2] = c Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = c Sheets("base").[A1:e100].AdvancedFilter CriteriaRange:=Sheets("base").[i1:i2], _ Action:=xlFilterCopy, CopyToRange:=[A1] Next c
JB
Bonjour à tous,
Je n'arrive pas trouver de son solution à mon probleme :
J'ai une feuille Excel d'environ 450 Lignes Il s'agit d'infos de clients (Raison sociale, adresse...). J'ai une colonne je note que chaque client est suivi par un agent comptable (reperé par son code).
Cette liste est mise à jour tous les 3 mois environs. Je voudrais qu'Excel me crée autant de feuilles (qu'il y a d'agent comptable) et qu'il me fasse un "couper/coller" des données clients contenues dans la feuille 1 dans ces feuilles (lesquelles prendraient le nom de l'agent comptable)... Objectif : pouvoir individualisé les suivis sans risque d'erreur sur les lignes ...
Je ne sais pas si cela est possible... mais merci d'avance pour votre aid e !
BlackStorm
Si les feuilles des gestionnaires n'existent pas:
[A1:e100].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[I1],
Unique:=True
For Each c In Range([i2], [I65000].End(xlUp))
Sheets("base").[i2] = c
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = c
Sheets("base").[A1:e100].AdvancedFilter
CriteriaRange:=Sheets("base").[i1:i2], _
Action:=xlFilterCopy, CopyToRange:=[A1]
Next c
JB
Bonjour à tous,
Je n'arrive pas trouver de son solution à mon probleme :
J'ai une feuille Excel d'environ 450 Lignes
Il s'agit d'infos de clients (Raison sociale, adresse...). J'ai une
colonne je note que chaque client est suivi par un agent comptable
(reperé par son code).
Cette liste est mise à jour tous les 3 mois environs.
Je voudrais qu'Excel me crée autant de feuilles (qu'il y a d'agent
comptable) et qu'il me fasse un "couper/coller" des données clients
contenues dans la feuille 1 dans ces feuilles (lesquelles prendraient le
nom de l'agent comptable)...
Objectif : pouvoir individualisé les suivis sans risque d'erreur sur les
lignes ...
Je ne sais pas si cela est possible... mais merci d'avance pour votre aid e !
[A1:e100].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[I1], Unique:=True For Each c In Range([i2], [I65000].End(xlUp)) Sheets("base").[i2] = c Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = c Sheets("base").[A1:e100].AdvancedFilter CriteriaRange:=Sheets("base").[i1:i2], _ Action:=xlFilterCopy, CopyToRange:=[A1] Next c
JB
Bonjour à tous,
Je n'arrive pas trouver de son solution à mon probleme :
J'ai une feuille Excel d'environ 450 Lignes Il s'agit d'infos de clients (Raison sociale, adresse...). J'ai une colonne je note que chaque client est suivi par un agent comptable (reperé par son code).
Cette liste est mise à jour tous les 3 mois environs. Je voudrais qu'Excel me crée autant de feuilles (qu'il y a d'agent comptable) et qu'il me fasse un "couper/coller" des données clients contenues dans la feuille 1 dans ces feuilles (lesquelles prendraient le nom de l'agent comptable)... Objectif : pouvoir individualisé les suivis sans risque d'erreur sur les lignes ...
Je ne sais pas si cela est possible... mais merci d'avance pour votre aid e !
BlackStorm
BlackStorm
Bonsoir JB !
Je rentre du boulot, je vais tester TOUT de suite ta solution !
Merci à toi pour aide !
Je te tiens au courant...
BlackStorm
Bonsoir JB !
Je rentre du boulot, je vais tester TOUT de suite ta solution !
