XL 2016 Extraction

Seddiki_adz

XLDnaute Impliqué
Bonjour
je veut ex tracter les données depuis planning dans l'onglet extraction
MERCI
 

Pièces jointes

  • EXTRACTION.xlsx
    13.5 KB · Affichages: 21
Solution
Bonjour Seddiki_adz, le forum,

Dans ce fichier (2) j'ai créé tous les jours utiles de l'année 2022 avec cette formule en planning!A4 :
Code:
=SI(MOD(LIGNE()-3;10);NOMPROPRE(TEXTE("2/1/2022"+ENT((LIGNE()-4)/10)+2*ENT((LIGNE()-4)/50);"jjjj jj/mm/aa"))&" @ "&MOD(LIGNE()-4;10)+8&" - "&MOD(LIGNE()-4;10)+9;"")
à tirer vers le bas, le 2/1/2022 est le 1er dimanche de l'année.

Les jours sont copiés avec cette formule en Extraction!C5 à tirer vers la droite :
Code:
=INDEX(planning!$A:$A;COLONNE()+1)
A+

job75

XLDnaute Barbatruc
Bonsoir Seddiki_adz,

Une solution VBA assez simple avec cette macro dans le code de la feuille "Extraction" :
Code:
Private Sub Worksheet_Activate()
Dim tablo, ncol%, i&, j%
tablo = Sheets("planning").[A3:H12] 'à adapter
ncol = UBound(tablo, 2)
Application.ScreenUpdating = False
On Error Resume Next
With [A5].CurrentRegion 'à adapter
    .Offset(1, 2).ClearContents 'RAZ
    For i = 2 To UBound(tablo)
        For j = 2 To ncol
            If tablo(i, j) <> "" Then _
                .Cells(Application.Match(tablo(i, j), .Columns(2), 0), Application.Match(tablo(i, 1), .Rows(1), 0)) = tablo(1, j)
    Next j, i
End With
End Sub
Elle se déclenche automatiquement quand on active la feuille.

A+
 

Pièces jointes

  • EXTRACTION(1).xlsm
    21.4 KB · Affichages: 17

Seddiki_adz

XLDnaute Impliqué
Bonsoir Seddiki_adz,

Une solution VBA assez simple avec cette macro dans le code de la feuille "Extraction" :
Code:
Private Sub Worksheet_Activate()
Dim tablo, ncol%, i&, j%
tablo = Sheets("planning").[A3:H12] 'à adapter
ncol = UBound(tablo, 2)
Application.ScreenUpdating = False
On Error Resume Next
With [A5].CurrentRegion 'à adapter
    .Offset(1, 2).ClearContents 'RAZ
    For i = 2 To UBound(tablo)
        For j = 2 To ncol
            If tablo(i, j) <> "" Then _
                .Cells(Application.Match(tablo(i, j), .Columns(2), 0), Application.Match(tablo(i, 1), .Rows(1), 0)) = tablo(1, j)
    Next j, i
End With
End Sub
Elle se déclenche automatiquement quand on active la feuille.

A+
comment modifier ce code si en ajoute a gauche les jour de semaine
 

job75

XLDnaute Barbatruc
Bonsoir Seddiki_adz,

C'est à vous de faire le travail.

Dans la 1ère feuille complétez la ligne 5 avec les jours et heures que vous voulez, exemple Lundi 8-9.

Pareil dans la 2ème feuille pour la colonne A.

Et dans la macro vous adaptez cette ligne :
VB:
tablo = Sheets("planning").[A3:H12] 'à adapter
en remplaçant H12 par la dernière cellule du tableau de la feuille "planning".

A+
 

Seddiki_adz

XLDnaute Impliqué
Bonsoir Seddiki_adz,

C'est à vous de faire le travail.

Dans la 1ère feuille complétez la ligne 5 avec les jours et heures que vous voulez, exemple Lundi 8-9.

Pareil dans la 2ème feuille pour la colonne A.

Et dans la macro vous adaptez cette ligne :
VB:
tablo = Sheets("planning").[A3:H12] 'à adapter
en remplaçant H12 par la dernière cellule du tableau de la feuille "planning".

A+
 

Pièces jointes

  • EXTRACTION job75.xls
    47.5 KB · Affichages: 1

job75

XLDnaute Barbatruc
Bonjour Seddiki_adz, le forum,

Dans ce fichier (2) j'ai créé tous les jours utiles de l'année 2022 avec cette formule en planning!A4 :
Code:
=SI(MOD(LIGNE()-3;10);NOMPROPRE(TEXTE("2/1/2022"+ENT((LIGNE()-4)/10)+2*ENT((LIGNE()-4)/50);"jjjj jj/mm/aa"))&" @ "&MOD(LIGNE()-4;10)+8&" - "&MOD(LIGNE()-4;10)+9;"")
à tirer vers le bas, le 2/1/2022 est le 1er dimanche de l'année.

Les jours sont copiés avec cette formule en Extraction!C5 à tirer vers la droite :
Code:
=INDEX(planning!$A:$A;COLONNE()+1)
A+
 

Pièces jointes

  • EXTRACTION(2).xlsm
    83.9 KB · Affichages: 4

Seddiki_adz

XLDnaute Impliqué
Bonjour Seddiki_adz, le forum,

Dans ce fichier (2) j'ai créé tous les jours utiles de l'année 2022 avec cette formule en planning!A4 :
Code:
=SI(MOD(LIGNE()-3;10);NOMPROPRE(TEXTE("2/1/2022"+ENT((LIGNE()-4)/10)+2*ENT((LIGNE()-4)/50);"jjjj jj/mm/aa"))&" @ "&MOD(LIGNE()-4;10)+8&" - "&MOD(LIGNE()-4;10)+9;"")
à tirer vers le bas, le 2/1/2022 est le 1er dimanche de l'année.

Les jours sont copiés avec cette formule en Extraction!C5 à tirer vers la droite :
Code:
=INDEX(planning!$A:$A;COLONNE()+1)
A+
Bonjour
Merci
j'ai trouver une code que tu fait avant si en peut utilise si en remplace coposant par le semaine1 et matières par les jours
 

Pièces jointes

  • tableau.xlsm
    67.7 KB · Affichages: 2

Seddiki_adz

XLDnaute Impliqué
Le planning des cours hebdomadaire est fixe mais pas celui des absences des professeurs !!!

Vous renseignerez donc la feuille planning pour tous les jours de l'année.
Merci
pour t'explique mieux
le planning est fixe pour les jours de semaine
dans l'onglet extraction je porte les noms des profs absents il me ramené automatiquement les classes depuis le planning pour chaque jours
avec la liste déroulante en le Transfer vers l'onglet moins (mars)
si possible?
 

Pièces jointes

  • EXTRACTION(28).xls
    53.5 KB · Affichages: 5

Discussions similaires

Statistiques des forums

Discussions
312 894
Messages
2 093 381
Membres
105 713
dernier inscrit
Karimov