Double clic

Bonjour,

Je fais appel a vous pour m'aider



Quand je double clics sur une cellule qui contient du texte, A la cellule F1, apparait l'information

Plusieurs cellules contiennent 3 critères d'informations. Alors au double click sur certaines cellules,
aux cellules F1, N1, S1 apparaissent les informations requises.

Mais ou est mon problème, lorsque je double clic sur une cellule qui contient seulement 1 critère, si j'avais des informations aux cellules N1 et S1, J'aimerais que ces informations disparaissent.

Meme chose si je clic sur une cellule vide, N1 et S1 devrait rester vide, ce qui n'est pas le cas

Voici mon VBA

Option Explicit

Dim celX As Range, numéro%

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With Target
If .CountLarge > 1 Then Exit Sub
If Intersect(Target, [B5:W80]) Is Nothing Then Exit Sub
[F1] = "": numéro = Val(Target): If numéro = 0 Then Exit Sub
End With
With Worksheets("ÉQUIPEMENTS")
Set celX = .Columns(2).Find(numéro, , -4163, 1)
If Not celX Is Nothing Then [F1] = .Cells(celX.Row, 1)
End With
With Target
If .CountLarge > 1 Then Exit Sub
If Intersect(Target, [B5:W80]) Is Nothing Then Exit Sub
[N1] = "": numéro = Val(Target): If numéro = 0 Then Exit Sub
End With
With Worksheets("ÉQUIPEMENTS")
Set celX = .Columns(2).Find(numéro, , -4163, 1)
If Not celX Is Nothing Then [N1] = .Cells(celX.Row, 6)
End With
With Target
If .CountLarge > 1 Then Exit Sub
If Intersect(Target, [B5:W80]) Is Nothing Then Exit Sub
[S1] = "": numéro = Val(Target): If numéro = 0 Then Exit Sub
End With
With Worksheets("ÉQUIPEMENTS")
Set celX = .Columns(2).Find(numéro, , -4163, 1)
If Not celX Is Nothing Then [S1] = .Cells(celX.Row, 7)
End With
End Sub

Je ne peut mettre le fichier au complet car il y a trop d'informations personnelles.

Merci



Espérons m’être fait bien comprendre