'---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
Ce serait vraiment stupide !!!mais possible en cas on a des doublent le fichier sera supprimé ?.
Faut-il comprendre ceci :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!
???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 !
merci marcel32Faut-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 ?
Je veux dire une MFC plutôt que des messages d'alerte.Mais une simple MFC sur la feuille du planning général ne serait-elle pas suffisante ?
Je ne vois pas le rapport avec la question que je posais.
si c'est une bon solution pour quoi pasJe ne vois pas le rapport avec la question que je posais.
Je veux dire une MFC plutôt que des messages d'alerte.
'---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