Msgbox

[dhiouf]

Bonjour à tous
J’ai créer une appli pour édition des emplois du temps universitaire , mon problème que je n’arrive pas a trouver la procédure Private Sub Worksheet_Change(ByVal Target As Excel.Range) pour afficher un msgbox si la matière anatomie est saisie plus qu’une seule fois par groupe et par semaine.
Exemple :
Jour matière groupe
lundi anatomie g1
mardi anatomie g1
affichage msgbox « la matière et le groupe existe déjà »
pour être un peu clair les matière et les groupes se trouve dans des listes de validation
pour lundi les matière (C10 :C61) les groupes (F10 :F61)
pour mardi les matières (I10 :I61) les groupes (L10 :L61)
etc.…
Merci d’avance

 

[BERRACHED said]

Re : Msgbox

Salut,dhiouf

il nous faut Fichier, pour voir dans quel évenement placer cette Msg.

Cordialement

 

[dhiouf]

Re : Msgbox

Bonjour BERRACHED said
Voir fichier joint

 

[job75]

Re : Msgbox

Bonjour Dhiouf, Said,

Vous avez écrit :

==> pour mardi les matières (I10 :I61)

Dans votre fichier c'est en colonne G, il y a erreur non ?

A+

 

[dhiouf]

Re : Msgbox

Bonjour job75
excusé moi, le fichier joint c'est un exemple

 

[BERRACHED said]

Re : Msgbox

Salut,Dhiouf,Job75

voici une macro mais il faut simplement nommé ton champ de saisie "MonChamp"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim témoin
 If Not Intersect(Range("MonChamp"), Target) Is Nothing And Target.Count = 1 Then
   témoin = True
   For Each c In Range("MonChamp")
    If c.Value = Target.Value And c.Row <> Target.Row And c.Value <> Empty Then
       réponse = MsgBox("Cette Matiére est en double :" & c.Address & Chr$(10) & _
                 "Voulez-vous la garder ?", vbYesNo + vbInformation, "DETECTION DOUBLON")
            If réponse = vbNo Then
              Target.Value = Empty
              témoin = False
              Exit Sub
            End If
      Exit Sub
    End If
   Next c
   témoin = False
 End If
End Sub

Cordialement

 

[dhiouf]

Re : Msgbox

Re bonjour
pour que ma question précédente être clair, je veux afficher un msgbox si la saisie en double de la matière et le groupe dans les cellules de la feuille emploi du temps(C10:AB61)
Merci d'avance

 

[dhiouf]

Re : Msgbox

Re BERRACHED said
Merci pour ta réponse,ton code avec la matière ça marche, mais avec le groupe non, moi je veux avec la matière et le groupe en même temps.

 

[BERRACHED said]

Re : Msgbox

Ré,

voici un autre code sans nommé les champ il marche pour le groupe et matiére

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim temoin
temoin = False
If Target.Value = "" Then Exit Sub
For Each Cell In Intersect(UsedRange, Cells)
If Cell.Address <> Target.Address And Cell.Value = Target.Value Then
MsgBox "cette inscription existe déjà"
Target.Value = ""
Target.Select
Exit For
End If
Next Cell
Target.Value = ""
temoin = True
End Sub

Cordialement

 

[dhiouf]

Re : Msgbox

Excusé moi, je pose ma question d’une autre manière, est-il possible de dire à excel ne prend en compte la matière anatomie qu’une seule fois pendant la création de l’emploi du temps de la semaine 01/12/2008 au 06/12/2008 par exemple.

 

[dhiouf]

Re : Msgbox

Rè BERRACHED said
Merci beaucoup pour le code ça marche bien, mais est ce que en peux afficher le msgbox aprés la saisie, parce que avec ton code il faut réselectionner la cellule pour voir le msgbox

 

[dhiouf]

Re : Msgbox

Rè
excusé moi BERRACHED said j'ai fait une erreur ton code cherche tous les doublons c'est pas ça que je veux, mon problème il ne faut pas saisie la matière anatomie en double pendant la création de l'emploi du temps de lundi à samedi.
la création de l'emploi du temps est par semaine, j'ouvre mon classeur et je saisie les matières, les groupes, les salles etc..pour tous les jours de la semaine.

 

[dhiouf]

Re : Msgbox

Rè
est-il possible de colorer la matière anatomie dans la liste de validation si elle est saisie(couleur rouge dans liste de validation) dans l'une de mes cellules pour savoir quelle est utiliser.

 

[dhiouf]

Re : Msgbox

Bonjour à tous
j'ai une application sous excel pour créer des emplois du temps, mon problème que je n'arrive pas a afficher une msgbox
si la matière "Anatomie" saisie en double dans les cellules (C10:AB61) avez-vous une idée.
Merci d'avance.
NB: mon problème avec la matière "Anatomie" pour les autres matières on peut les saisies en double.

 

[dhiouf]

Re : Msgbox

Re bonjour
En fin j'ai trouver la solution avec Données>Validation>personnalisé
la formule :
=NB.SI($C$10:$AB$61;"Anatomie")=1 pour éviter carrément la saisie en double.
Merci à tous.