VB: Probleme de "Value"

lorsque je rentre dans ma cellule O13 les valeurs TABLEAU!I24:I25;TABLEAU!I36:I72 mon programme ne marche pas mais si je ne rentre qu'un domaine de cellules comme TABLEAU!I24:I30 alors ça marche .

Je pense que "value " ne reconnait pas lorsqu'il y a plusieurs dommaines.
J'utilise var1, var2 ,etc.. pour travailler en Somme et Sommeprod sur l'ensemble des domaines définis

;-)

Tu peux essayer ça...
----------------------------
Dim Plages(1), NbrPlages, ContenuCellule, Formule, Cpt, Cpt1
NbrPlages = 1: Cpt1 = 1
ContenuCellule = Cells(1, 1).FormulaLocal
ContenuCellule = Mid(ContenuCellule, InStr(1, ContenuCellule, "(") + 1)
ContenuCellule = Mid(ContenuCellule, 1, Len(ContenuCellule) - 1)
For Cpt = 1 To Len(ContenuCellule)
Select Case Mid(ContenuCellule, Cpt, 1)
Case Is = ";"
Plages(NbrPlages) = Mid(ContenuCellule, Cpt1, Cpt - Cpt1)
NbrPlages = NbrPlages + 1
ReDim Preserve Plages(NbrPlages)
End Select
Next
For Cpt = 1 To UBound(Plages)
'A "travailler" pour reconstruire ta variable
Next
------------------------------------
Ceci de crée un petit tableau dynamique qui va contenir, dans chaque élément, chaque plage de cellules défini dans ta formule...
A toi de reconstruire à partir de ça le contenu de ta cellule 4,9...
Tu peux aussi le faire en statique, tu as maintenant de quoi extraite de que tu veux de ta cellule de base...

;-)

salut ajx excuse gt pas devant mon pc...
Je vais essayer tes procedures, en tout cas merci pour ton aide précieuse je te tiens au courant!!!!
*
a plus ;-)

Merci aussi a toi White fang je v essayer vos proc ça m'a l'air prometteur...

bon les gars g essayé vos proc ça marche nickel je garde celle d'ajx (un peu plus pratique)
d'ailleurs ajx je voulais savoir comment programmer dans ta proc que mes cellules selectionnées dans val2 sont les mêmes que celles de val1 a la différence pres qu'elles sont de la colonne suivante, sinon la ligne est la même.
(je selectionne val1 dans colonne I et val2 dans colonne J )

Utilise :

Plage.Offset(L, C)

qui définit une plage identique, décalée de L lignes et C colonnes.

Sub SelectionPlages()
  
  Dim Val1 As Range
  Dim Val2 As Range
  
  ' Récupération de la plage Val1
  Set Val1 = Application.InputBox(prompt:="Sélectionnez " _
  & "la plage Val1, puis faites OK", _
  Title:="SELECTION DE PLAGE", Type:=8)
  
  Set Val2 = Val1.Offset(0, 1)
  
  Sheets("Feuil1").Cells(5, 5).Value = Application.WorksheetFunction.SumProduct(Val1, Val2)

End Sub

Armojax.

salut c remoi...

Je vous embete encore une fois mais je voudrai savoir où je dois inserer Public Val1 As Range pour que Val1 soit défini une fois pour toute et que je puisse l'utiliser dans plusieurs macros.

Ajx me dit en début de module mais est ce que çà veut dire que je le met en tout début de module ??
Dans ce cas mes macros utilisant cette variable doivent commencer par Public Sub ??
Et est ce que je dois refaire Dim Val1 a l'intérieur des macros??

;-)

Alors !!

Quand une variable est déclarée A L'INTERIEUR d'une SUB, elle est dite LOCALE, car elle n'a d'existence que pendant l'exécution de cette sub...

Quand une variable est déclarée A L'EXTERIEUR d'une SUB, cette variable, si tu ne met que DIM, n'a d'existence que pour l'objet dans lequel tu a déclaré cette variable (en général, des UserForm), elle n'est donc toujours pas GLOBALE...

Si tu veux déclarer un variable accessible pour TOUT ton projet VBA, tu spécifies PUBLIC et cela, HORS Sub... Et en général, dans un module fait pour cela (la déclaration des variables)

Exemple : Public MaVariable as...

;-)

ok merci prof !

Mais je v aller encore plus loin...
Est ce que tu connais une proc utilisant la proc d'armojax et qui prend en compte que si mon projet n'a qu'un étage je définis une seule fois val1 et val2 et je les utilise dans E5 comme Sumproduct , mais que si mon projets a n étages je dois définir n couples (Val1,val2) que j'utilise comme Sumproduct dans E5, I5, ... avec a chaque fois le couple suicant utilisé dans la cellule (col (x+1), ligne 5) avec (x+1)=x+4 (on saute 4 colonnes a chaque fois)

ou alors beaucoup plus simple et pratique comment je fais pour faire apparaitre dans ma cellule 5,5 le résultat de sumprod mais aussi la formule dans la barre d'écriture lorsque je clique dessus au lieu d'avoir juste le résultat sans la formule qui me fait apparaitre ma selection

ou alors beaucoup plus simple et pratique comment je fais pour faire apparaitre dans ma cellule 5,5 le résultat de sumprod mais aussi la formule dans la barre d'écriture lorsque je clique dessus au lieu d'avoir juste le résultat sans la formule qui me fait apparaitre ma selection

y'a pu personne??

Salut,

Essaie comme ça :

Sheets("Feuil1").Cells(5, 5).Formula = "=SUMPRODUCT(" & Val1 & "," & Val2 & ")"

A+

Hello Fred,

Désolé, mais parti ce matin, je viens seulement de rentrer...
Je te propose la variante 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

Ce que ça fait :
- Sélection d'une plage de cellules Val1
- On en déduit automatiquement Val2, par glissement d'une colonne vers la droite
- Désignation de la cellule où on veut le résultat.

Est-ce que ça répond à ta question ?
Essaie-le et dis-moi...