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