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

Usine à gaz

XLDnaute Barbatruc

• 3 Juillet 2023

• #2

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...

 

Dernière édition: 3 Juillet 2023

Vote positif 0 Vote négatif

J

johan nollet

XLDnaute Nouveau

• 3 Juillet 2023

• #3

Usine à gaz à dit:

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...

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

• 3 Juillet 2023

• #4

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

 

Vote positif 0 Vote négatif

J

johan nollet

XLDnaute Nouveau

• 3 Juillet 2023

• #5

Encore merci pour vos indications et votre aide.

 

Pièces jointes

• FICHIER TEST.xlsx

  13.4 KB · Affichages: 7

Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

• 3 Juillet 2023

• #6

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

VB:

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

 

Vote positif 0 Vote négatif

halecs93

XLDnaute Impliqué

• 4 Juillet 2023

• #7

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

Un début à poursuivre.

 

Pièces jointes

• FICHIER TEST v2.xlsm

  22.3 KB · Affichages: 5

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 4 Juillet 2023

• #8

Bonjour et bienvenu sur le forum


A+ François

 

Pièces jointes

• FICHIER TEST.xlsm

  20.1 KB · Affichages: 12

Vote positif 0 Vote négatif