Discussion :

[lenul78570]

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

[Didier Gonard]

Bonjour,

vu que tu utilise du vba, il ne serait-il pas plus simple (plus ergonomique, c'est sur ) de construire un USF avec les champs à renseigner et d'en refuser la validation tant que tous ne sont pas renseignés ?

Il y a plein d'exemples sur le forum

cordialement,

Didier

[lenul78570]

Bonsoir,
merci pour ta proposition,mais j'ai jamais fait de USF et je débute en programation.....
Je ne pourrais tenter de faire cet USF qu'à partir de lundi....
Entre temps si tu reviens me lire, peus tu me donner les modif nécessaire dans ma macro....
Te remerciant
Lenul

[Didier Gonard]

bonjour,

trop lourd vu de ma fenêtre, par contre ce que tu veux, c'est qu'à l'appui du bouton la macro ne se lance que si toutes tes cases cibles ne sont pas vides.

tu peux tenter de définir la plage concernée, et dessus de faire un code que tu comprendra en faisant à l'enregistreur de macro sur une plage : Edition, atteindre, cellules, cellules vides. Si le résultat n'est pas rien, c'est que tout n'est pas rempli ?

vois dans ce cours (une bible de chevet) page 32 !

cordialement,

Didier

[lenul78570]

Ok.... je vais voir cela.....
Bon week end
Lenul