OVH Cloud OVH Cloud

interdire une valeur nulle ???

4 réponses
Avatar
kalinaja
Bonjour,

je souhaite pouvoir déclencher un message d'erreur lorqu'un utilisateur ne
saisit pas de données dans une cellule par macro ... (pas de solution
données-validation ...)
du type if activecell="" then msgbox "non !!!" mais je bloque sur
l'évènement déclencheur de la macro.
je pensais utiliser un changement de cellule ... ???
mais :
1.je ne sais pas comment l'exprimer
2. la conditionnelle devrait logiquement s'appliquer sur activecell alors
que c'est la valeur de la cellule précédente que je veux tester ...

Bref, je suis un peu perdu ...
Si quelqu'un connait le chemin ... ;+)

En vous remerciant,

4 réponses

Avatar
AV
Il faut "affiner" ta question...
Quand veux-tu tester la non-saisie d'une cellule ?
Après la saisie d'une certaine cellule ?
A la sélection d'une certtaine cellule ?
...
AV
Avatar
kalinaja
bonjour,

en fait l'idée de départ, c'était de considérer que si sur un cellule donnée
l'utilisateur ne saisit rien il reçoit un message d'avertissement lui disant
vous n'avez rien saisi ..pour moi l'évènement déclencheur cela aurait été le
déplacement de cette cellule à tester vers une nouvelle cellule (click ou
tabulation) (en fait sur la feuille l'uf ne peut saisir que dans 5 cellules
tout le reste étant bloqué ...)

donc on pourrait considérer qu'il s'agit de la sélection de n'importe
laquelle des 4 autres cellules ...

en te remerciant pour ta réponse.


Il faut "affiner" ta question...
Quand veux-tu tester la non-saisie d'une cellule ?
Après la saisie d'une certaine cellule ?
A la sélection d'une certtaine cellule ?
....
AV





Avatar
AV
Pour controler le contenu de A1
Dans le module de la feuille (clic droit sur le nom de l'onglet > visualiser le
code)

Private Sub Worksheet_SelectionChange(ByVal zz As Range)
If IsEmpty(A1) Then
MsgBox "blablabla..."
Application.EnableEvents = False
Range("A1").Select
Application.EnableEvents = True
End If
End Sub

AV
Avatar
kalinaja
Merci beaucoup pour ton aide ça marche vraiment bien ;+)


Pour controler le contenu de A1
Dans le module de la feuille (clic droit sur le nom de l'onglet > visualiser le
code)

Private Sub Worksheet_SelectionChange(ByVal zz As Range)
If IsEmpty(A1) Then
MsgBox "blablabla..."
Application.EnableEvents = False
Range("A1").Select
Application.EnableEvents = True
End If
End Sub

AV