VBA Nombre de lignes avec ref en lien avec ligne active

[chris6999]

Bonjour le FORUM

Je poursuis "bon an mal an" mon projet actuel et là je bute sur un problème auquel je ne trouve pas de solution.

Sur double clic colonne 1 le système incrément la valeur l sur la cellule active.
Ce que je voudrais faire ce serait ensuite d'afficher dans un MSGBOX
Le nombre de lignes ciblées avec ce "l "colonne 1 avec la référence (colonne 9) de ma ligne active.

N'étant pas une spécialiste en VBA j'ai utilisé l'enregistreur afin de coder la formule sommeprod mais impossible de trouver le moyen d'inclure la référénce "ligne active".

J'espère que vous avez des idées car moi je cale.

Le mieux serait de pouvoir stocker quelque part la valeur de la ligne active que je puisse y faire référence dans d'autres contrôle ultérieurs (pas directement dans la feuille mais plutôt en tant que variable???)

Merci d'avance pour votre aide

 

[Staple1600]

Bonjour le fil, le forum

Essaies ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 13 Then
    'ciblage  double clic colonne A
    If Target.Column = 1 Then 'B
    Target.Value = "l"
    MsgBox "Nombre le lignes: " & Application.CountIf(Range("A13:A1000"), "l"), vbInformation
    End If
End If
End Sub

 

[DoubleZero]

Bonjour, chris6999, Staple1600 🙂, le Forum,

Ou bien :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = -1
    If Target.Row > 13 Then If Target.Column = 1 Then Target.Value = "l"
    MsgBox Application.CountIf([a:a], "l")
End Sub

A bientôt 🙂

 

[Staple1600]

Bonjour 00 😉

Ou bien 😉 (avec un petit risque en plus)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim p As Range
If Target.Column = 1 And Target.Row > 13 Then
Set p = Range("A14:A" & 16 ^ 5)
Target.Value = "l"
MsgBox "Nombre le lignes: " & p.SpecialCells(2, 2).Count, vbInformation, "Informations"
End If
End Sub

 

[Si...]

Bon_jour

Erreur d'aiguillage ? Je ne suis pas sur la voie que vous ÓÒ et l'agrafe ! 😵😕
Mais suis-je dans la mauvaise direction ? Vous pouvez me remettre dans le droit chemin si je me suis trompé !

Chris…, ne réponds pas "Après quelques tests, je me suis finalement inspirée de la proposition de Barbatruc* qui correspondait plus aux besoins de mon projet". Car on ne saura pas de quel truc tu parles.


*Tout comme moi, Staple ne désire voir son nom dans le titre mais ici ???

 

[chris6999]

Merci pour toutes vos réponses.
Je reviens vers vous après avoir testé vos propositions.

 

[chris6999]

Bonjour le fil, le forum

Essaies ceci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 13 Then
    'ciblage  double clic colonne A
    If Target.Column = 1 Then 'B
    Target.Value = "l"
    MsgBox "Nombre le lignes: " & Application.CountIf(Range("A13:A1000"), "l"), vbInformation
    End If
End If
End Sub

A première vue cela ne semble pas prendre en compte ma double condition.
A moins que je ne trompe(ce qui est possible) ce code comptabilise uniquement les lignes ciblées colonne A mais par pour la référence.

Merci quand même

 

[Staple1600]

Si...

Je crois que tu es dans le vrai et je suis par conséquent dans le faux.
Si, si je le pense 😉

chriss6999
C'est Si... kabonnon?

Je serai donc châtié, place de l'Opéra demain soir vers 17h53.

 

[chris6999]

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = -1
If Target.Row > 13 Then If Target.Column = 1 Then Target.Value = "l"
MsgBox Application.CountIf([a:a], "l")
End Sub

Merci encore DoubleZero mais comme me le propose STAPLE1600 je ne vois pas à première vue de contrôle sur ma référence colonne 9.
Mon but est de pouvoir faire ce double rapprochement et de stocker si possible cette information qui me servira dans mon Msgbox mais pas uniquement.

Bon je continue à chercher

 

[Staple1600]

Re à tous,

chris6999
Relis mon message précédent, que diantre!

Si... a la solution

 

[chris6999]

Bon_jour

Erreur d'aiguillage ? Je ne suis pas sur la voie que vous ÓÒ et l'agrafe ! 😵😕
Mais suis-je dans la mauvaise direction ? Vous pouvez me remettre dans le droit chemin si je me suis trompé !

Chris…, ne réponds pas "Après quelques tests, je me suis finalement inspirée de la proposition de Barbatruc* qui correspondait plus aux besoins de mon projet". Car on ne saura pas de quel truc tu parles.


*Tout comme moi, Staple ne désire voir son nom dans le titre mais ici ???

Bonjour SI

Je pense que ton code pourrait faire... je vais faire mes petits tests pour essayer de bien comprendre

 

[chris6999]

Bonjour et merci à tous pour votre aide.
Après un travail d'adaptation j'ai réussi, grâce à la proposition de SI, de poursuivre dans l'avancée de mon projet.

MerSI merSI merSI