Macro Excel
Résolu
Evedll
Messages postés
79
Statut
Membre
-
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je dois mettre une macro qui affiche une fenêtre d'erreur indiquant qu'il faut mettre un chiffre si une cellule précise de la feuille de calcul (D15) n'est pas renseignée.
Je remercie d'avance celles ou ceux qui voudront bien m'aider à saisir cette ligne d'écriture.
Eve
Je dois mettre une macro qui affiche une fenêtre d'erreur indiquant qu'il faut mettre un chiffre si une cellule précise de la feuille de calcul (D15) n'est pas renseignée.
Je remercie d'avance celles ou ceux qui voudront bien m'aider à saisir cette ligne d'écriture.
Eve
8 réponses
-
Salut,
Regarde si ça te convient
MsgBox "Vous devez saisir une valeur en D15" -
Bonsoir,
Je te remercie de ta réponse. Cependant, j'ai besoin que le message ne s'affiche que si cette cellule est vide. S'il y a déjà un chiffre, le message ne doit pas apparaitre.
Merci si tu peux me répondre
Eve -
Re,
Voilà
If [D15] = "" Then MsgBox "Vous devez saisir une valeur en D15"
-
Merci beaucoup
ça marche.
Je me rends compte maintenant que malgré tout, le reste de ma macro continue de s'exécuter au lieu de s'arreter pour que l'on puisse saisir la valeur en D15.
Je n'avais pensé à ça.
Super sympa de m'aider-
Je dois trouver 2 solutions :
soit saisir dans une fenetre de message la valeur qui se placera en D15 et la macro n'est pas se pourvuit ;
soir arrêter la macro, saisir la valeur en D15 et reprendre ensuite l'exécution de la macro.
Si je peux encore solliciter ton aide, je te remercie beaucoup si ce n'est pas trop abuser.
Bonne soirée
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Salut le forum
Pour n'autoriser qu'une saisie numérique dans la cellule.
If Not IsNumeric([D15]) Or IsEmpty([D15]) _ Then MsgBox "Vous devez saisir une valeur numérique en D15"
Mytå -
Re
si D15 est vide, tu as le message, la cellule D15 est sélectionnée pour une saisie, le code s'arrête sinon le code continu
If [D15] = "" Then
MsgBox "Vous devez saisir une valeur en D15"
[D15].Select
Exit Sub
Else
'place ici ce que doit faire la macro si D15 est renseignée
End If -
Alors là, c'est super
C'est exactement ce que je voulais.
je me dépatouille un peu mais parfois il faut se faire aider.
Merci pour tes renseignements
Eve -
Re,
si tes attentes sont satisfaites, met le statut de la discussion en résolu
