Renvoi données sur plusieurs onglets selon critères

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Spidtrip
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

Spidtrip

XLDnaute Occasionnel
Bonjour à tous,

Je ne peux décidement plus me passer de vous....
Cette fois, j'ai un fichier avec plusieurs régions. Chacune de ces régions regroupent plusieurs départements. J'ai également une liste d'adresse.
Mon objectif est de renvoyer dans un onglet spécifique à sa région (1 par région - à créer automatiquement si impacté) chacune des lignes de l'onglet "Sites".
Comment lancer cela automatiquement d'après vous ?

Je vous joint un fichier d'exemple. Le fichier original ne comportera que les onglets "Liste Depts - Regions" et "Sites", le reste devant être généré automatiquement.

Merci pour votre aide
bye
 

Pièces jointes

Trier par date Trier par votes
Re : Renvoi données sur plusieurs onglets selon critères

Bonjour PierreJean,

Super ta macro, mais je l'ai mis en application de suite, mais j'ai apparemment un pbl sur Paris.
En fait, lorsque je lance la macro après avoir rajouté l'ensemble de mes adresses, dont une adresse à Paris, cette dernière est créée dans un onglet "GUADELOUPE", oups.
Peux-tu me dire comment modifier la macro en conséquence stp.
En tout cas merci, super rapide et tout et tout
bye
 
Vote positif 0 Vote négatif
Re : Renvoi données sur plusieurs onglets selon critères

bonsoir SpidTrip

en effet il y avait bien une erreur

voila qui te donnera Paris

Code: 
Option Explicit
Sub test()
Dim c As Range
Dim dep As Integer
Dim n As Integer
Dim x As Integer
Dim flag As Boolean
Application.ScreenUpdating = False
For n = 1 To Sheets.Count
 If Sheets(n).Name <> "Sites" And Sheets(n).Name <> "Liste Depts - Regions" Then
   Sheets(n).Range("A2:C" & Sheets(n).Range("A65536").End(xlUp).Row + 1).ClearContents
 End If
Next n
For n = 2 To Sheets("Sites").Range("B65536").End(xlUp).Row
 dep = Val(Sheets("Sites").Range("B" & n)) / 1000
With Worksheets("Liste Depts - Regions").Range("A2:A" & Worksheets("Liste Depts - Regions").Range("A65536").End(xlUp).Row)
    Set c = .Find(dep, LookAt:=xlWhole)
    If Not c Is Nothing Then
       For x = 1 To Sheets.Count
         If Sheets(x).Name = .Range("C" & c.Row) Then
           
           Sheets("Sites").Range("A" & n & ":C" & n).Copy Destination:=Sheets(x).Range("A65536").End(xlUp).Offset(1, 0)
           flag = True
         End If
       Next x
       If flag = False Then
          [COLOR=red]Worksheets.Add.Name = Worksheets("Liste Depts - Regions").Range("C" & c.Row)
[/COLOR]          Sheets("Sites").Range("A1:C1").Copy Destination:=ActiveSheet.Range("A1")
          Sheets("Sites").Range("A" & n & ":C" & n).Copy Destination:=ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
       End If
       flag = False
    End If
End With
Next n
Sheets("Sites").Select
Application.ScreenUpdating = True
End Sub

[\code]
 
Vote positif 0 Vote négatif
Re : Renvoi données sur plusieurs onglets selon critères

Bonjour à tous,

Voilà, j'utilise la macro que PierreJean m'a gentillement créé, mais je me retrouve avec debogage au niveau de : -> Worksheets.Add.Name = Worksheets("Liste Depts - Regions").Range("C" & c.Row)

Option Explicit
Sub test()
Dim c As Range
Dim dep As Integer
Dim n As Integer
Dim x As Integer
Dim flag As Boolean
Application.ScreenUpdating = False
For n = 1 To Sheets.Count
If Sheets(n).Name <> "Sites" And Sheets(n).Name <> "Liste Depts - Regions" Then
Sheets(n).Range("A2:C" & Sheets(n).Range("A65536").End(xlUp).Row + 1).ClearContents
End If
Next n
For n = 2 To Sheets("Sites").Range("B65536").End(xlUp).Row
dep = Val(Sheets("Sites").Range("B" & n)) / 1000

With Worksheets("Liste Depts - Regions").Range("A2:A" & Worksheets("Liste Depts - Regions").Range("A65536").End(xlUp).Row)
Set c = .Find(dep, LookAt:=xlWhole)
If Not c Is Nothing Then

For x = 1 To Sheets.Count
If Sheets(x).Name = .Range("C" & c.Row) Then

Sheets("Sites").Range("A" & n & ":C" & n).Copy Destination:=Sheets(x).Range("A65536").End(xlUp).Offset(1, 0)
flag = True
End If
Next x
If flag = False Then
Worksheets.Add.Name = Worksheets("Liste Depts - Regions").Range("C" & c.Row)
Sheets("Sites").Range("A1:C1").Copy Destination:=ActiveSheet.Range("A1")
Sheets("Sites").Range("A" & n & ":C" & n).Copy Destination:=ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0)
End If
flag = False
End If
End With
Next n
Sheets("Sites").Select
Application.ScreenUpdating = True
End Sub


Je vous joint le fichier de test
Merci pour votre aide
bye
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Renvoi données sur plusieurs onglets selon critères

Re tout le monde,

J'ai une précision complémentaire, voici ce qui est affiché dans la fenêtre après avoir lancé la macro :

"erreur d'exécution 1004"

Impossible de renommer une feuille comme une autre feuille, une bibliothèque d'objets référencée ou un classeur référencé par visual basic.

Est-ce que cela vous parle mieux ?

Merci d'avance pour vos réponses.
bye
 
Vote positif 0 Vote négatif
Re : Renvoi données sur plusieurs onglets selon critères

bonjour SpidTrip

Toutes mes excuses

je me suis fait pieger par un With

Voila ton fichier réparé pour l'instant

J'en profite pour te signaler que la recherche est basée sur les 2 premiers chiffres du code postal et que cela ne correspond pas en ce qui concerne la corse la guadeloupe ,réunion etc
Si tu dois avoir des sites la_bas donne moi des exemples afin que je traite ces cas particuliers
a titre indicatif c'est Excel_lent qui m'a mis la puce a l'oreille concernant ces cas particuliers
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Renvoi données sur plusieurs onglets selon critères

Une nouvelle fois, merci PierreJean.
Tu es complètement excusé, tu me donnes tout de même à bon coup de main.
Sinon, je risque effectivement d'avoir des cas pour la Corse.
Je relancerai la discussion le moment venu pour te demander ton avis.
Encore merci et bon week-end
bye
 
Vote positif 0 Vote négatif
Re : Renvoi données sur plusieurs onglets selon critères

Bonjour PierreJean, Le forum


Je repasse parmi vous car je viens de m'apercevoir que le fichier m'indique le département du 35 dans la Centre Val de Loire alors qu'il fait partie de la région Bretagne.

Merci pour votre aide.
bye
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
XL 2016 compter une valeur spécifique avec plusieurs critères
Réponses
6
Affichages
687
Cousinhub
Cousinhub
A
  • Résolu(e)
XL 2013 Récap de plusieurs onglets sur un seul
2 3
Réponses
34
Affichages
2 K
Staple1600
Staple1600
N
  • Question Question
XL 2019 Liste déroulantes dynamiques semi automatiques
2
Réponses
24
Affichages
4 K
Nico17620
N
Roseline
  • Résolu(e)
Microsoft 365 Afficher des onglets masqués selon un critères
Réponses
4
Affichages
1 K
Roseline
Roseline
Lisette
  • Question Question
Microsoft 365 Faire apparaître / cacher plusieurs onglets en fonction du résultat d'une formule
Réponses
6
Affichages
987
Lisette
Lisette
M
  • Résolu(e)
Microsoft 365 VBA Excel - Renommer cellules et onglets avec dates (formats différents)
2
Réponses
25
Affichages
4 K
Phil69970
Phil69970
M
  • Question Question
Microsoft 365 recuperer les données de plusieurs onglets
Réponses
2
Affichages
1 K
marcmarc
M
P
  • Question Question
Microsoft 365 Recopie de Données selon Critères sur une autre Feuille
Réponses
0
Affichages
794
Pat13127
P
P
  • Question Question
XL 2019 lister données sous 2 conditions - fonction index & agregat ?
Réponses
4
Affichages
1 K
pauline29
P
A
  • Question Question
Microsoft 365 Extraire des données selon deux critères sur plusieurs onglets
Réponses
4
Affichages
2 K
djidji59430
djidji59430
L
  • Question Question
XL 2016 VBA_Reporter quelques données de plusieurs onglets sur 1 seul
Réponses
2
Affichages
1 K
lindoux
L
M
  • Question Question
XL 2016 Extraction d'information selon deux critères sur deux feuilles
Réponses
4
Affichages
704
Mawie077
M
F
  • Question Question
Microsoft 365 Insertion automatique de ligne sur plusieurs onglets à partir d’un onglet source
Réponses
0
Affichages
799
fredal
F
L
  • Question Question
XL 2016 Fusion de données sur plusieurs onglets
Réponses
2
Affichages
776
Dranreb
Dranreb
S
  • Question Question
Synthétiser plusieurs feuilles excel sur une seule feuille sans VBA
Réponses
8
Affichages
3 K
schub
S
C
  • Question Question
SOMME.SI sur plusieurs onglets
Réponses
4
Affichages
1 K
CHL1234
C
F
  • Question Question
Inscrire des données dans un tableau selon plusieurs critères
Réponses
1
Affichages
650
phlaurent55
phlaurent55
Caroline ;-))
  • Question Question
XL 2010 extraire des onglets selon nom de l'onglet pour former un classeur distinct
Réponses
10
Affichages
2 K
Caroline ;-))
Caroline ;-))
M
  • Question Question
Compteur occurence dans plusieurs onglets dynamiques
Réponses
4
Affichages
781
Mohamed Karim Laabidi
M
A
  • Question Question
Outil de suivi de demandes
Réponses
0
Affichages
8 K
Arpopa
A
Retour