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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 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
Partager