XL 2016 Je clique et ça compte

  • Initiateur de la discussion Initiateur de la discussion gibert
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gibert

XLDnaute Nouveau
Bonjour,
j'ai réussi à faire en sorte que lorsqu'on clique sur les cellules F3😛3, 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.
 

Pièces jointes

J'ai ce message d'erreur
1708077325002.png
 
@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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour