Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VB plage définie & équation

VB plage définie & équation

1 réponse
Avatar
jean-paul.bataille
Bonjour,

Je d=E9finie deux plages contigue

Set rngPlage =3D Selection
Set rngValeur =3D Selection.Columns(2)

Je voudrais utiliser ces plages dans l'=E9criture d'un SOMME.SI

ActiveCell.FormulaR1C1 =3D "=3DSUMIF(" & Range(rngPlage) & ",RC[-1]," _
& Range(rngValeur) & ")"

=C7a coince : La m=E9thode range de l'objet _global a =E9chou=E9.

Merci =E0 ceux qui consacre leur temps =E0 aider les autres!

Le Nordiste
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichD
Bonjour,

Un petit exemple simple :

Additionner la plage B1:B10 seulement si
A1:A10 = "toto2"

'------------------------------------
Sub test()

Dim Rg As Range, Crit As String

Crit = """toto2"""

With Feuil1
Set Rg = .Range("A1:B10")
.Range("G1").Formula = _
"=Sumif(" & .Name & "!" & Rg.Columns(1).Address & _
"," & Crit & "," & .Name & "!" & Rg.Columns(2).Address & ")"
End With

End Sub
'------------------------------------


MichD
---------------------------------------------------------------