pascal21
XLDnaute Barbatruc
Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Intersect(Target, Columns("f:j")) Is Nothing Then Exit Sub
If IsEmpty(ActiveCell.Value) Then
ActiveCell.Value = "1"
ElseIf ActiveCell.Value = "1" Then
ActiveCell.Value = ""
End If
Cancel = True
End Sub
grace à ce bout de code un "1" s'inscrit lorsque je clique droit sur une cellule des colonnes "f:j"
comment faire pour avoir la même fonction (clic droit) avec une selection de plusieurs cellules ; par ex. de a1 à b5
le but est de pouvoir remplir une zone de cellules d'un seul clic
j'espère m'être expliqué clairement
merci