Sub Workstreet

Bonjour le forum!

j'ai trouver ce code sur le net pour copier des "1" quand double clic sur une cellule, est-il possible de definir des zone ou l'action agit et donc pas sur le reste du tableau.

Exemple de zone en D2:D50, E2:E25,F2:F100 ext..., double clic = "1"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Target.Value = "1"

End Sub

bonne journée à tous

Salut Slijack

Voici le code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  ' Vérifier que le double clique ce trouve dans la zone souhaitée
  ' Si ce n'est pa sle cas on sort
  If Intersect(Target, Range("D2:D50,E2:E25,F2:F100")) Is Nothing Then Exit Sub
  Target.Value = "1"
  Cancel = True
End Sub

A+

bonjour BrunoM45

Grand merci cela fonctionne parfaitement

question annexe le même code peut-il fonctoinner avec un seul clic

car par la suite je me servirai de mon fichier excel sur une tablette et le double clic ouvre une fenêtre pour écriture nanuel, cela n'empêche pas le fonctionnement, mais serai plus sympat avec un simple clic.

quoiqu'il en soit encore merci pour ton aide et bonne fin de journée

Re,

Oui tu peux le faire, mais en changeant d'évènement

ce sera SelectionChange (à chaque changement de cellule)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  ' Vérifier que le double clique ce trouve dans la zone souhaitée
  ' Si ce n'est pa sle cas on sort
  If Intersect(Target, Range("D2:D50,E2:E25,F2:F100")) Is Nothing Then Exit Sub
  Target.Value = "1"
End Sub

A+

re bonjour BrunoM45

Merci pour ton aide problème entièrement résolus !!!!!!!