XL 2016 Je clique et ça compte

[gibert]

Bonjour,
j'ai réussi à faire en sorte que lorsqu'on clique sur les cellules F33, cela puisse compter automatiquement.
Et je voudrais faire la même chose pour les cellules B3:B32, mais n'étant pas spécialiste, je n'ai pas trouvé la solution pour cumuler ses deux fonctions sur le même document.
Si une personne, pourrait m'aider, cela serait cool.
Merci par avance.

 

[Phil69970]

Bonjour @gibert

Tu rajoutes ceci au code existant

If Not Intersect(Target, Range("B3:B32")) Is Nothing And Target.Count = 1 Then
    Target = Target + 1
    [A1].Select
End If

Ce qui te donneras cela

Merci de ton retour

 

[gibert]

J'ai ce message d'erreur

 

[Phil69970]

@gibert

Regarde le fichier que j'ai mis au post #2 !!!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("F3:P3")) Is Nothing And Target.Count = 1 Then
    Target = Target + 1
    [A1].Select
End If
If Not Intersect(Target, Range("S3")) Is Nothing And Target.Count = 1 Then
    Range("F3:P3") = 0
    [A1].Select
End If
If Not Intersect(Target, Range("B3:B32")) Is Nothing And Target.Count = 1 Then
    Target = Target + 1
    [A1].Select
End If
End Sub

 

[gibert]

Hmm.. ca y est j'ai trouvé.
J'ai mis End sub à la fin.
Merci merci merci

 

[Phil69970]

@gibert

Et on peut même simplifier

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("F3:P3,B3:B32")) Is Nothing And Target.Count = 1 Then
    Target = Target + 1
    [A1].Select
End If
If Not Intersect(Target, Range("S3")) Is Nothing And Target.Count = 1 Then
    Range("F3:P3") = 0
    [A1].Select
End If
End Sub