Croix au clique

pascal21

XLDnaute Barbatruc

• 22 Mai 2007

• #2

Re : Croix au clique

bonsoir
un extrait d'un de mes classeurs
pour les colonnes f à j (à modifier en fonction de ton classeur)
inscrit un "1" avec un clic droit
à reserver de préférence uniquement aux colonnes qui en ont besoin

Code:

' clic droit pour afficher et effacer "1" colonnes f à j
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Intersect(Target, Columns("[COLOR=Red]f:j[/COLOR]")) Is Nothing Then Exit Sub
If IsEmpty(ActiveCell.Value) Then

ActiveCell.Value = "[COLOR=Red]1[/COLOR]"
ElseIf ActiveCell.Value = "[COLOR=Red]1[/COLOR]" Then

ActiveCell.Value = ""
End If
Cancel = True
End Sub

en rouge ce qu'il faut modifier pour adapter

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 22 Mai 2007

• #3

Re : Croix au clique

Bonsoir à tous
Une autre façon de faire
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Colonne As Integer
Cancel = True
Colonne = Target.Column
If Cells(Target.Row, Target.Column).Value = "X" Then
Cells(Target.Row, Target.Column).Value = ""
ElseIf Cells(Target.Row, Target.Column).Value = "" Then
Cells(Target.Row, Target.Column).Value = "X"
End If
End Sub

 

Pièces jointes

• double click X.xls

  16 KB · Affichages: 104

Vote positif 0 Vote négatif

T

Tail

XLDnaute Occasionnel

• 22 Mai 2007

• #4

Re : Croix au clique

merci
le fichier fonctionne mais je n'arrive pas à l'insérer dans mon code.
on dois je le mettre ?
merci

 

Vote positif 0 Vote négatif

T

Tail

XLDnaute Occasionnel

• 22 Mai 2007

• #5

Re : Croix au clique

Génial ça marche
merci

 

Vote positif 0 Vote négatif