Probleme comment effacer cellule avec Macro

Bonjour à tous,

Je ne programme pas en VB, je voudrais creer une macro qui test le

contenu d'une cellule et en fonction du résultat efface le contenu d'une autre

cellule.

Plus précisement :

si G38 = FAUX alors effacer B16

Je veux que ma macro soit active en permanence dans mon classeur.

Merci pour votre aide !!!

Bonjour,

essaie ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If UCase(Range("G38")) = "FAUX" Then Range("B16") = 0
End Sub

Pour placer le code, clique droite sur ton onglet puis choisir "visualiser le code". Ensuite coller le code ci-avant dans la fenêtre.

Si ok, n'oublie pas de cocher le V vert à coté du bouton editer pour cloturer le fil.

Amicalement

MERCI j'essaye ça !

-- 10 Aoû 2010, 19:28 --

Bonjour,

Je viens de copier la routine dans la zone code de ma feuille excel

mais rien ne se passe et pourtant la cellule G38 a la valeur 'FAUX' et B16

ne s'efface pas !!!

Des idées ?

Yop

Au dessus de ta feuille de code, tu as deux listes "(Général)" et "(Déclarations)". Il faut que tu sélectionnes "Worksheet" et "Change". Il va t'afficher ça automatiquement:

    Private Sub Worksheet_Change(ByVal Target As Range)

    End Sub

Copies alors ça entre les deux lignes:

If UCase(Range("G38")) = "FAUX" Then Range("B16") = 0

Je ne suis pas certain que ça vienne de ça, mais on ne sait jamais

Sinon vérifie que tui as bien mis la macro dans la bonne feuille (Feuil1 si tu travailles en Feuil1)

Chez moi elle fonctionne parfaitement en tout cas

A te lire

SL

Bonjour,

Ok je corrige cela et te rends compte !

Merci !

Bonjour,

j'ai bien fait comme tu m'a dis, mais rien ne se passe !

1 j'ai intégré la ligne de code dans worksheet/Change

2 j'ai compilé

3 je retourne dans Excel sur la feuille ou l'évenement doit se passer

4 et puis rien! ma cellule B16 est toujours avec un nombre et pourtant ma cellule G37 = FAUX !

Que faire ? Il faut que cela réagisse en fonction de FAUX ou VRAI de G37 !

Je suis largué, Normal je ne connais rien à VB !!!

Si vous avez d'autres idées ? Merci d'avance !

Yop

Peux-tu m'envoyer ton fichier stp?

EDIT:

 Private Sub Worksheet_Change(ByVal Target As Range)
    If UCase(Range("G38")) = "FAUX" Then Range("B16") = 0
    End Sub

Essaye de mettre FAUX en G38 pour voir, car tu dis G37 mais la macro cherche FAUX en G38

Soit tu le mets en G38, soit tu modifies et tu remplaces G38 par G37 dans le code

Sans te vexer, les feuilles Excel ont été développées pour une société et

les données sont sensibles.

peux tu me creer un fichier excel tout simple avec cette manip ! et me le transmettre.

Merci par avance !

Voilou

Bonjour,

MERCI pour ton fichier, j'ai maintenant compris comment cela fonctionne !

je te renvoi le fichier pour te montrer ce que je voulais faire.

Peux tu me conseiller un cours pour apprendre à programmer en language VB sous EXCEL (sous forme PDF)

car je suis trop limité dans mes applications sous excel.

j'ai besoin de creer des macros pour des test multi conditionnelles.

A+

Vince.