Microsoft 365 Exporter automatiquement des noms d'élèves d'un onglet excel sur une autre onglet en fonction de la classe qui est attribuée

[johan nollet]

Bonjour,
je souhaiterais créer un fichier Excel où je pourrais exporter automatiquement sur des onglets spécifiques à chaque classe des noms d'élèves regroupés sur un onglet général.
En gros, sur l'onglet source, à coté du nom d'élève, je note la classe et Excel exporte le nom dans l'onglet de la classe.
J'espère être assez précis sur mes intentions... Merci pour votre aide.
Johan

 

[Usine à gaz]

Bjr johan nollet

Avant de poster ta 1ère demande, lis la charte et respectes-là.

Notamment :
Les intervenants ne sont pas là pour "FAIRE" mais pour "AIDER"
Il consacrent déjà bénévolement de leur temps.
= Joindre un fichier anonymisé qui reflète "clairement" le besoin avec le résultat attendu...

Tu auras plus de chance d'avoir des réponses...

 

[johan nollet]

Bjr johan nollet

Avant de poster ta 1ère demande, lis la charte et respectes-là.

Notamment :
Les intervenants ne sont pas là pour "FAIRE" mais pour "AIDER"
Il consacrent déjà bénévolement de leur temps.
= Joindre un fichier anonymisé qui reflète "clairement" le besoin avec le résultat attendu...

Tu auras plus de chance d'avoir des réponses...

En effet, je suis désolé de cette approche très directe... je tâcherais de reformuler ce post. En tant que petit nouveau, et sous la pression de la tâche, j'ai pris quelques raccourcis.

 

[don_pets]

hello,

à priori rien de foufou dans ta demande, toutefois pour y répondre plus facilement joins un fichier exemple avec des données bidons qui permettront d'illustrer la demande

 

[johan nollet]

Encore merci pour vos indications et votre aide.

 

[don_pets]

Il y a beaucoup beaucoup plus simple, mais aujourd'hui je ne suis pas inspiré de ouf

With Sheets("LISTING")
    Ligne = 2
    Do Until Cells(Ligne, 1) = ""
    
        If Cells(Ligne, 3) = "6A" Then
            derligne = Sheets("6A").Range("A65535").End(xlUp).Row + 1
            Range(Cells(Ligne, 1), Cells(Ligne, 2)).Copy Destination:=Sheets("6A").Range("A" & derligne)
        End If
        If Cells(Ligne, 3) = "6B" Then
            derligne = Sheets("6B").Range("A65535").End(xlUp).Row + 1
            Range(Cells(Ligne, 1), Cells(Ligne, 2)).Copy Destination:=Sheets("6B").Range("A" & derligne)
        End If
        
    Ligne = Ligne + 1
    Loop
End With

 

[halecs93]

Ma très modeste contribution en utilisant le code donné par don_pets.

Un début à poursuivre.

 

[fanfan38]

Bonjour et bienvenu sur le forum


A+ François