XL 2016 Je clique et ça compte

gibert · 16 Février 2024

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 · 16 Février 2024

Bonjour @gibert

Tu rajoutes ceci au code existant

VB:

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 · 16 Février 2024

J'ai ce message d'erreur

Phil69970 · 16 Février 2024

@gibert

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

VB:

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 · 16 Février 2024

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

Phil69970 · 16 Février 2024

@gibert

Et on peut même simplifier

VB:

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

XL 2016 Je clique et ça compte

gibert

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

gibert

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

gibert

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Discussions similaires