Menu

Executer une Macro si cellule vide

Messages postés
2
Date d'inscription
lundi 5 novembre 2018
Dernière intervention
6 novembre 2018
- 5 nov. 2018 à 15:52 - Dernière réponse :
Messages postés
2
Date d'inscription
lundi 5 novembre 2018
Dernière intervention
6 novembre 2018
- 6 nov. 2018 à 11:55
Bonjour,

Je viens vers vous pour m'aider à faire fonctionner une macro vba.

Je tente d'activer une commande par le biais d'un bouton contrôle formulaire (impossible d'utiliser activex car je suis sur mon lieu de travail et le service informatique a verrouillé pas mal de choses).

Je cherche donc en cliquant sur le bouton à générer un chiffre aléatoire compris entre 1 et 10 en cellule a1.
Pour cela j'utilise la formule suivante :

Sub bouton1_clic()
Randomize
Range ("a1"). Value = int (10*rnd)+1
End sub

Ce qui fonctionne, maintenant j'aimerais que le nombre générer aléatoirement ne le soit que si a1 est vide sinon j'aimerais que rien ne se passe.

Merci par avance de vos réponses et désolé pour les fautes.

Afficher la suite 

Votre réponse

2 réponses

Messages postés
13722
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
17 novembre 2018
- 5 nov. 2018 à 16:36
0
Merci
Bonjour,

Sub bouton1_clic()
    If Range("A1") = "" Then
        Randomize
        Range("a1").Value = Int(10 * Rnd) + 1
    End If
End Sub
Messages postés
2
Date d'inscription
lundi 5 novembre 2018
Dernière intervention
6 novembre 2018
- 6 nov. 2018 à 11:55
Désolé de revenir si tard beaucoup de travail aujourd'hui.

Merci pour la rapidité de ta réponse et cela fonctionne très bien.

J'avais mis à peu près la même chose mais <> au lieu de = du coup cela faisait l'effet inverse.
Commenter la réponse de f894009