Contrôle de saisie dans des cellules

Fermé
lenul78570 Messages postés 1 Date d'inscription samedi 13 mars 2010 Statut Membre Dernière intervention 13 mars 2010 - 13 mars 2010 à 10:44
Bonjour,

Sur une feuille nommée « Prospects » je veux rendre obligatoire la saisie de certaines cellules avant de pouvoir lancer une macro sur un clic bouton.
Cette obligation doit être présente de la ligne 12 à ligne 2012 pour les colonnes A ; B ; C ; D ; F ; I ; L.
Colonnes « A, B, D, F, L » saisie de texte
Colonne « C » formatée pour recevoir du code postal
Colonne « I » formatée pour recevoir numéro de téléphone
J’ai fait le code ci-dessous qui fonctionne. Exemple si on saisie du texte dans B12, lorsque l'on veut aller en C13, mais que A12 est vide, le message d'erreur s'affiche.
Mais je ne sais pas comment l’étendre aux autres colonnes….
Merci à vous.
Lenul

Private Sub worksheet_change(ByVal target As Range)
If target.Column = 2 And target.Count = 1 Then
If target.Offset(, -1).Value = Empty Then
Application.EnableEvents = False
MsgBox " Veuillez renseigner la cellule de gauche !"
target.Value = Empty
target.Offset(, -1).Select
Application.EnableEvents = True
End If
End If
If target.Column = 1 And target.Count = 1 Then
target.Offset(0, 1).Select
End If
End Sub