Pas de doublon


'Boucle pour vérifier si il n'y a pas de doublon couleur et matiere

Do while (Feuilleprof.getcellrangebyname("a"& Ligne).string <>"")

'verifie si la couleur n'a pas déjà été selectionnée.
if Coul.text = Feuilleprof.getcellrangebyname("c"& Ligne).String Then
msgbox(" Cette couleur existe déjà ")
end
Endif

'verifie si la MATIERE n'a pas déjà été saisie.
if Mat.text = Feuilleprof.getcellrangebyname("a"& Ligne).String Then
msgbox(" Cette matière existe déjà ")
end
Endif

Ligne = Ligne + 1
loop

Laisser un commentaire