Clic >>>>> Jaune >>>> clic >>>>> vert

[KyFranRD]

Bonjour à tous .....

Dans le cadre d'un projet au travail je dois réaliser un dossier. Je dois, pour faire court gérer certaines opérations, dés lors qu'un produit entre en stock.

Je désirerai savoir comment passer d'un cellule jaune à une cellule verte puis jaune puis verte. Le fichier test sera plus explicite.

Merci à l'avance

 

[fredl]

Re : Clic >>>>> Jaune >>>> clic >>>>> vert

a tester
Fred

 

[Nairolf]

Re : Clic >>>>> Jaune >>>> clic >>>>> vert

Salut KyFranRD et fredl,

KyFranRD, je te propose le fichier joint, je me suis permis de faire des modifications qui me semblent logiques, à toi de me dire si ça convient.

 

[KyFranRD]

Re : Clic >>>>> Jaune >>>> clic >>>>> vert

Salut KyFranRD et fredl,

KyFranRD, je te propose le fichier joint, je me suis permis de faire des modifications qui me semblent logiques, à toi de me dire si ça convient.

Merci Nairolf

Je rigole car c'est exactement mon fichier d'origine. J'avais dans un premier temps réaliser cela avec une liste.

Je te remercie de toutes façons de m'avoir repondu.

Je pense avoir trouvé une piste avec select case......


Merci encore

 

[fhoest]

Re : Clic >>>>> Jaune >>>> clic >>>>> vert

Bonjour,

Je te propose ce code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 And Target.Text = "A faire" Then
Target = "Fait"
Target.Interior.Color = vbGreen
Target.Offset(0, -1).Interior.Color = vbGreen
Cancel = True
Exit Sub
End If
If Target.Column = 3 And Target.Text = "Fait" Then
Target = "A faire"
Target.Interior.Color = vbYellow
Target.Offset(0, -1).Interior.Color = vbYellow
Cancel = True
End If
End Sub

A+