Probleme avec une Worksheet Résolu

Question

Bonjour à tous,
J’utilise la procédure Worksheet_change suivante :

Private Sub Worksheet_Change(ByVal sel As Range)
'Surveille si une saisie sur la quatrième colonne a lieu.
If sel.Column = 4 Then
    Dim cel As Range, rien As Boolean
    rien = False
    For Each cel In sel.Cells
        If cel.Value = "" Then
        ActiveSheet.Unprotect ("d1500359a")
            cel.Offset(0, 11).Value = ""
        ActiveSheet.Protect ("d1500359a")
            rien = True
        End If
    Next cel
    If rien Then Exit Sub
    If sel.Count > 1 Then Exit Sub
    
    If sel.Value = False Then sel.Value = "": Exit Sub
    If Application.WorksheetFunction.CountIf(Range("D:D"), sel.Value) > [maxi].Value Then
            MsgBox ("Le nombre de photos autorisé pour cet auteur" & vbCr & "est déjà atteint."), vbCritical, "Fédération Photographique de France"
            sel.Value = ""
            sel.Select
            Exit Sub
    End If
'Surveille si une cellule de la colonne 14 contient "Numero d'ahérent inconnu".
    If Cells(sel.Row, 14).Value = "Numéro d'adhérent inconnu…" Then
        MsgBox ("Cet auteur n'est pas adhérent de la F.P.F!" & vbCr & "Il ne peut donc pas participer à cette compétition!"), vbCritical, "Fédération Photographique de France"
            sel.Value = ""
            sel.Select
            Exit Sub

****//**** Insérer ici contrôle supplémentaire

        End If
    End If
End Sub
Je souhaiterais effectuer un contrôle supplémentaire en fonction du contenu d’une autre cellule située dans la colonne 20, comme je le fais déjà sur les cellules de la colonne 14. J’ai donc copié/coller et modifié ce qui suit :
'Surveille si une cellule de la colonne 20 contient "0".
    If Cells(sel.Row, 20).Value = "0" Then
        MsgBox ("Cet auteur n'est pas à jour de sa cotisation!" & vbCr & "Il ne peut donc pas participer à cette compétition!"), vbCritical, "Fédération Photographique de France"
            sel.Value = ""
            sel.Select
            Exit Sub
            
            End If
Mais ça ne marche pas, pourquoi ?
Merci d’avance pour votre aide.
Cordialement
Mistral

Gord21 · Answer

Bonjour
Je pense qu'il y a une soucis dans les débuts et fin de boucles If
Peut-être :

Exit Sub 
End If 

****//**** Insérer ici contrôle supplémentaire 

End If 

au lieu de 

Exit Sub 

****//**** Insérer ici contrôle supplémentaire 

End If 
End If 

Quel est ton message d'erreur ?

eriiic · Answer

Bonjour,

If Cells(sel.Row, 20).Value = 0 
pas ="0" qui est une chaine

Mistral_13200 · Answer

Avec ou sans les "" c'est pareil, j'avais déjà fait l'essais.
Je ne comprends vraiment pas pourquoi ça marche avec la colonne 14 et pas avec le colonne20.

eriiic · Answer

Avec ou sans les "" c'est pareil
Non, une valeur numérique ou un string ce n'est pas pareil, tu dois savoir ce que tu as dans ta cellule et mettre ce qu'il faut.
Sinon met un point d'arret sur ton test (clic dans la marge et la ligne devient marron) et regarde les valeurs pour voir ce qui cloche

Gord21 · Answer

Ne mets pas de Exit Sub juste avant ton test si tu veux que ta macro le fasse.

Mistral_13200 · Answer

Rien a voir!
Exit Sub est là pour sortir de la macro en cas d'erreur et uniquement en cas d'erreur.

Moi je ne passe jamais dans la boucle pour la collone 20. Je ne détecte jamais la valeur 0 dans la colonne 20 sur la ligne active.
Le principe :
Je rentre un N° dans un cellule de la colonne 4 cette entrée est détectée. Si c'est un N° inconnu je le détecte dans la colonne 14. Si c'est un adhérent qui n'est pas jour je le détetcte dans la colonne 20.
Mais mon problème c'est que je ne vois jamais le 0.

eriiic · Answer

Gord a raison, il y a un pb dans la structure et tu fais le exit sub
EDIT:
le end sub avant le if plutôt

voilà ton code indenté :
Private Sub Worksheet_Change(ByVal sel As Range)
'Surveille si une saisie sur la quatrième colonne a lieu.
    If sel.Column = 4 Then
        Dim cel As Range, rien As Boolean
        rien = False
        For Each cel In sel.Cells
            If cel.Value = "" Then
                ActiveSheet.Unprotect ("d1500359a")
                cel.Offset(0, 11).Value = ""
                ActiveSheet.Protect ("d1500359a")
                rien = True
            End If
        Next cel
        If rien Then Exit Sub
        If sel.Count > 1 Then Exit Sub

        If sel.Value = False Then sel.Value = "": Exit Sub
        If Application.WorksheetFunction.CountIf(Range("D:D"), sel.Value) > [maxi].Value Then
            MsgBox ("Le nombre de photos autorisé pour cet auteur" & vbCr & "est déjà atteint."), vbCritical, "Fédération Photographique de France"
            sel.Value = ""
            sel.Select
            Exit Sub
        End If
        'Surveille si une cellule de la colonne 14 contient "Numero d'ahérent inconnu".
        If Cells(sel.Row, 14).Value = "Numéro d'adhérent inconnu…" Then
            MsgBox ("Cet auteur n'est pas adhérent de la F.P.F!" & vbCr & "Il ne peut donc pas participer à cette compétition!"), vbCritical, "Fédération Photographique de France"
            sel.Value = ""
            sel.Select
            Exit Sub

            ****//**** Insérer ici contrôle supplémentaire

        End If
    End If
End Sub
Je souhaiterais effectuer un contrôle supplémentaire en fonction du contenu d’une autre cellule située dans la colonne 20, comme je le fais déjà sur les cellules de la colonne 14. J’ai donc copié/coller et modifié ce qui suit :
'Surveille si une cellule de la colonne 20 contient "0".
If Cells(sel.Row, 20).Value = "0" Then
    MsgBox ("Cet auteur n'est pas à jour de sa cotisation!" & vbCr & "Il ne peut donc pas participer à cette compétition!"), vbCritical, "Fédération Photographique de France"
    sel.Value = ""
    sel.Select
    Exit Sub

End If
End Sub

Remplace l'avant dernier end sub par exit sub

Gord21 · Answer

C'est peut-être plus clair comme ça :

Private Sub Worksheet_Change(ByVal sel As Range) 
'Surveille si une saisie sur la quatrième colonne a lieu. 
If sel.Column = 4 Then 
    Dim cel As Range, rien As Boolean 
    rien = False 
    For Each cel In sel.Cells 
        If cel.Value = "" Then 
            ActiveSheet.Unprotect ("d1500359a") 
            cel.Offset(0, 11).Value = "" 
            ActiveSheet.Protect ("d1500359a") 
            rien = True 
        End If 
    Next cel 
    If rien Then Exit Sub 
    If sel.Count > 1 Then Exit Sub 
    If sel.Value = False Then sel.Value = "": Exit Sub 
    If Application.WorksheetFunction.CountIf(Range("D:D"), sel.Value) > [maxi].Value Then 
        MsgBox ("Le nombre de photos autorisé pour cet auteur" & vbCr & "est déjà atteint."), vbCritical, "Fédération Photographique de France" 
        sel.Value = "" 
        sel.Select 
        Exit Sub 
    End If 
    'Surveille si une cellule de la colonne 14 contient "Numero d'ahérent inconnu". 
    If Cells(sel.Row, 14).Value = "Numéro d'adhérent inconnu…" Then 
    MsgBox ("Cet auteur n'est pas adhérent de la F.P.F!" & vbCr & "Il ne peut donc pas participer à cette compétition!"), vbCritical, "Fédération Photographique de France" 
        sel.Value = "" 
        sel.Select 
        Exit Sub 
        If Cells(sel.Row, 20).Value = "0" Then 
            MsgBox ("Cet auteur n'est pas à jour de sa cotisation!" & vbCr & "Il ne peut donc pas participer à cette compétition!"), vbCritical, "Fédération Photographique de France" 
            sel.Value = "" 
            sel.Select 
            Exit Sub 
        End If 
    End If 
End If
 
End Sub

eriiic · Answer

Bonjour
Tu devrais montrer où tu en es après avoir repris la structure.
Le mieux est de déposer un fichier exemple sur cijoint.fr et de coller ici le lien fourni.
eric

eriiic · Answer

Bonsoir,

Déjà, rien à voir avec ton pb mais qcq chose m'échappe :
        For Each cel In sel.Cells
            If cel.Value = "" Then
                ActiveSheet.Unprotect ("123")
                cel.Offset(0, 11).Value = ""
                ActiveSheet.Protect ("123")
                rien = True
            End If
        Next cel
Cel étant la cellule où a eu lieu la saisie tu ne boucles que sur cette cellule... Ca n'a d'interet que si tu as prévu que l'utilisateur sélectionne plusieurs cellules à partir de D (?)
(fin de la parenthèse)

Pour moi c'est bien un problème de structure
Actuellement tu ne testes Cells(sel.Row, 20).Value = "0" que si Cells(sel.Row, 14).Value = "Numéro d'adhérent inconnu…" est vérifié.
Si tu veux l'inverse(?) mets :
        If Cells(sel.Row, 14).Value = "Numéro d'adhérent inconnu…" Then
            MsgBox ("Cette personne n'est pas adhérente de la F.F.P!" & vbCr & "Il ne peut donc pas participer!"), vbCritical, "F.F.P"
            sel.Value = ""
            sel.Select
            Exit Sub
        ElseIf Cells(sel.Row, 20).Value = "0" Then
            MsgBox ("Cette personne n'est pas à jour de sa cotisation!" & vbCr & "Elle ne peut donc pas participer!"), vbCritical, "F.F.P"
            sel.Value = ""
            sel.Select
            Exit Sub
        End If
(et un endif à supprimer)

Ou si tu veux faire les 2 tests systématiquent met un endif au premier test (après le exit sub) de façon à démarrer un if qui ne soit pas interne au premier.
Si ce n'est pas ça décrit la logique que tu attends

eric

eriiic · Answer

Re,

Le bout qui ne sert à rien :
Private Sub Worksheet_Change(ByVal sel As Range) 
'Surveille si une saisie sur la quatrième colonne a lieu. 
If sel.Column = 4 Then 
    ...
    For Each cel In sel.Cells 
        ...
        End If 
   Next cel

Le paramètre 'sel' passé dans worksheet_change est LA cellule ayant changé.
Ensuite tu fais : For Each cel In sel.Cells 
Pour toutes les cellules de 'sel' faire....  Mais il n'y en a qu'une : celle dont le contenu a changé..
Ton for each ne sert à rien

eric

Probleme avec une Worksheet

11 réponses

Discussions similaires

Newsletters