activer une cellule par un clique

[domy]

Bonjour,

Je voudrai activer une cellule par un clique de souris. Cette activation attribuera une valeur à la cellule.

Pour mieux comprendre ma question et mon besoin, j'ai un fichier joint explicatif.

Merci d'avance à Tous

 

[Pascal76]

Salut

Tu me dis si cela suffit

Bonne soirée

Pascal

 

[Ronan]

Bonsoir à tous,

Code à copier dans le module de ta feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 6 And Target.Row <= 8 And _
Target.Column >= 4 And Target.Column <= 7 Then
Target.Interior.ColorIndex = 4
Target.Value = Cells(5, Target.Column)
Cells(Target.Row, 8).Value = Cells(Target.Row, 4).Value + _
Cells(Target.Row, 5).Value + Cells(Target.Row, 6).Value _
+ Cells(Target.Row, 7).Value
End If
End Sub

@+

Ronan

 

[Pascal76]

SAlut

Suite à ton mail voici le nouveau fichier

Bon courage

Pascal

 

[domy]

Merci beaucoup PASCAL pour ton aide, tu es génial