Discussion :

[janakka-horus]

Bonjour,

Je voudrai savoir si c'est possible de combiner dans l’événement beforedoubleclick deux fonction.

c'est à dire que dans un premier temps le double Click insère dans la cellule sélectionnée une formule (exemple la formule somme).

Et ensuite si je double Click à nouveau elle remplace la cellule sélectionnée par sa valeur.

Merci pour votre aide

[Igloobel]

Bonour,

Peut-être que tu peux tester le contenu et si c'est une formule y mettre la valeur (de cette formule je suppose)

ceci n'est qu'une piste je n'ai pas fait de tests

[Theze]

Bonjour,

Voir du côté de IsFormula !

[Menhir]

Il suffit que dans la macro tu vérifies si la cellule est vide avec un If ... Then ... Else.
Si c'est le cas, tu mets une formule dans la cellule.
Si ce n'est pas le cas, tu copies la valeur.

[janakka-horus]

Il suffit que dans la macro tu vérifies si la cellule est vide avec un If ... Then ... Else.
Si c'est le cas, tu mets une formule dans la cellule.
Si ce n'est pas le cas, tu copies la valeur.

Le code serait comme ca ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
If ActiveCell.HasFormula Then
ActiveCell.Formula = ActiveCell.Value
Else
...

I

[pijaku]

Bonjour,
Plutôt que ActiveCell, utilise Target :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   With Target
      If .HasFormula Then
         .Value = .Value
      Else
         .FormulaLocal = "=SOMME(A1:A10)"
      End If
      .Offset(1, 0).Select
   End With
End Sub

[janakka-horus]

Bonjour,
Plutôt que ActiveCell, utilise Target :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   With Target
      If .HasFormula Then
         .Value = .Value
      Else
         .FormulaLocal = "=SOMME(A1:A10)"
      End If
      .Offset(1, 0).Select
   End With
End Sub

Bonjour

C'est parfait merci.

Ça marche :-)

[Menhir]

Perso, je conseille plutôt de faire un test "cellule vide", plus simple et plus sûr.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target.Value = "" Then Target.FormulaLocal = "=SOMME(A1:A10)" Else Target.Value = Target.Value

Target étant le premier paramètre de la macro BeforDoubleClick.

[janakka-horus]

Perso, je conseille plutôt de faire un test "cellule vide", plus simple et plus sûr.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target.Value = "" Then Target.FormulaLocal = "=SOMME(A1:A10)" Else Target.Value = Target.Value

Target étant le premier paramètre de la macro BeforDoubleClick.

Ta solution est également bonne Menhir.

Je te remerci pour ta réponse