Question de débutant en VB

Question de débutant en VB - VB/VBA/VBS - Programmation

Marsh Posté le 26-08-2006 à 16:20:36    

Voila je voudrai juste faire un petit essai mais même celui je n'y arrive pas
 
Dans la case B19 d'excel j'ai ecris "maison" et je voudrais afficher dans la cellule situé en D19 le texte "OK" si quelque chose est ecris en B19 et "non Ok" si rien n'est écris.
 
Pourquoi cela n'écrit il rien?
 
Sub test()
     
     
    If Cells(19, 2) <> "" Then
       Cells(19, 4) = "OK"
         
    Else: Cells(19,4) = "Non OK"
     
    End If  
 
End Sub

Reply

Marsh Posté le 26-08-2006 à 16:20:36   

Reply

Marsh Posté le 26-08-2006 à 17:21:15    

Bonjour,  
est-ce que tu la lances ta macro?
Cordialement

Reply

Marsh Posté le 26-08-2006 à 18:55:19    

bonjour,
pourtant cette macro fonctionne comme prévu.
Si tu fais outils / macro / macro / Test / exécuter tu auras un message en D19
Tu peux aussi la lancer depuis VBA avec F5
Après la question est de savoir ou tu as mis cette macro.
Si tu as créé un mouveau module, (Module1) Si elle est dans ce nouveau module, dans la boite de dialogue Macro tu dois voir test.
Sinon si tu as mis ta macro dans un module de feuille, dans la boite de dialogue du dois voir Feuil1!Macro
Quand tu vas dans outils / macro / macro / Test : Est-ce que tu la vois ?
A+

Reply

Marsh Posté le 28-08-2006 à 13:46:10    

galopin01 a écrit :

bonjour,
pourtant cette macro fonctionne comme prévu.
Si tu fais outils / macro / macro / Test / exécuter tu auras un message en D19
Tu peux aussi la lancer depuis VBA avec F5
Après la question est de savoir ou tu as mis cette macro.
Si tu as créé un mouveau module, (Module1) Si elle est dans ce nouveau module, dans la boite de dialogue Macro tu dois voir test.
Sinon si tu as mis ta macro dans un module de feuille, dans la boite de dialogue du dois voir Feuil1!Macro
Quand tu vas dans outils / macro / macro / Test : Est-ce que tu la vois ?
A+


 
 
Ouais je sais pas, pourquoi ca ne marchais pas mais j'ai copier ce code sur un autre fichier excel et c'est passé.
Merci en tout cas

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed