Discussion :

[lafafmentvotre]

Bonjour question bête mais je lutte pour la syntaxe
comment remplacer la valeur B par une variable et que cela fonctionne :

MsgBox [subtotal(3, B:B)] - 1


Merci par avance

[Pierre Fauconnier]

Bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Application.WorksheetFunction.Subtotal(3, Range(MaVariable & ":" & MaVariable))

[lafafmentvotre]

Bonsoir

Merci mais cela ne fonctionne pas. Voici le bout de code que je tente de faire (compter lignes non vides et seulement celles qui apparaissent quand colonne filtrée) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CommandButton3_Click()
Dim Message, Title, Default, MyValue
Message = "Veuillez saisir la lettre de la colonne à analyser" & vbLf & vbLf & "Par exemple A pour la colonne A"
Title = "Compter lignes non vides"
MyValue = InputBox(Message, Title)
'MsgBox [subtotal(3, B:B)] - 1
MsgBox Application.WorksheetFunction.Subtotal(3, Range(MaVariable & ":" & MaVariable))
End Sub

Une idée ?

Merci

[lafafmentvotre]

Mea culpa

J'avais pas remplacé MaVariable par MyValue

Désolé

Et merci pour l'aide

Bonne soirée

[Duddy]

Bonsoir le forum,

Dans le code que tu mets, tu initialises la variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyValue = InputBox(Message, Title)

Ensuite tu renvoies :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MsgBox Application.WorksheetFunction.Subtotal(3, Range(MaVariable & ":" & MaVariable))

Essaie de remplacer par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Application.WorksheetFunction.Subtotal(3, Range(MyValue & ":" & MyValue))

[Duddy]

Bonsoir le forum,

Voici ce que je te propose, je l'ai testé sur 2007, cela fonctionne pour moi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub test()
'ta formule
MsgBox [SUBTOTAL(3,b:b)] - 1
 
Dim vRange As Range
Set vRange = Columns(2)
aa = WorksheetFunction.Subtotal(3, vRange)
MsgBox WorksheetFunction.Subtotal(3, vRange) - 1
End Sub