VB plage définie & équation

Le
jean-paul.bataille
Bonjour,

Je définie deux plages contigue

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

Je voudrais utiliser ces plages dans l'écriture d'un SOMME.SI

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

Ça coince : La méthode range de l'objet _global a échoué.

Merci à ceux qui consacre leur temps à aider les autres!

Le Nordiste
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #25343262
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
---------------------------------------------------------------
Publicité
Poster une réponse
Anonyme