Discussion :

[thomasdu40]

Bonsoir,

J'ai un fichier où si je complète une des cellules présentes dans les plages I8:I420, H8:H420, Y8:Y420 qu'il m'affiche un Msgbox en disant : Vous avez saisi une information dans la colonne Constat, veuillez compléter la colonne Service!.

J'ai le code suivant mais il ne m'affiche pas le Msgbox et de plus il ne m'indique aucune erreur.

Merci pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "I8:I410" Then
 If Target.Adress = "Q8:Q410" Then
 If Target.Adress = "Y8:Y410" Then
    If UCase(Target.Value) <> "" Then
    MsgBox "Vous avez saisi une information dans la colonne Constat, veuillez compléter la colonne Service!", vbAttention, "Service concerné"
    End If
    End If
    End If
    End If
End Sub

[Theze]

Bonsoir,

Essai ceci pour voir si ça convient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Not Intersect(Target, Union(Range("I8:I410"), Range("Q8:Q410"), Range("Y8:Y410"))) Is Nothing Then
 
        If Target.Value <> "" Then
 
            MsgBox "Vous avez saisi une information dans la colonne Constat, veuillez compléter la colonne Service !", _
                   vbExclamation, _
                   "Service concerné"
 
        End If
 
    End If
 
End Sub

Hervé.

[thomasdu40]

Bonsoir Theze

Oui c'est bon cela fonctionne parfaitement.

Juste une dernière question :
avec ce code est-il possible de rajouter le fait de rendre impossible l'enregistrement si la personne ne renseigne pas le service ?

Merci;

[Theze]

Bonjour,

Désolé du retard.

A mettre dans le module du classeur et à adpater :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
    'en admettant que c'est en A1, à adapter...
    If Range("A1").Value <> "Service" Then
 
        MsgBox "Veuillez compléter la colonne Service !"
        Cancel = True
 
    End If
 
End Sub

Hervé.