Autres Regroupement de feuilles

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion chilo27
  • 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
chilo27

chilo27

XLDnaute Occasionnel
Bonjour le forum
Je souhaite regrouper les feuilles 135 136 137 etc dans une autre feuille
appelée regroupement

Sans la prise en compte des autres feuilles
Je précise que j'ai effectué des recherches, on en trouve mais malheureusement pas on le souhaite

En Vba si possible

En vous remerciant par avance
 

Pièces jointes

Trier par date Trier par votes
un premier jet copie des valeurs, sans écrasement des données et en partant du principe que la dernière ligne d'une feuille a toujours une valeur en colonne A !
VB: 
Sub Regroupement_Données()
    Dim Address_Feuilles As String
    If Sheets("REGROUPEMENT").Range("A6").Value = "" Then
        With Sheets("135")
            If Not .Range("A2").Value = "" Then
                Address_Feuilles = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Address
                Sheets("REGROUPEMENT").Range("A5").Range(Address_Feuilles).Value = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Value
            End If
        End With
    Else
        With Sheets("135")
            If Not .Range("A2").Value = "" Then
                Address_Feuilles = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Address
                Sheets("REGROUPEMENT").Range("A65536").End(xlUp).Range(Address_Feuilles).Value = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Value
            End If
        End With
    End If
    If Sheets("REGROUPEMENT").Range("A6").Value = "" Then
        With Sheets("136")
            If Not .Range("A2").Value = "" Then
                Address_Feuilles = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Address
                Sheets("REGROUPEMENT").Range("A5").Range(Address_Feuilles).Value = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Value
            End If
        End With
    Else
        With Sheets("136")
            If Not .Range("A2").Value = "" Then
                Address_Feuilles = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Address
                Sheets("REGROUPEMENT").Range("A65536").End(xlUp).Range(Address_Feuilles).Value = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Value
            End If
        End With
    End If
    If Sheets("REGROUPEMENT").Range("A6").Value = "" Then
        With Sheets("137")
            If Not .Range("A2").Value = "" Then
                Address_Feuilles = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Address
                Sheets("REGROUPEMENT").Range("A5").Range(Address_Feuilles).Value = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Value
            End If
        End With
    Else
        With Sheets("137")
            If Not .Range("A2").Value = "" Then
                Address_Feuilles = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Address
                Sheets("REGROUPEMENT").Range("A65536").End(xlUp).Range(Address_Feuilles).Value = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Value
            End If
        End With
    End If
    
End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Rebonjour le Forum, Yeahou

Cela Fonctionne après une personnalisation
Cela Comme j'aurai plusieurs de l'ordre d'une trentaine de feuilles
n'est il pas possible de regrouper les feuilles sans avoir à les énumérer et à condition qu'elles soient différentes, de création, information résumé se sont là des feuilles qui ne vont pas bouger
 
Vote positif 0 Vote négatif
voili !
VB: 
Sub Regroupement_Données()
    Dim Address_Feuilles As String, Compteur As Integer
    For Compteur = 135 To 137
        With Sheets(CStr(Compteur))
            If Sheets("REGROUPEMENT").Range("A6").Value = "" Then
                If Not .Range("A2").Value = "" Then
                    Address_Feuilles = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Address
                    Sheets("REGROUPEMENT").Range("A5").Range(Address_Feuilles).Value = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Value
                End If
            Else
                If Not .Range("A2").Value = "" Then
                    Address_Feuilles = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Address
                    Sheets("REGROUPEMENT").Range("A65536").End(xlUp).Range(Address_Feuilles).Value = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Value
                End If
            End If
        End With
    Next Compteur
End Sub
 
Vote positif 0 Vote négatif
si tes noms de feuille sont formatés sur un nombre de caractères type 001
remplaces le code:
VB: 
With Sheets(Right("00" & Compteur, 3))
et si tu identifies avec une chaine texte du type "Données001"
Code: 
With Sheets("Données" & Right("00" & Compteur, 3))
 
Vote positif 0 Vote négatif
ME voila de retour


Sub Regroupement_Données01()

Dim Address_Feuilles As String, Compteur As Long
For Compteur = 135 To 141 ---- j'ai ajouté des feuilles qui ne sont pas prises en compte


With Sheets(CStr(Compteur))-------------J'Obtiens le message n'appartient à la sélection
If Sheets("REGROUPEMENT").Range("A6").Value = "" Then
If Not .Range("A2").Value = "" Then
Address_Feuilles = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Address
Sheets("REGROUPEMENT").Range("A5").Range(Address_Feuilles).Value = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Value
End If
Else
If Not .Range("A2").Value = "" Then
Address_Feuilles = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Address
Sheets("REGROUPEMENT").Range("A65536").End(xlUp).Range(Address_Feuilles).Value = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Value
End If
End If
End With
Next Compteur
End Sub

autrement cela fonctionne avec les feuilles 135 à 137

Merci pour l'aide
 
Vote positif 0 Vote négatif
chilo27 à dit:
ME voila de retour


Sub Regroupement_Données01()

Dim Address_Feuilles As String, Compteur As Long
For Compteur = 135 To 141 ---- j'ai ajouté des feuilles qui ne sont pas prises en compte


With Sheets(CStr(Compteur))-------------J'Obtiens le message n'appartient à la sélection
If Sheets("REGROUPEMENT").Range("A6").Value = "" Then
If Not .Range("A2").Value = "" Then
Address_Feuilles = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Address
Sheets("REGROUPEMENT").Range("A5").Range(Address_Feuilles).Value = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Value
End If
Else
If Not .Range("A2").Value = "" Then
Address_Feuilles = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Address
Sheets("REGROUPEMENT").Range("A65536").End(xlUp).Range(Address_Feuilles).Value = .Range("A2:J" & .Range("A65536").End(xlUp).Row).Value
End If
End If
End With
Next Compteur
End Sub

autrement cela fonctionne avec les feuilles 135 à 137

Merci pour l'aide
Cliquez pour agrandir...
cela veut dire que tes noms de feuilles ajoutées ne correspondent pas à 138, 139, 140, 141, que tu as laissé un espace dans le nom ou qu'il en manque 1
 
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

D
  • Résolu(e)
Microsoft 365 récupérer des données d'une feuille excel d'un classeur A pour les incrémenter automatiquement sur le classeur B
Réponses
10
Affichages
290
TooFatBoy
TooFatBoy
D
  • Résolu(e)
XL 2019 Boucle sur plusieurs feuilles
Réponses
6
Affichages
502
dadaze
D
F
  • Question Question
Autres Concours pétanque sur 3 tours
Réponses
14
Affichages
471
FMI64
F
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
738
AtTheOne
AtTheOne
J
  • Résolu(e)
Microsoft 365 Impression groupée de plusieurs feuilles dans plusieurs onglets
2
Réponses
15
Affichages
604
Phil69970
Phil69970
Eric 888
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
831
Eric 888
Eric 888
R
  • Question Question
Microsoft 365 Protéger les mots de passe
2
Réponses
17
Affichages
592
Phil69970
Phil69970
PMG
  • Question Question
XL 2021 Déclaration de variables à partir d'une liste de noms
Réponses
8
Affichages
467
PMG
PMG
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
310
vgendron
vgendron
S
  • Résolu(e)
XL 2013 Sélection entre deux MsgBox...
2
Réponses
29
Affichages
495
Dudu2
Dudu2
papacorno
  • Question Question
XL 2016 comparaison de deux feuilles excel
Réponses
2
Affichages
487
papacorno
papacorno
L
  • Question Question
XL 2019 Regroupement de données + envoi mail
Réponses
3
Affichages
324
loiclass
L
S
  • Question Question
Microsoft 365 Consolider des données de plusieurs feuilles
Réponses
2
Affichages
338
Sissou71
S
jeff1494
  • Question Question
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
5
Affichages
497
jeff1494
jeff1494
M
  • Résolu(e)
XL 2021 VBA Ajouter ligne tableau + autres cellules hors tableau
Réponses
3
Affichages
169
sylvanu
sylvanu
KTM
  • Question Question
XL 2019 Regrouper les données de plusieurs feuilles dans une seule Feuille
Réponses
9
Affichages
660
Oneida
Oneida
G
  • Question Question
Microsoft 365 Formule qui retourne le contenu de la cellule sélectionnée
Réponses
5
Affichages
364
Guy_M
G
R
  • Question Question
XL 2010 Copie de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
810
Renaud22
R
M
  • Question Question
XL 2021 Tableau gestion bureau d'études
Réponses
10
Affichages
450
MALFOY Thomas
M
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
845
Nel'
N
Retour