Cellule

Dans le module de la feuille et pour un double-clic sur A1 :

Private Sub Worksheet_BeforeDoubleClick(ByVal zz As Range, Cancel As Boolean)
If zz.Address <> "$A$1" Then Exit Sub
If zz.Value = "OUI" Then
zz.Value = "NON"
ElseIf zz.Value = "NON" Then
zz.Value = "Pas ce soir..."
Else: zz.Value = "OUI"
End If
Cancel = True
End Sub

AV

Bonjour Denys,


Voici une solution mais peut être y a t-il mieux.
Tu cliques sur la cellule D10, ça écrit OUI, puis tu cliques ailleurs
Tu recliques sur la cellule D10, ça écrit NON, puis tu cliques ailleurs
Enfin, tu recliques sur la cellule D10, ça écrit PAS CE SOIR CHERI J'AI MAL
A LA TETE, puis tu cliques ailleurs
Et ceci indéfiniment

Bien sur, il faut que la cellule selectionnée soit en D10 (pour l'exemple)


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
Dim xTableau
Static xCpt
Suite:
xTableau = Array("", "Oui", "Non", "Pas ce soir chéri j'ai mal à la
tête")
If Target.Address = "$D$10" Then
xCpt = xCpt + 1
ActiveCell.FormulaR1C1 = xTableau(xCpt)
End If
Exit Sub
Fin:
xCpt = 0
GoTo Suite
End Sub

@+ LOLOTE


"Denys" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 1439101c444c0$69eb62a0$a401280a@phx.gbl...
Bonjour à tous en ce gris vendredi....

Petite question:

Est-il possible qu'en cliquant sur une cellule, celle-ci
change de valeur?

Je souhaiterais qu'en cliquant sur A1 que la valeur = OUI,
et qu'en cliquant de nouveau elle prenne la valeur NON...
et la troisième fois = Pas ce soir chéri j'ai mal à la tête

Voyez le genre !!!!

Est-ce possible... ??

Merci

Denys

Bonjour Denys;
Changement si un changement de cellule a été effectué entre temps.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Target.Address = "$A$1" Then Exit Sub
Static Trigger%
If Trigger Then Target = "OUI" Else Target = "NON"
Trigger = Not Trigger
End Sub

MP

"Denys" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1439101c444c0$69eb62a0$a401280a@phx.gbl...
Bonjour à tous en ce gris vendredi....

Petite question:

Est-il possible qu'en cliquant sur une cellule, celle-ci
change de valeur?

Je souhaiterais qu'en cliquant sur A1 que la valeur = OUI,
et qu'en cliquant de nouveau elle prenne la valeur NON...
et la troisième fois = Pas ce soir chéri j'ai mal à la tête

Voyez le genre !!!!

Est-ce possible... ??

Merci

Denys

Bonjour Michel, Lolote et Alain,


Merci beaucoup pour vos réponses si rapides... Très aimable

Bonne fin de semaine à vous trois...

Denys

-----Original Message-----
Bonjour à tous en ce gris vendredi....

Petite question:

Est-il possible qu'en cliquant sur une cellule, celle-ci
change de valeur?

Je souhaiterais qu'en cliquant sur A1 que la valeur =
OUI,

et qu'en cliquant de nouveau elle prenne la valeur NON...
et la troisième fois = Pas ce soir chéri j'ai mal à la
tête

Voyez le genre !!!!

Est-ce possible... ??

Merci

Denys
.

Rebonjour,

Désolé, j'y ai pris goût... Que dois-je faire, si je veux
ajouter d'autres cellules ??? Par exemple, Cellule B5

Duplicata, Amendement, Nouveau...

Zut, j'aurais dû le mentionner en partant...

Merci encore

Denys

-----Original Message-----
Bonjour à tous en ce gris vendredi....

Petite question:

Est-il possible qu'en cliquant sur une cellule, celle-ci
change de valeur?

Je souhaiterais qu'en cliquant sur A1 que la valeur =
OUI,

et qu'en cliquant de nouveau elle prenne la valeur NON...
et la troisième fois = Pas ce soir chéri j'ai mal à la
tête

Voyez le genre !!!!

Est-ce possible... ??

Merci

Denys
.

Désolé, j'y ai pris goût... Que dois-je faire, si je veux
ajouter d'autres cellules ??? Par exemple, Cellule B5

.........
If zz.Address <> "$A$1" And zz.Address <> "$B$5" Then Exit Sub
...etc.....

AV

Allo Alain,

Marche pas... Que fais-je de pas correct ???
Excel me donne un message Compile Error...

Private Sub Worksheet_BeforeDoubleClick(ByVal zz As Range,
za As Range, Cancel As Boolean)
If zz.Address <> "$B$5" And za.Address <> "$C$5" Then Exit
Sub
If zz.Value = "RB" Then
zz.Value = "RT"
ElseIf zz.Value = "RT" Then
zz.Value = "RB"
Else: zz.Value = "RB"
End If
Cancel = True
If za.Value = "RIF" Then
za.Value = "RSP"
ElseIf za.Value = "RSP" Then
za.Value = "RIF"
Else: za.Value = "RSP"
End If
Cancel = True
End Sub

Désolé d'abuser...

Denys

-----Original Message-----

Désolé, j'y ai pris goût... Que dois-je faire, si je veux
ajouter d'autres cellules ??? Par exemple, Cellule B5

..........
If zz.Address <> "$A$1" And zz.Address <> "$B$5" Then
Exit Sub

....etc.....

AV


.