XL 2016 Extraction

[Seddiki_adz]

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

 

[job75]

Bonsoir Seddiki_adz,

Une solution VBA assez simple avec cette macro dans le code de la feuille "Extraction" :

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+

 

[Seddiki_adz]

Bonsoir Seddiki_adz,

Une solution VBA assez simple avec cette macro dans le code de la feuille "Extraction" :

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]

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 :

tablo = Sheets("planning").[A3:H12] 'à adapter

en remplaçant H12 par la dernière cellule du tableau de la feuille "planning".

A+

 

[Seddiki_adz]

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 :

tablo = Sheets("planning").[A3:H12] 'à adapter

en remplaçant H12 par la dernière cellule du tableau de la feuille "planning".

A+

 

[job75]

Non pas comme ça, le jour doit être dans la même cellule que l'heure, pour toutes les heures.

 

[Seddiki_adz]

Non pas comme ça, le jour doit être dans la même cellule que l'heure, pour toutes les heures.

bonjour
je te comprend mais pour un moins exemple mars en a 4 semaine donc comment faire dimanche 08-09 en fait 4 fois?

 

[job75]

Si vous voulez traiter plusieurs semaines il faut ajouter le numéro du jour et le mois.

Exemple pour 2022 Dimanche 6 mars 8-9.

Bonne nuit.

 

[Seddiki_adz]

Si vous voulez traiter plusieurs semaines il faut ajouter le numéro du jour et le mois.

Exemple pour 2022 Dimanche 6 mars 8-9.

P

Merci compris mais la page doit très long
je pense a une autre méthode
d'utiliser une liste déroutante es si possible?

 

[job75]

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 :

=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 :

=INDEX(planning!$A:$A;COLONNE()+1)

A+

 

[Seddiki_adz]

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 :

=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 :

=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

 

[job75]

Allons Seddiki_adz ne faites pas n'importe quoi, ce fichier n'est pas un planning !!!

 

[job75]

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.

 

[Seddiki_adz]

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?

 

[job75]

Vous feriez mieux de revoir entièrement votre projet et de créer une nouvelle discussion.

Celle-ci n'a plus de sens, je n'irai pas plus loin.