comment extraire des données d'une feuille pour une autre Fermé

Question

Bonjour, 

J'ai des feuilles excels avec la liste des candidats au Bac blanc, les notes par épreuves, les totaux, les moyennes, les Rangs et les Décisions du jury (Admis/Refusé) et enfin les Mentions (Bien,Assez bien, Passable...).
Je voudrais pouvoir extraire uniquement les "Admis" avec toutes les informations les concernant et les envoyer sur une autre feuille de façon automatique.
Je pense me faire comprendre.
Je vous remercie pour votre grande sollicitude.

Configuration: Windows 7 / Firefox 33.0

Gyrus · Answer

Bonjour,

Tu devrais pouvoir faire cela avec un filtre avancé.

Si tu souhaites que t'aidions d'avantage, il faut que tu joignes un fichier à la demande. Ce fichier doit contenir les données utiles (non confidentielles) et doit être accompagné des explications nécessaires.

Pour joindre le fichier, tu peux utiliser https://www.cjoint.com/
Ensuite, reviens coller ici le lien donné par le site.	

A+

NicolasVBA · Answer

Bonjour,

Malgré le peu d'explication, je me suis penché sur ton problème, et le code suivant devrait fonctionner en toute circonstance...

C'est pas des plus optimal, mais ça fonctionne, alors... :)

Sub test()

'Admettons que les données soient stockées sur la feuil1 et qu'on les colles sur Feuil2
'Admettons également que la première ligne contiennent les titres des colonnes

Dim ligne As Integer
ligne = 2

Sheets("Feuil1").Select

Dim derlig As Integer
derlig = Range("A" & Rows.Count).End(xlUp).Row

Dim dercol As Integer
dercol = Cells(1, Columns.Count).End(xlToLeft).Column

Sheets("Feuil1").Range("1:1").Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("Feuil1").Select

For i = 2 To derlig
    For j = 1 To dercol

If Cells(i, j).Value = "Admis" Then
' ou : If Cells(i, j).Value Like "*Admis*" Then

Cells(i, j).EntireRow.Copy
            Sheets("Feuil2").Select
            Cells(ligne, 1).Select
            ActiveSheet.Paste
            ligne = ligne + 1
            Sheets("Feuil1").Select

End If
    Next
Next

End Sub

 
Bonne journée !
Nicolas.

La cuillère n'existe pas !

Maurice · Answer

Bonjour 
Avec un modele de ton fichier ca serait plus facile a comprendre

surtout pour faire une recape de plusieur onglet

A+
Maurice

NicolasVBA · Answer

Merci Gyrus pour l'astuce !

Voici le fichier de test que j'avais fait pour tester ma macro :
https://www.cjoint.com/c/EHqlOql0P1t

Le code n'est pas optimisé, voir même un peu lourd, mais pour les débutant je préfère des macros simples, quitte à être un peu lente. 

Bonne journée !

Comment extraire des données d'une feuille pour une autre

4 réponses

Discussions similaires