Traduire NB.SI par VBA

Staple1600

XLDnaute Barbatruc

• 3 Décembre 2019

• #2

Bonsoir le fil

Un exemple

VB:

Private Sub vba_NBSI(Plage As Range, Mot As String)
Resultat = Application.CountIf(Plage, Mot)
MsgBox Resultat
End Sub
Sub vTests()
vba_NBSI Range("P5:P100"), "Baptiste"
End Sub

 

Vote positif 0 Vote négatif

Horusbk

XLDnaute Junior

• 3 Décembre 2019

• #3

Bonsoir Staple1600,

Merci pour cette réponse rapide
Il n'y a pas de moyens d'indiquer "de P5 à la dernière ligne de la colonne P" plutôt que de définir une ligne de fin "P5 : P100" ?

Cordialement,
Bapt.

 

Vote positif 0 Vote négatif

laurent950

XLDnaute Accro

• 3 Décembre 2019

• #4

Bonsoir,

For i = 5 To Cells(1048576, 16).End(xlUp).Row
If Cells(i, 16) = "Baptiste" Then
resultat = resultat + 1
End If
Next i
MsgBox resultat

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Décembre 2019

• #5

Re, Bonsoir laurent950

=>Horusbk
C'était pas bien compliqué à adapter, non ?

VB:

Sub vTests_II()
Dim Vamos_A_la_Playa As Range
Set Vamos_A_la_Playa = Range(Cells(5, "P"), Cells(Rows.Count, "P").End(3))
vba_NBSI Vamos_A_la_Playa, "Baptiste"
End Sub
Private Sub vba_NBSI(Plage As Range, Mot As String)
Resultat = Application.CountIf(Plage, Mot)
MsgBox Resultat
End Sub

 

Vote positif 0 Vote négatif

Horusbk

XLDnaute Junior

• 3 Décembre 2019

• #6

Bonsoir laurent950 et Staple1600

Merci pour votre aide !

C'était pas bien compliqué à adapter, non ?

Cliquez pour agrandir...

Effectivement ^^ Je sais pas pourquoi mais sur ce sujet, j'ai bloqué ....

Cordialement,
Baptiste

 

Vote positif 0 Vote négatif