Problème extraction données VBA

Bonjour,
Je suis nouveau sur ce forum et aussi novice en VBA. Je rencontre quelques difficultés concernant des extractions de données. J’ai déjà démarré une macro qui s’appelle Extraction mais ça ne fait pas exactement ce que je veux. Je vous ai mis le fichier exemple en pièce jointe.
La feuille Saisie comme son nom l’indique est un tableau de données alimenté régulièrement. Les données de cette feuille doivent être envoyées vers les feuilles des personnes correspondantes.
Ex : Premier enseignant ABOH, il faut se placer sur la feuille ABOH et envoyer les données à partir de la ligne 15. 2e ligne de la feuille Saisie, toujours ABOH donc il faut extraire les données sur la feuille ABOH en dessous de la précédente.
Autre difficulté, il faut également ajouter à la fin de chaque mois un total des heures (comme sur feuille ABOH). Le problème est que le nombre d’entrée n’est pas identique à chaque fois.
Pour infos, le nombre de feuille dans ce classeur est réellement de 180. Je n’ai laissé que quelques feuilles pour l’exemple.
Je suis preneur de vos lumières car je suis complétement bloqué.
Merci d’avance.

Bonjour,

Il va falloir être plus précis.

Dans quelle colonne se trouve le nom des enseignants?

Si le nombre d'entrer n'est pas le même à chaque fois ça ne pose pas de problème, il te suffit de récupérer la première cellule vide.

Le nom des enseignants se trouve dans la colonne "ENSEIGNANT" de la feuille saisie.

Les données de chaque ligne de la feuille "SAISIE" doivent être extraites sur la feuille portant le nom de l'enseignant correspondant. La partie concernant l'activation de la feuille correspondant au nom de l'enseignant ne me pose pas de problème.

Ce qui me pose problème concerne l'extraction des données. Pour le premier enregistrement à extraire de la feuille "SAISIE" vers l'enseignant correspondant, pas de soucis. Si par contre le 2e enregistrement de la feuille saisie à extraire concerne un autre enseignant, j'ai un décalage d'une ligne sur la feuille de l'enseignant, etc...

Voici le détail de la macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

Sub Extraction()   Dim PremiereLigne As Long, DerniereLigne As Long, CompteurLigne As Long Dim tabTemp Dim lngEnseignantCount As Long Dim FeuilleSaisie As Worksheet Dim NomFeuille As String Dim NomEnseignant As String   Set FeuilleSaisie = ThisWorkbook.Worksheets("Saisie")   PremiereLigne = 2 DerniereLigne = Worksheets("Saisie").Cells(65536, 1).End(xlUp).Row tabTemp = FeuilleSaisie.Range(FeuilleSaisie.Cells(PremiereLigne, 1), FeuilleSaisie.Cells(DerniereLigne, 9))   lngEnseignantCount = 15   For CompteurLigne = 1 To DerniereLigne - 1   NomEnseignant = tabTemp(CompteurLigne, 3)   For N = 1 To Sheets.Count If Sheets(N).Name = NomEnseignant Then Sheets(NomEnseignant).Activate Exit For End If Next N   Do While Not (IsEmpty(ActiveSheet.Cells(lngEnseignantCount, 1))) lngEnseignantCount = lngEnseignantCount + 1 Loop   ActiveSheet.Cells(lngEnseignantCount, 1) = tabTemp(CompteurLigne, 1) ActiveSheet.Cells(lngEnseignantCount, 2) = tabTemp(CompteurLigne, 4) ActiveSheet.Cells(lngEnseignantCount, 5) = tabTemp(CompteurLigne, 5) ActiveSheet.Cells(lngEnseignantCount, 6) = tabTemp(CompteurLigne, 6) ActiveSheet.Cells(lngEnseignantCount, 8) = tabTemp(CompteurLigne, 7)     Next CompteurLigne   End Sub

---

J'espère avoir apporté plus de précisions. Merci en tout cas d'avoir pris le temps de regarder mon problème.

Bonjour,

Je te propose une autre solution:
1- Tu copie dans chacun de tes onglets toutes tes donnés
2- Tu fais un IF qui supprime la ligne si le nom de l'enseignant et différent du nom de l'onglet

Merci pour vos indications, le problème a été résolu.