Executer une Macro si cellule vide

Fermé

Ollerus Messages postés 2 Date d'inscription lundi 5 novembre 2018 Statut Membre Dernière intervention 6 novembre 2018 - 5 nov. 2018 à 15:52
Ollerus Messages postés 2 Date d'inscription lundi 5 novembre 2018 Statut Membre 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.

A voir également:

Executer une Macro si cellule vide
Excel cellule couleur si condition texte - Guide
Comment supprimer une page vide sur word - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Aller à la ligne dans une cellule excel - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17223 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 10 janvier 2025 1 712
5 nov. 2018 à 16:36

Bonjour,

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

Ollerus Messages postés 2 Date d'inscription lundi 5 novembre 2018 Statut Membre 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.

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc

Formaté mais pas de connexion Internet ?

Colorer une cellule quand une autre est non vide

Internat nourriture

Excel si cellule contient texte alors...