Variation par clics successifs

Re : Variation par clics successifs

Bonsoir Mick, bonsoir le forum,

Essaie comme ça :

Re : Variation par clics successifs

Bonsoir,

j'avais posté mais le forum a été restauré et mon message a disparu !
Ainsi que celui de Papou-net ! Ouf j'ai pu le lire auparavant !

Donc je disais d'abord merci à Papou-net pour son code bien différent du If/Then/Else initial.
J'ai finalement opté pour ce code, sans vouloir vexer Robert qui m'a permis une avancée considérable.

J'ai ajouté une condition sur les colonnes et sur une cellule vide ou au contenu inadéquat, et j'ai adapté le code à mon fichier.
Voilà la version finale que j'utilise, inspirée du code fourni par Papou-net, j'y ai inséré quelques commentaires.
En espérant satisfaire les éventuels intéressés, simple retour après l'aide dont j'ai bénéficié.
Encore merci à Robert et Papou-net.

Mick

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$V$20" Then Exit Sub
If Target.Column > 20 Then Exit Sub

'par défaut les cellules contiennent NE (non évalué)
Select Case Target
Case Is = "NE"
Target = "V"
Target.Interior.ColorIndex = 4
'la cellule contient alors V (validé)
Case Is = "V"
Target = "NA"
Target.Interior.ColorIndex = 3
'la cellule contient alors NA (non acquis)
Case Is = "NA"
Target = "NE"
Target.Interior.ColorIndex = 0
Case Else
Exit Sub
'Ne rien faire si la cellule ne contient ni V ni NA ni NE
End Select
Target.Copy Destination:=Feuil7.Range(Target.Address)
Range("V20").Select
End Sub