XL 2013 Copier coller VBA

[SAMESS]

Bonjour Forum,

Je recherche un code vba qui me permette d'extraire le planning de chaque prof dans une nouvelle feuille avec son nom (voir exemple)
Merci d'avance

 

[job75]

mais possible en cas on a des doublent le fichier sera supprimé ?.

Ce serait vraiment stupide !!!

 

[TooFatBoy]

si la colonne H de chaque prof contient des doublent,le fichier de la prof sera supprimé et un msg d’erreur qui contient"il faut modifié le planning de la prof "le nom de prof")
si possible!

Faut-il comprendre ceci :

Si la colonne H dans la feuille d'un prof contient des doubles, la feuille du prof sera supprimée et un message d’erreur contenant "Il faut modifier le planning du prof "NOM-DU-PROF"" s'affichera, si possible !

???

Si oui, que représente la colonne H (pour être sûr) ?
Est-ce la séance ???

Et quand considères-tu qu'il y a doublon ?
Faut-il tenir compte de la colonne H, et aussi de la date ou de la fonction du prof ?

 

[SAMESS]

Faut-il comprendre ceci :

???

Si oui, que représente la colonne H (pour être sûr) ?
Est-ce la séance ???

Et quand considères-tu qu'il y a doublon ?
Faut-il tenir compte de la colonne H, et aussi de la date ou de la fonction du prof ?

merci marcel32
en prend en considération la date (séance) et le fonction de prof
c a d en peut pas planifier une planning d'un prof qu'a la meme séance la meme jour et la meme fonction

 

[TooFatBoy]

Merci. Voilà qui est plus clair pour moi.

Mais une simple MFC sur la feuille du planning général ne serait-elle pas suffisante ?

 

[TooFatBoy]

Je ne vois pas le rapport avec la question que je posais. 🤔

Mais une simple MFC sur la feuille du planning général ne serait-elle pas suffisante ?

Je veux dire une MFC plutôt que des messages d'alerte.

 

[SAMESS]

Je ne vois pas le rapport avec la question que je posais. 🤔

Je ne vois pas le rapport avec la question que je posais. 🤔



Je veux dire une MFC plutôt que des messages d'alerte.

si c'est une bon solution pour quoi pas

 

[TooFatBoy]

Ok. Merci

@+

 

[job75]

Bonjour Marcel32 et merci d'être intervenu.

Maintenant les choses sont plus claires, pour les doublons il y a la date mais aussi la fonction occupée.

Voyez ce fichier (3) et le complément de code :

'---vérification des doublons---
Set d = CreateObject("Scripting.Dictionary")
Set P = F.[B2].CurrentRegion 'à adapter
For i = 2 To P.Rows.Count
    For j = 4 To 6
        x = LCase(P(i, j) & P(i, 7) & P(1, j))
        If d.exists(x) Then MsgBox "Doublon sur '" & P(i, j) & "' pour le N° " & d(x) & " et le N° " & P(i, 1) & " !", 48: Exit Sub
        d(x) = P(i, 1) 'mémorise le N°
Next j, i

Aucune feuille ne sera créée tant qu'il restera un doublon.

A+