faire apparaître "INTERDIT"

[Nadège]

Bonjour,

j'ai un pb sur une macro.

Voilà, je voudrais faire apparaître le mot "INTERDIT" dans une cellule (C25) si j'ai 1 ou plus dans la cellule C8.

J'ai essayé ceci mais ça ne marche pas:

Private Sub PasDeDolbyPourAS_ENC()
If Worsheet(1).Cells(8, 3).Value >= 1 Then
Worksheets(1).Cells(25, 3).Value = INTERDIT
Else
Worksheets(1).Cells(25, 3).Value = ""
End IF
End Sub

Merci de votre aide.
Nadège

 

[Arnaud]

salut,

pour fais ça tu n'est pas obligé de faire une macro.
il te suffit d'écrire

=SI(C8>=1;"INTERDIT";"")

dans ta cellule C25

 

[ThierryR]

Bonjour,

Utilise, si cela te conviens, plutot une formule en c25


=si(C8>=1;"INTERDIT";"")

avec une mise en forme appropriée.

ThierryR

 

[ThierryR]

En voila des réponses synchronisés )

 

[Arnaud]

sinon pour la macro, cela fonctionnera mieux comme ça :

If Worksheets(1).Cells(8, 3).Value >= 1 Then
Worksheets(1).Cells(25, 3).Value = "INTERDIT"
Else
Worksheets(1).Cells(25, 3).Value = ""
End If

 

[Pascal76]

Salut

Sinon si tu veux passer à tout prix par une macro il faut ecrire INTERDIT en tre guillemets sinon c'est une variable

Worksheets(1).Cells(25, 3).Value = "INTERDIT"

Bon courage

Pascal

 

[Nadège]

J'ai essayé mais ça ne marche pas,
peut-être faut-il la mettre dans une fonction spécifique?
peut-être un pb de cellule ou de format?


par contre je ne peut pas écrire dans cette cellule C25 c'est une cellule de saisie pour des clients.

 

[andré]

Salut à vous,

Je suis peut-être simpliste, mais j'opterais pour un message d'erreur par la validation.

Menu Données / Validation / Autoriser : Personnalisé / Formule : =la cellule<1 / Alerte d'erreur / Message d'erreur : INTERDIT

Ândré.

 

[julien]

en c25 Tapez: =si(c8>=1;"INTERDIT";"")

pas besoin de macro.
sion utilisez la macro "BsBox"

 

[julien]

Re:

en C 25

=si(C8>=1;"INTERDIT;"")
Pas besoin de macro, sinon macro "MsBox"