Comment tester le contenu d'une cellule

[langa68]

Bonjour,

J'aimerais faire contrôler la valeur de la cellule "A1", si elle est vide afficher une MsgBox, puis pouvoir remplir la dite cellule.

J'ai fait une petite macro, mai je n'arrive pas à trouver la suite.

Sub Verification_de_A1()
If Range("A1") = "" Then Range("A1").Interior.Color = vbRed
MsgBox " Remplir la cellule rouge "
End Sub

Merci pour votre aide

langa68

 

[CHALET53]

Re : Comment tester le contenu d'une cellule

Bonjour,

Ce serait quoi la suite ?

 

[langa68]

Re : Comment tester le contenu d'une cellule

salut Chalet 53

Tu m'a déjà aidé à propos de la "Gestion du temps de travail" et mon projet à beaucoup avancé.
Voici ce que j'aimerais faire:

Si la cellule "A1" est vide, il devra s'afficher un message. Ensuite je devrais pouvoir remplir cette cellule.
Le message devra s'afficher tant que la cellule sera vide.
Si en plus la cellule vide se colorie de rouge ce serait le top.

Merci pour ton aide.

langa68

 

[CHALET53]

Re : Comment tester le contenu d'une cellule

Re,

Pas expert dans le domaine

Un essai bricolé : en espérant la venue d'un spécialiste

a+

 

[langa68]

Re : Comment tester le contenu d'une cellule

Merci pour ta réponse, mais d'après excel le fichier est corrompu


A+

langa68

 

[CHALET53]

Re : Comment tester le contenu d'une cellule

Une version en xls

 

[langa68]

Re : Comment tester le contenu d'une cellule

Dommage toujours la même réponse de la part d'Excel

 

[CHALET53]

Re : Comment tester le contenu d'une cellule

Ultime tentative

 

[langa68]

Re : Comment tester le contenu d'une cellule

Merci c'est ce qu'il me fallait.
Il me faut tout juste allonger le temps.
J'ai essayé le fichier avec Excel 2003 et ça marche.

 

[CHALET53]

Re : Comment tester le contenu d'une cellule

Re,

Il y a deux endroits où changer le temps :

Dans ThisWorkbook
Dans Module 1

a+

 

[langa68]

Re : Comment tester le contenu d'une cellule

Merci pour ton aide