Bonjour anthoYS,
Voici en PJ un début de réponse.
Par contre, qu'entends-tu par figer C10? Il est difficile de procéder autrement qu'en protégeant la feuille après avoir réglé le verrouillage-déverrouillage des cellules. Des précisions complémentaires seraient les bienvenues.
A +
Cordialement.
RE:
OK, voici le fichier complété.
Cordialement.
Ok mais ça en fait rien quand je double clique ...
Je ne comprends pas pourquoi enfin c'est pas bien grave...
As-tu activé les macros? Car la solution que je te propose est en VBA.
A +
Cordialement.
Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
If R.Address = "$A$10" Then
R(1, 2) = 10: R(1, 3) = R(1, 3).Value
Else
If R.Address = "$B$10" Then R = R - 1: R(1, 0).Select
End If
End Sub
Bonjour,
merci ça marche j'ai essayé sur un autre ordi... c'est mon ordi qui avait un problème lequel j'ignore, mais là ça marche, impec' merci !!
par contre un double clic en B10 n'enlève pas 1 à B10 comme je l'avais demandé.
Bonsoir anthoYS,
Je n'ai vu nulle part que tu voulais décrémenter B10 par un double-clic.
Voilà donc ta demande résolue en PJ.
Cordialement.
Re,
Pourquoi ce code ne marche qu'à moitié ? ???
Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
Select Case R.Address
Case "$A$10"
R(1, 2) = 10: R(1, 3) = Date
Case "$B$10"
If R > 0 Then R = R - 1: Cancel = 1
If R = 0 Then R.Resize(, 2) = "": R(1, 0).Select 'étape à adapter, supprimer
End Select
End Sub