[VBA] Range.(("xxx").column)) ??

Pierrot93

XLDnaute Barbatruc

• 6 Août 2015

• #2

Re : [VBA] Range.(("xxx").column)) ??

Bonjour,

peut être comme ceci, non testé...

Code:

With Sheets("Source - TCD")
    WorksheetFunction.Sum(.Columns(.Rows(1).Find("Montant brut", LookAt:=xlWhole).Column)).SpecialCells (xlCellTypeVisible)
End With

bonne journée
@+

 

Vote positif 0 Vote négatif

S

SkinDash

Guest

• 6 Août 2015

• #3

Re : [VBA] Range.(("xxx").column)) ??

Bonjour Pierrot,

Merci pour cette réponse rapide 🙂

Avec cette solution j'ai un message d'erreur "Erreur de compilation: Qualificateur incorrect" et le .Sum est surligné.

Peut-être est-ce dû à une erreur de ma part, je positionne les balises With...End With de la sorte:

Code:

With x = Sheets("Source - TCD")
WorksheetFunction.Sum(.Columns(.Rows(1).Find("Montant brut", LookAt:=xlWhole).Column)).SpecialCells (xlCellTypeVisible)
End With

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Août 2015

• #4

Re : [VBA] Range.(("xxx").column)) ??

Re,

je positionne les balises With...End With de la sorte:

Cliquez pour agrandir...

enlève le "x ="

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Août 2015

• #5

Re : [VBA] Range.(("xxx").column)) ??

Re,

positionne le ainsi :

Code:

With Sheets("Source - TCD")
 x =    WorksheetFunction.Sum(.Columns(.Rows(1).Find("Montant brut", LookAt:=xlWhole).Column)).SpecialCells (xlCellTypeVisible)
 End With

 

Vote positif 0 Vote négatif

S

SkinDash

Guest

• 6 Août 2015

• #6

Re : [VBA] Range.(("xxx").column)) ??

Re,

Malheureusement même message d'erreur quand j'essaye de lancer la macro en me surlignant le ".sum"

"Erreur de compilation: Qualificateur incorrect" 🙁

Tant pis, merci pour ton aide en tout cas !

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Août 2015

• #7

Re : [VBA] Range.(("xxx").column)) ??

Re,

ceci fonctionne chez moi....

Code:

With Sheets("Source - TCD")
    x = WorksheetFunction.Subtotal(109, .Columns(.Rows(1).Find("Montant brut", LookAt:=xlWhole).Column))
End With

 

Vote positif 0 Vote négatif

S

SkinDash

Guest

• 6 Août 2015

• #8

Re : [VBA] Range.(("xxx").column)) ??

Pierrot93 à dit:

Re,

ceci fonctionne chez moi....

Code:

With Sheets("Source - TCD")
    x = WorksheetFunction.Subtotal(109, .Columns(.Rows(1).Find("Montant brut", LookAt:=xlWhole).Column))
End With

Cliquez pour agrandir...

Effectivement, j'ai supprimé le ".SpecialCells (xlCellTypeVisible)" et ça fonctionne aussi très bien chez moi.

Merci pour ton aide ! 🙂

Si j'ai bien compris l’argument '109' de Subtotal fait la somme en ignorant les valeurs masquées, alors que l'argument '9' va lui faire la somme en incluant les valeurs masquées ?

Bonne journée.

Skin'

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Août 2015

• #9

Re : [VBA] Range.(("xxx").column)) ??

Re,

Si j'ai bien compris l’argument '109' de Subtotal fait la somme en ignorant les valeurs masquées, alors que l'argument '9' va lui faire la somme en incluant les valeurs masquées ?

Cliquez pour agrandir...

tout à fait

 

Vote positif 0 Vote négatif