Bonjour à tous,
Je souhaiterai pouvoir faire augmenter de 1 la valeur celluled 'une dans une colonne.
J'ai donc essayé ce code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim mavar As Variant
mavar = Cells(Target, 2).Value
Cells(Target, 2).Value = mavar + 1
End Sub
Mais ça ne fonctionne pas.
Cela doit fonctionner pour n'importe quelle ligne d'un même colonne.
Quelqu'un pourrait il m'aider?
Merci pour votre aide
Je souhaiterai pouvoir faire augmenter de 1 la valeur celluled 'une dans une colonne.
J'ai donc essayé ce code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim mavar As Variant
mavar = Cells(Target, 2).Value
Cells(Target, 2).Value = mavar + 1
End Sub
Mais ça ne fonctionne pas.
Cela doit fonctionner pour n'importe quelle ligne d'un même colonne.
Quelqu'un pourrait il m'aider?
Merci pour votre aide