transfert de données

Gen Rose

XLDnaute Impliqué

Supporter XLD

• 19 Juillet 2013

• #2

Re : transfert de données

Bonjour Patrick 7676,
Le Forum🙂

Une proposition en p.j.

J'ai seulement dû remanier la base du tableau pour obtenir le TCD selon la demande.

Voir en Feuil 2.

 

Pièces jointes

• proposition_TCD.xls

  49.5 KB · Affichages: 28

Vote positif 0 Vote négatif

Gen Rose

XLDnaute Impliqué

Supporter XLD

• 19 Juillet 2013

• #3

Re : transfert de données

Re,

Il semble qu'il y ait un bug dans le fichier que j'ai envoyé, le choix 'BLEU' disparait lorsque l'on sélectionne une autre couleur. Bizz.

Je ne sais si c'est à cause qu'il est sur la même page que le tableau, mais en mettant le TCD sur une autre feuille, le problème semble réglé.

Nouveau p.j.

 

Pièces jointes

• proposition_TCD_2.xls

  50.5 KB · Affichages: 44

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 19 Juillet 2013

• #4

Re : transfert de données

Bonsoir tous,

Peut-être ceci aprés avoir cliqué sur le bouton TRIER

RESULTAT dans la feuille 2

Code:

Option Explicit

Sub TRIE()
Dim i As Integer
Dim j As Long
Dim k As Integer
Application.ScreenUpdating = False
Range("Tableau").ClearContents
For i = 2 To 16384
  For j = 2 To 1048576
  Sheets(1).Select
  If Cells(2, i) = "" Then Exit Sub
   If Cells(j, 1) = "" Then Exit For
   If Cells(2, i) = "BLEU" Then
   If Cells(j, i) = "" Then Cells(j, i).Value = "-"
   Cells(j, i).Copy
    For k = 3 To 16384
    Sheets(2).Select
     If Cells(j, k) = "" Then
     Cells(j, k).Select
     ActiveSheet.Paste
     Application.CutCopyMode = False
     Exit For
    ElseIf Cells(j, k) <> "" Then
    Cells(j, k).Select
    Else
    Exit For
     End If
    Next k
     Sheets(1).Select
    Else
    Exit For
    End If
  Next j
Next i
Application.ScreenUpdating = True
End Sub

Bonne soirée

 

Pièces jointes

• essai juillet.xlsm

  26.8 KB · Affichages: 30

Dernière édition: 19 Juillet 2013

Vote positif 0 Vote négatif

P

patrick7676

XLDnaute Occasionnel

• 20 Juillet 2013

• #5

Re : transfert de données

merci pour vos deux réponses cependant
Pour Genevieve 78 NE peut on pas garder le tableau original suivant le modèle proposé ? mon nombre d'élève est supérieur à 100 et cela devient compliqué à le remplir comme dans la solution proposé .

Pour JBarbe : très intéressant âis je suis nul en VBA Peut on réaliser ton système sans VBA

merci encore pour votre aide

 

Vote positif 0 Vote négatif

P

patrick7676

XLDnaute Occasionnel

• 20 Juillet 2013

• #6

Re : transfert de données

bonjour peu d'aide
vous êtes parti à la plage
une question peut on résoudre mon problème sans VBA

merci

 

Vote positif 0 Vote négatif

P

poulie

XLDnaute Impliqué

• 20 Juillet 2013

• #7

Re : transfert de données

Bonjour patrick7676; Bonjour à tous,

Eventuellement cette proposition à tester. Peut-être tantôt le bord de mer...

Bonne réception

 

Pièces jointes

• essai juillet.xlsx

  12.8 KB · Affichages: 48
• essai juillet.xlsx

  12.8 KB · Affichages: 42
• essai juillet.xlsx

  12.8 KB · Affichages: 35

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 20 Juillet 2013

• #8

Re : transfert de données

Bonjour à tous,

Un autre essai
Plages nommées
Quelques formules matricielles (à valider par ctrl, maj et entrée)
Format conditionnel

(le 30-02-2013 n'existe pas)

 

Pièces jointes

• Patrick7676.xlsx

  18.4 KB · Affichages: 40
• Patrick7676.xlsx

  18.4 KB · Affichages: 46
• Patrick7676.xlsx

  18.4 KB · Affichages: 42

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 20 Juillet 2013

• #9

Re : transfert de données

Bonjour le fil

Je passe juste pour faire un coucou à Monique, la reine des formules matricielles 😉

Bisous

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 20 Juillet 2013

• #10

Re : transfert de données

Salut Bruno

 

Vote positif 0 Vote négatif

P

patrick7676

XLDnaute Occasionnel

• 20 Juillet 2013

• #11

Re : transfert de données

bonjour Poulie
avec le mot "Tantôt tes un vrai normand

bonne remarque Monique pour le 30/02
je regarde les deux propositions

 

Vote positif 0 Vote négatif

P

patrick7676

XLDnaute Occasionnel

• 20 Juillet 2013

• #12

Re : transfert de données

*TREES bon travail
Deux approches différentes
serait il possible de mettre deux critères c'est à dire prendre en compte l'intitulé du cours (exemple Bleu ) mais aussi la catégorie par exemple la catégorie A

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 20 Juillet 2013

• #13

Re : transfert de données

Re,

C’est fait, en C6 par exemple de la feuille 2 :
=SI((C$3="")+($A6="");"";DECALER(Feuil1!$A$5;EQUIV($A6;Noms;0);EQUIV($A$2&C$3&C$4;Cours&Date&Cat;0)))

 

Vote positif 0 Vote négatif

P

poulie

XLDnaute Impliqué

• 20 Juillet 2013

• #14

Re : transfert de données

Vois si cela te convient.

Bonjour Monique, BrunoM45

 

Pièces jointes

• essai juillet-2.xlsx

  13.2 KB · Affichages: 37

Vote positif 0 Vote négatif

P

patrick7676

XLDnaute Occasionnel

• 20 Juillet 2013

• #15

Re : transfert de données

merci pour votre aide
cependant j'ai omis de vous dire que la classe est composée d'élèves CM1 et CE2
serait il possible de faire en classement les noms des élèves de cM1 avec les cours bleu
je sais j'aurais du vous le dire des le point de départ vous trouverez ci joint l fichier joint

 

Pièces jointes

• essai juillet.xlsx

  12.5 KB · Affichages: 32
• essai juillet.xlsx

  12.5 KB · Affichages: 34
• essai juillet.xlsx

  12.5 KB · Affichages: 37

Vote positif 0 Vote négatif