XL 2013 Extraire liste des admis

  • Initiateur de la discussion Initiateur de la discussion koadima
  • 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 !

Bonjour koadima, le fil,

* regarde la 2ème feuille "Liste des admis".

* va sur la 1ère feuille "Relevé de notes".

* fais Ctrl e ; puis vérifie bien les résultats. 🙂



code VBA (24 lignes) :

VB:
Option Explicit

Sub CpyAdmis()
  If ActiveSheet.Name <> "Relevé de notes" Then Exit Sub
  Dim sh As Worksheet, n1&, n2&, i&, j&, m%, k%
  With ActiveSheet.ListObjects("Tableau1")
    If .DataBodyRange Is Nothing Then Exit Sub
    n1 = .ListRows.Count: If n1 = 0 Then Exit Sub
    m = .ListColumns.Count: k = m - 3
  End With
  Set sh = Worksheets("Liste des admis")
  j = 5: Application.ScreenUpdating = 0
  n2 = sh.Cells(Rows.Count, 1).End(3).Row
  If n2 > 4 Then sh.Range("A5:H" & n2).ClearContents
  For i = 8 To n1 + 7
    If Cells(i, m) = "Admis(e)" Then
      Cells(i, 1).Resize(, 4).Copy: sh.Cells(j, 1).PasteSpecial -4163
      Cells(i, k).Resize(, 4).Copy: sh.Cells(j, 5).PasteSpecial -4163
      j = j + 1
    End If
  Next i
  Application.CutCopyMode = 0: sh.Select: [A1].Select
End Sub



si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis. 😉

soan
Bonsoir
Merci. Je remarque qu'un ajout ou un retrait d'un candidats admis la liste ne se met pas à jour. Que faire ?
 
@koadima

Je remarque qu'un ajout ou un retrait d'un candidats admis la liste ne se met pas à jour. Que faire ?

ah oui, pour ça, mon code VBA n'est pas prévu pour une mise à jour automatique ! tu dois d'abord faire toutes les modifications (ajouts ou retraits de candidats) dans ton tableau initial de la 1ère feuille, puis ensuite fais Ctrl e pour avoir le tableau des résultats de la 2ème feuille.

nota bene : tu n'as pas besoin d'effacer les anciens résultats avant de faire Ctrl e car ça oui, c'est fait automatiquement par la macro ! 🙂



remarque : en pratique, je ne vois pas bien l'intérêt d'une mise à jour automatique du tableau des résultats à chaque modif du tableau initial ! c'est juste que tu ne dois pas oublier de faire Ctrl e après avoir fait toutes les modifs nécessaires du tableau initial !​

soan
 
@koadima

Image.jpg


??? je n'ai pas compris pourquoi tu répètes ta question dans ton post #19 ; j'ai déjà répondu à cette question dans mon post #18. 🙂

soan
 

Pièces jointes

Bonjour à tous,

Appuyez sur Ctrl+Maj+Entrée ou Ctrl+Shift+Enter pour confirmer la formule. Excel ajoute automatiquement des accolades au début et à la fin de la formule.
Voir le lien pour valider les matricielles.

La formule proposée fonctionne-t-elle dans le fichier proposé en #23?

JHA
 
Bonjour à tous,

Appuyez sur Ctrl+Maj+Entrée ou Ctrl+Shift+Enter pour confirmer la formule. Excel ajoute automatiquement des accolades au début et à la fin de la formule.
Voir le lien pour valider les matricielles.

La formule proposée fonctionne-t-elle dans le fichier proposé en #23?

JHA
Ouii elle fonctionne bien. Mais sur un autre fixe, elle ne pass pas. J'ai bien suivi les instructions. Ma version d'Office est 2016
1676133069120.png
 
Bonjour Jean Claude MARAMBA, JHA,

On peut éviter la validation matricielle en utilisant le nom défini Matrice :
Code:
=SI(CANDIDATS!$M$22:$M$1000="Admis(e)";LIGNE(CANDIDATS!$M$22:$M$1000))
La dernière ligne 1000 peut être adaptée.

Formule "normale" en A11 :
Code:
=SIERREUR(INDEX(CANDIDATS!A:A;PETITE.VALEUR(Matrice;LIGNE(A1)));"")
A+
 

Pièces jointes

Bonjour à tous
@Jean Claude MARAMBA
Ouii elle fonctionne bien. Mais sur un autre fixe, elle ne pass pas. J'ai bien suivi les instructions. Ma version d'Office est 2016
Attention. Une formule matricielle ne peut être "Copier/Coller" dans sont intégralité.
Elle doit être copiée sans accolades { } , puis revalider par Ctrl+Maj+Entrée

NB: c'est quoi cette version d'excel ? Contrefaçon ?
 
- 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

Discussions similaires

Réponses
1
Affichages
95
Réponses
16
Affichages
249
Réponses
11
Affichages
153
Retour