Macro permettant de splitter les données du colonne en plusieurs onglet

[DAVY696969]

Bonjour tout le monde,

Je n'arrive pas à créer une macro permettant de copier des données d'un onglet vers plusieurs onglet selon un critère : sachant que si l'onglet existe déjà il ne faut pas le supprimer pour en avoir un autre.

Si vous pouvez m'aider merci!!

J'en ai créer une elle marche bien mais ça créer un nouvel onglet, et ce n'est pas ce que je veux, vous la trouverez dans les macro : Divison par bureau

 

[pierrejean]

Bonjour DAVY (du Rhône ????)

A tester:

Sub report()
Application.ScreenUpdating = False
For n = 2 To Sheets("Balance client").Range("A" & Rows.Count).End(xlUp).Row
  On Error Resume Next
  nom = Sheets("Balance client").Range("A" & n)
  Sheets(nom).Activate
  If Err.Number <> 0 Then
      Sheets.Add.Name = nom
      Sheets("Balance client").Range("A1:S1").Copy Destination:=Sheets(nom).Range("A1")
  End If
  On Error GoTo 0
  derlin = Sheets(nom).Range("A" & Rows.Count).End(xlUp).Row
  Sheets("Balance client").Rows(n).Copy Destination:=Sheets(nom).Range("A" & derlin + 1)
Next
Sheets("Balance client").Move before:=Sheets(1)
Application.ScreenUpdating = True
End Sub

 

[DAVY696969]

Bonjour Jean Pierre !

Et oui je suis de lyon comme vous, ça c'est vu grâce à mon pseudo ? ahhaha

En tout cas merci beaucoup!!!! Ca marche nickel, le seul problème c'est que lorsque je lance la macro une deuxième fois, j'aimerais que les données soient remises à jour. C'est à dire supprimé, les données de la macro d'avant si vous voyez ce que je veux dire ?? et je ne sais pas comment faire ..

Vous êtes géniaux !! Merci

 

[DAVY696969]

Bonjour DAVY (du Rhône ????)

A tester:

Sub report()
Application.ScreenUpdating = False
For n = 2 To Sheets("Balance client").Range("A" & Rows.Count).End(xlUp).Row
  On Error Resume Next
  nom = Sheets("Balance client").Range("A" & n)
  Sheets(nom).Activate
  If Err.Number <> 0 Then
      Sheets.Add.Name = nom
      Sheets("Balance client").Range("A1:S1").Copy Destination:=Sheets(nom).Range("A1")
  End If
  On Error GoTo 0
  derlin = Sheets(nom).Range("A" & Rows.Count).End(xlUp).Row
  Sheets("Balance client").Rows(n).Copy Destination:=Sheets(nom).Range("A" & derlin + 1)
Next
Sheets("Balance client").Move before:=Sheets(1)
Application.ScreenUpdating = True
End Sub

J'arrive pas à trouver comment supprimer mes données, c'est à dire remettre à zéro les données mais sans supprimer les onglets, car il y aura des formules qui suivent après et que si je supprime l'onglet, les formules seront sans référence..

 

[pierrejean]

Re

Vois si cela te convient

 

[DAVY696969]

C'est parfait super merci beaucoup!!!

 

[DAVY696969]

Re

Vois si cela te convient

Pensez-vous qu'il est possible, d'avoir une autre macro à part qui permet de regrouper les données de tous les onglets que l'on vient de créer ??