Re : Affichage automatique MsgBox et liste déroulante
Bonjour,
Je rencontre un problème avec la macro, en effet j'ai dû rajouter des colonnes à droite et à à gauche. J'ai voulu changer les valeurs des colonnes dans la macro mais cela ne fonctionne pas. Le motif de la réclamation est maintenant en colonne M, je souhaiterais masquer les colonnes N et O. Je ne sais pas ou faire les modifications.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then End 'si plus d'une colonne
If Target.Column = 1 And Target <> "Tournée à découvert" Then
Columns("B:C").EntireColumn.Hidden = True
End If
If Target = "Tournée à découvert" And (Target.Offset(, 1) = "" Or Target.Offset(, 2) = "") Then
Columns("B:C").EntireColumn.Hidden = False
MsgBox "Vous devez renseigner les 2 colonnes de droite"
End If
If Target.Column = 2 And Target <> "" Then
If Target.Offset(, -1) = "Tournée à découvert" And Target.Offset(, 1) <> "" Then
Columns("B:C").EntireColumn.Hidden = True
End If
End If
If Target.Column = 3 And Target <> "" Then
If Target.Offset(, -2) = "Tournée à découvert" And Target.Offset(, -1) <> "" Then
Columns("B:C").EntireColumn.Hidden = True
End If
End If
End Sub
Merci.