Executer une Macro si cellule vide

Question

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. 

Configuration: Android / Chrome 70.0.3538.80

f894009 · Answer

Bonjour,

Sub bouton1_clic()
    If Range("A1") = "" Then
        Randomize
        Range("a1").Value = Int(10 * Rnd) + 1
    End If
End Sub

Executer une Macro si cellule vide

1 réponse

Discussions similaires

Newsletters