[VBA/Excel] ecriture de la formule donnant le résu
fred
-
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...
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...
A voir également:
- [VBA/Excel] ecriture de la formule donnant le résu
- Formule si et excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule somme excel colonne - Guide
- Excel mise en forme conditionnelle formule - Guide
- Liste déroulante excel - Guide
7 réponses
Salut,
Déjà répondu : http://www.commentcamarche.net/forum/affich-1583783-VB-Probleme-de-Value
Essais ça :
A+
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+
salut tompols j'avais eu ton message mais ça ne fonctionne pas il me renvoie incompatibilite de type
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+
Ca fonctionne nickel chez moi !!!???
Quelle version de Excel utilises-tu ?
Si tu fais débogage, quelle partie du code est surlignée ?
A+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question