Macro Excel

Résolu
Evedll Messages postés 74 Date d'inscription   Statut Membre 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


A voir également:

8 réponses

Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Salut,

Regarde si ça te convient

MsgBox "Vous devez saisir une valeur en D15"
0
Evedll Messages postés 74 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

Voilà

If [D15] = "" Then MsgBox "Vous devez saisir une valeur en D15"
0
Evedll Messages postés 74 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Evedll Messages postés 74 Date d'inscription   Statut Membre Dernière intervention  
 
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
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å
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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
0
Evedll Messages postés 74 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

si tes attentes sont satisfaites, met le statut de la discussion en résolu
0