Message si cellule pas remplie

[petitclaude]

Bonjour le forum,

J’ai actuellement une macro que se lance à partir d’un élément de WordArt dans une 1° feuille.
Dans ma 2° feuille j’ai une cellule qui, si elle est remplie est le déclic de ma macro.
Ce que j’aimerais c’est que, tant que cette cellule n’est pas remplie, ma macro ne se lance pas.
Et en appuyant sur mon bouton de ma macro un message apparaîtrait, exemple « La cellule A1 n’est pas remplie » ou autre chose.
et si bien sur ma cellule est remplie ma macro fonctionnerais normalement.

Je vous en remercie d’avance
Et bonne soirée à tous.

PetitClaude

 

[coyote]

Sub tamacro()

If IsEmpty(Cells(1,1))=false then

*** les autres instructions de ta macro***

End If

End sub

 

[coyote]

OUPS il manque le message d'alerte

Sub tamacro()

If IsEmpty(Cells(1,1))=false then

*** les autres instructions de ta macro***

Else msgbox ("La cellule A1 n'est pas renseignée")

End If

End sub

 

[petitclaude]

Bonjour le Coyote

Merci c’est exactement ce que je voulais,
Mais malheureusement j’ai un problème.

Ma cellule A1 est un total de chiffre (quand il y à rien à additionner elle marque 0.)
donc j’ai fait la formule ESTVIDE mais ma macro s’est lancé quand même.

Il faudrait que je laisse le chiffre 0, et dans l’aide que tu m’apporte
dire que si ma cellule A1 est égale à 0, ma macro ne se lance pas
et si au contraire est supérieur à 0 ma macro démarre.

Ou bien sur si tu à une meilleure solution je suis preneur.

La cellule A1 est un exemple, la vrai est en : Feuil2 J53

Je te remercie d’avance

A++ Petitclaude

 

[coyote]

Sub tamacro()

If Cells(1,1)>0 then

*** les autres instructions de ta macro***

Else msgbox ("La cellule A1 est <= 0")

End If

End sub

Tu as mal formulé ta demande précedemment, une cellule vide est exempt de valeur et de formule.

Si A1=0........ A1 n'est pas vide
Si A1 contient une formule.........A1 n'est pas vide quel que soit la valeur restitué

 

[coyote]

Adapte la fonction Cell(lig,col) par rapport à la cellule que tu désires tester.

Cellule J52.... soit colonne J ligne 52 .....soit 10ème colonne 52ème ligne...... soit cells(52,10)

Attention la macro est à activer dans la feuille de la cellule à tester (soit dans ton exemple feuil2)

ou alors si la macro est lancé d'une autre feuille compléter la fonction cell par Worksheets("Feuil2").cells(52,10).value

 

[petitclaude]

Bonjour

Merci Coyote de ton aide, tout marche correctement maintenant.

Je suis désolé de mettre mal expliquer la 1° fois,mais c'est pas toujours
facile.

A++ Petitclaude