Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

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

lautrec2

Guest
Bonjour

Mon problème vient du fait que je dois prendre des infos sur 2 lignes différentes sur une feuille et les mettre en place sur une seule ligne sur une feuille supplémentaire.
Ainsi qu'une 3eme salve d'infos à prendre sur une 3 feuille.

Je sais, ça n'est vraiment pas clair...!
Alors une bonne image est beaucoup plus claire il me semble:


Merci d'avance pour l'aide que vous pourriez m'apporter !!!
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Trés fort, JCGL !!!
C'est tout bon....pour les parents !
Juste qu'entre chaque ligne d'eleve (entre la ligne "eleve1" et la ligne "eleve2" de la récap, il y a une ligne vide.)
Mais c'est pas grave, il suffira de faire un filtre élaboré>non vide.

Bravo!
Je dois avouer que je lis tes lignes de code avec intéret et que je mesure la distance à parcourir.....!
 
Vote positif 0 Vote négatif
Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Bonjour à tous,

Je n'ai pas de lignes vides pour les Elèves...
Voici ce que j'ai utilisé :
VB: 
Option Explicit

Sub Test()
    Dim C
    Dim X%
    Set C = Sheets("Récap")

    C.Range("A2:AL1000").Clear

    With Sheets("Parents")
        For X = 2 To .Range("A65536").End(xlUp).Row
            If X Mod 2 = 0 Then
                .Range("A" & X & ":L" & X).Copy C.Range("A" & X)
            Else
                .Range("A" & X & ":L" & X).Copy C.Range("M" & X - 1)
            End If
        Next X
    End With

    With Sheets("Enfants")
        For X = 2 To .Range("A65536").End(xlUp).Row
            .Range("A" & X & ":N" & X).Copy C.Range("Y" & X)
        Next X
    End With

    With C.Cells
        .Font.Name = "Arial"
        .Font.Size = 8
        .Columns.AutoFit
        .Rows.AutoFit
    End With
    C.Range("A1").Select
End Sub

Ce code est basique mais très facilement compréhensible...

A + à tous
 
Vote positif 0 Vote négatif
Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

1000 mercis JCGL (et aussi un peu Efgé...)

En fait je cale un peu pour rajouter les enfants......
(j'avais cru y arriver...mais non!)
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Re
Après avoir été enrôlé de force dans une mission non planifiée "courses au supermarché",
je reviens, un peu désargenté, pour faire une remarque:
Il est vrai que ma proposition est un peu "éxotique" et que celle de JC est bien plus simple et tout à fait aussi efficace 😀.
Par contre deux questions, liées à la demande et au fichier, se posent:
- Que se passe t il si l'élève est dans une famille monoparentale ? (toute les lignes suivantes seront décalées)
- Est on certain que les parents sont saisis dans le même ordre que les élèves ? (un classement alphabétique sur le nom ne suffira pas si les parents ne portent pas le nom de l'élève)

Cordialement
 
Vote positif 0 Vote négatif
Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Bonnes questions Efgé (qui démontrent un esprit affuté parce que c'est fin....),
mais
1,pour les familles monoparentales, je corrige "à la main" le fichier original. C'est la meilleure solution (et ça ne concerne en fait que très peu d'enfants.... chq enfant a qd même 2 parents....il n'y a que les cas de décès quasiment....)
2; pour l'ordre, il faut juste faire un tri dans les 2 fichiers avec le même item commun aux 2(c'est à dire nom-prenom de l'enfant)

Pour JCGL, on y est presque....
Les enfants y vont mais si tu rajoutes les lignes maman2, papa2/maman3/papa3,... tu verras que dans la Récap, ça saute une ligne et du coup, ça décale les enfants.
Et ça, j'arrive pas à l'arranger...
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Bonjour à tous,
Salut Papou,

Exact...
Plutôt que de modifier le code, ajout d'un tri alphabétique sur les noms en A...
Je pense que cela pourra être utile

Pour effectuer le tri sur une autre colonne : modifie le Key1:=Range("A1") en Key1:=Range("Y1") pour trier sur les noms de Élèves par exemple

VB: 
Option Explicit

Sub Test()
    Dim C
    Dim X%
    Set C = Sheets("Récap")
    
    Application.ScreenUpdating = 0

    C.Range("A2:AL1000").Clear

    With Sheets("Parents")
        For X = 2 To .Range("A65536").End(xlUp).Row
            If X Mod 2 = 0 Then
                .Range("A" & X & ":L" & X).Copy C.Range("A" & X)
            Else
                .Range("A" & X & ":L" & X).Copy C.Range("M" & X - 1)
            End If
        Next X
    End With

    With Sheets("Enfants")
        For X = 2 To .Range("A65536").End(xlUp).Row
            .Range("A" & X & ":N" & X).Copy C.Range("Y" & X)
        Next X
    End With

    With C.Cells
        .Font.Name = "Arial"
        .Font.Size = 8
        .Columns.AutoFit
        .Rows.AutoFit
    End With
    With C
    Columns("A:AL").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
    Range("A1").Select
    End With
End Sub

A + à tous
 
Vote positif 0 Vote négatif
Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

re à tous, Bonjour Papou🙂,
J'aurais bien vu ça:
VB: 
Sub Test_JCGL_Efgé()
    Dim C
    Dim X%
    Dim Rw&
    Set C = Sheets("Récap")
    Rw = 1
    C.Range("A2:AL1000").Clear
    With Sheets("Parents")
        For X = 2 To .Range("A65536").End(xlUp).Row
            If X Mod 2 = 0 Then
                Rw = Rw + 1
                .Range("A" & X & ":L" & X).Copy C.Range("A" & Rw)
            Else
                .Range("A" & X & ":L" & X).Copy C.Range("M" & Rw)
            End If
        Next X
    End With
    
    With Sheets("Enfants")
        For X = 2 To .Range("A65536").End(xlUp).Row
            .Range("A" & X & ":F" & X).Copy C.Range("Y" & X)
        Next X
    End With
    
    With C.Cells
        .Font.Name = "Arial"
        .Font.Size = 8
        .Columns.AutoFit
        .Rows.AutoFit
    End With
    C.Range("A1").Select
End Sub
Cordialement
 
Vote positif 0 Vote négatif
Re : Pb pour récolter des infos venant de plusieurs feuilles d'un meme classeur

Là je suis soufflé !!!!

Tres fort!

A tous les 2 vous avez résolu mon problème, ça marche nickel!

Chapeau bas, Messieurs !
1000 mercis
 
Dernière modification par un modérateur:
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

S
  • Résolu(e)
Microsoft 365 [RESOLU] Excel : Calcul de prix en fonction d'un type
Réponses
4
Affichages
612
JHA
J
G
  • Question Question
XL 2021 rassembler des données de plusieurs feuilles d'un classeur sur une nouvelle feuille du meme classeur selon un critère
Réponses
1
Affichages
641
Staple1600
Staple1600
B
  • Question Question
XL 2019 ventiler une base de données sur plusieurs feuilles d'un même classeur
Réponses
5
Affichages
855
bernardhericher
B
F
  • Question Question
Microsoft 365 Remplissage automatique d'un tableau d'après des tableaux de plusieurs feuilles différentes.
Réponses
8
Affichages
1 K
Fëa
F
L
  • Question Question
Microsoft 365 Comparer le texte de deux colonnes (plusieurs mots/cellule) pour trouver 1 mot en commun
2 3
Réponses
37
Affichages
4 K
Staple1600
Staple1600
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
L
  • Question Question
XL 2019 VBA - classeur maitre agrégateur de fichiers élèves
Réponses
10
Affichages
2 K
yal
Y
paradisecity1996
  • Question Question
Microsoft 365 Gestion de listes
Réponses
3
Affichages
944
paradisecity1996
paradisecity1996
B
  • Question Question
XL 2016 Recherche de façon de procéder pour liste déroulante
Réponses
6
Affichages
2 K
BOB130
B
C
  • Résolu(e)
XL 2019 Synthétiser efficacement des données non contigues dans plusieurs onglets d'un classeur
Réponses
5
Affichages
2 K
CiolBel
C
H
  • Question Question
XL 2019 macro pour copier un tableau avec mot cle de word vers excel et dispatcher données sur plusieurs cellules
Réponses
0
Affichages
2 K
hajar1403
H
A
  • Question Question
XL 2013 Impression de plusieurs feuilles excel d'un même classeur, sans pour autant les agrafer toutes ensemble
Réponses
1
Affichages
1 K
Compte Supprimé 979
C
S
  • Question Question
XL 2016 Formulaire avec plusieurs listbox différentes
Réponses
12
Affichages
2 K
Sparfell29
S
M
  • Question Question
XL 2016 Afficher dans une cellule une liste de plusieurs cellules
Réponses
5
Affichages
3 K
Michelll38
M
serras
  • Question Question
rechercher meme info sur plusieurs feuilles
2
Réponses
26
Affichages
3 K
serras
serras
N
  • Question Question
Récuperer des lignes et colonnes de plusieurs feuilles d'un classeur
Réponses
3
Affichages
2 K
Dugenou
Dugenou
D
  • Question Question
Mise en forme nuage de points conditionnel
Réponses
3
Affichages
4 K
davidannic
D
Y
  • Question Question
XL 2013 Rassembler des colonnes issues de différentes feuilles en une colonne actualisable
Réponses
6
Affichages
1 K
yumenodoka
Y
R
  • Question Question
XL 2013 Cumul de plusieurs feuille Excel
Réponses
2
Affichages
3 K
gosselien
gosselien
M
  • Question Question
exporter des données de plusieurs feuilles d'un classeur avec plusieurs conditions
Réponses
3
Affichages
2 K
JCGL
JCGL
Retour