[VBA/Excel] ecriture de la formule donnant le résu Fermé

Question

Sallut a tous,
j'ai la procédure suivante:

Sub SelectionPlages()

Dim Val1 As Range
Dim Val2 As Range

' Désignation de la plage Val1
Set Val1 = Application.InputBox(prompt:="Sélectionnez " _
& "la plage Val1, puis faites OK", _
Title:="CHOIX DE LA MATRICE", Type:=8)

' La plage Val2 est déduite de Val1
Set Val2 = Val1.Offset(0, 1)

' Désignation de la cellule résultat
Set OùÇa = Application.InputBox(prompt:="Sélectionnez " _
& "la cellule où mettre le résultat, puis faites OK", _
Title:="EMPLACEMENT DU RESULTAT", Type:=8)

OùÇa.Value = Application.WorksheetFunction.SumProduct(Val1, Val2)

End Sub

Le probleme c'est que si j'attribue une cellule à Oùça seul le résultat de Sumproduct s'affiche alors que je voudrai obtenir le résultat mais aussi la formule = SOMMEPROD(ma selection Val1, ma selection Val2)

Je crois que ça doit se faire sur la derniere ligne de la procédure mais je n'y arrive pas.
Si quelqu'un peut m'aider...

fred · Answer

hé oh????Une ame charitable...

tompols · Answer

Salut,

Déjà répondu : http://www.commentcamarche.net/forum/affich-1583783-VB-Probleme-de-Value
Essais ça :

Sub SelectionPlages()

Dim Val1 As Range
Dim Val2 As Range
Dim OùÇa As Range


' Désignation de la plage Val1
Set Val1 = Application.InputBox(prompt:="Sélectionnez " _
& "la plage Val1, puis faites OK", _
Title:="CHOIX DE LA MATRICE", Type:=8)

' La plage Val2 est déduite de Val1
Set Val2 = Val1.Offset(0, 1)

' Désignation de la cellule résultat
Set OùÇa = Application.InputBox(prompt:="Sélectionnez " _
& "la cellule où mettre le résultat, puis faites OK", _
Title:="EMPLACEMENT DU RESULTAT", Type:=8)

OùÇa.Formula = "=SUMPRODUCT(" & Val1 & "," & Val2 & ")"
End Sub

A+

fred · Answer

salut tompols j'avais eu ton message mais ça ne fonctionne pas il me renvoie incompatibilite de type

tompols · Answer

Salut,Ca fonctionne nickel chez moi !!!???Quelle version de Excel utilises-tu ?Si tu fais débogage, quelle partie du code est surlignée ?A+

frederic R · Answer

il me souligne la ligne ci dessousOùÇa.Formula = "=SUMPRODUCT(" & Val1 & "," & Val2 & ")"

fred · Answer

je ne sais pas quelle est ma version de exel c'est celle livrée avec win xp

fred · Answer

salut c encore moi bon ben j'espere avoir plus de chance aujourd'hui...un pt'it coup de main serait le bienvenu