Comment ecrire en VBA ?

salut tout le monde,

Comment ecrire en vba ?

Exemple :

Si la cellule B4 est seléctionnée ,le contenue de B3 est éffacé.

Merci

Bonjour,

avec ce code :

If Not Application.Intersect(ActiveCell, Range("B4")) Is Nothing Then Range("B3").Delete

A te lire

Dan

merci Nad-Dan ça marche bien

mais comment puis-je executer le macro automatiquement si possible

merci encore

3petanque.zip (195.72 Ko)

Une méthode simple : tu crées un objet (cercle ou rectangle) et par click droit sur l'objet tu fais "affecter une macro".

re,

Il y a différentes manière mais il faut connaitre le fonctionnement du fichier.

Tu peux aussi placer le bouton comme te l'explique DP mais en mettant l'instruction entre SUB et END SUB.

Exemple :

SUB test()

.....Instruction....

END SUB

Amicalement

Dan

Salut le forum

A mettre dans le code de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$4" Then Range("B3").ClearContents
End Sub

Mytå