Valeur de la cellule +1 lorsque doubleclick sur la cellule.

  • Initiateur de la discussion Initiateur de la discussion Matjul
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Matjul

XLDnaute Occasionnel
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
 
Re : Valeur de la cellule +1 lorsque doubleclick sur la cellule.

Bonjour à tous,
Je souhaiterai pouvoir faire augmenter de 1 la valeur d'une cellule 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.
D'autre part, inversement, je souhaiterai soustraire 1 avec un simple Click.
Quelqu'un pourrait il m'aider?
Merci pour votre aide
 
Dernière édition:
Re : Valeur de la cellule +1 lorsque doubleclick sur la cellule.

Bonjour, j'ai trouvé ce code de Renauder sur le forum:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isect = Application.Intersect(Range("BD"), ActiveCell)
If isect Is Nothing Then
Else
ActiveCell.Value = ActiveCell.Value + 1
End If
End Sub
pas testé.

J'avais une macro qui le faisait par double clic mais je ne le retrouve pas.
a+
 
Re : Valeur de la cellule +1 lorsque doubleclick sur la cellule.

Salut à tous.

Sachant qu'il faut Cells(ligne,colonne) voir ainsi :
Code:
...
mavar = Cells([B][COLOR=Red]Target.Row[/COLOR][/B], 2).Value
Cells([B][COLOR=Red]Target.Row[/COLOR][/B], 2).Value = mavar + 1
 
Re : Valeur de la cellule +1 lorsque doubleclick sur la cellule.

Bonjour
J'ai récupérer cette macro,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Application.Intersect(Target, Range("A:A1")) Is Nothing Then
Cancel = True

With Target
If .Value <> "" Then
.Offset(0, 0) = .Offset(0, 0) + 1
End If
End With
End If
End Sub
 
Re : Valeur de la cellule +1 lorsque doubleclick sur la cellule.

Bonjour à tous

Et comme cela ?


Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Target.Column = 2 Then Exit Sub
If Not IsEmpty(Target) And Not Target.HasFormula Then
Target.Value = Target.Value + 1
End If
End Sub
 
Dernière édition:
Re : Valeur de la cellule +1 lorsque doubleclick sur la cellule.

Salut à tous,

à fond la forme :
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  On Error Resume Next
  If Target.Column = 2 Then Target = Target + 1
  Cancel = True
End Sub
 
Dernière édition:
Re : Valeur de la cellule +1 lorsque doubleclick sur la cellule.

Re


En hommage à Excel_Lent 😉
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  On Error Resume Next
  Target = IIF(Target.Column=2,Target + 1,Target)
  Cancel = True
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
14
Affichages
337
Réponses
4
Affichages
485
Réponses
4
Affichages
367
Réponses
16
Affichages
946
Retour