Rapport de message :*
 

Modifier un code VBA

Titre du sujet : Modifier un code VBA
par 272129 le 19/10/2011 18:48:21

 Bonsoir à tous

 

J’ai essayé de comprendre et de modifier un code VBA d’un sujet que j’avais posté

 

à http://www.mdf-xlpages.com/modules/ne ... ost_id=4208#forumpost4208

 

Sur Excel j’ai créé un format conditionnel en A,B,C 1,2,3,4,5 et j’ai appliqué le code VBA suivant:

Option Explicit

'myDearFriend!  -  www.mdf-xlpages.com
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Plage As Range
    Set Plage = Application.Intersect(Target, Range("zoneHeures"))
    If Not Plage Is Nothing Then
        Cancel = True
        Plage.Value = IIf(Target(1).Value = 1, "", 1)
    End If
End Sub

Mon problème et le suivant

j'aimerai que sur ma feuille en A,B,C 1,2,3,4,5 en faisant un clic droit un "X" majuscule apparaisse à la place du "1" 
Mais en modifiant

Plage.Value = IIf(Target(1).Value = 1, "", 1)

comme cela:

Plage.Value = IIf(Target(1).Value = X, "", X)

ça ne fonctionne pas j'ai un message d'erreur

En pièce jointe mon fichier

A bientôt