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

fred -  
 fred -
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...

7 réponses

  2.
    tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   460
     
    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+
    0
  3. fred
     
    salut tompols j'avais eu ton message mais ça ne fonctionne pas il me renvoie incompatibilite de type
    0
  4. tompols Messages postés 1273 Date d'inscription   Statut Contributeur Dernière intervention   460
     
    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+
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. frederic R
     
    il me souligne la ligne ci dessous
    OùÇa.Formula = "=SUMPRODUCT(" & Val1 & "," & Val2 & ")"
    0
  7. fred
     
    je ne sais pas quelle est ma version de exel c'est celle livrée avec win xp
    0
  8. fred
     
    salut c encore moi bon ben j'espere avoir plus de chance aujourd'hui...
    un pt'it coup de main serait le bienvenu
    0