VBA Lire matrice nXm+ actualisation résultats

Bonjour tout le monde,
Dans un premier temps j'aimerai lire une matrice nXm de la fauille "S" afin de pouvoir faire des opérations dessus, j'ai bien essayé ça mais ça marche pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Matri() Dim S, As Variant Dim i, j As Integer n = Range("g3").Value m = Range("g4").Value   For i = 1 To n For j = 1 To m S(i, j)= Worksheets("S").range Cells(3 + i - 1, 2 + j - 1).Value Next j Next i

---

Dans un deuxième temps j'aimerai que les résultats changent dés que je change les données (à savoir la feuille "S", la feuille "W" et les cellules G3 et G4 de la feuille"Act VBA" sans avoir a réexecuter ma macro a chaque fois.

Merci d'avance.

Bonjour

dans un permier temps j'ai corrigé ton code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Matri() Dim S As Variant Dim i As Integer, j As Integer, n As Integer, m As Integer n = Range("g3").Value m = Range("g4").Value ReDim S(n, m)   For i = 1 To n For j = 1 To m S(i, j) = Worksheets("S").Cells(3 + i - 1, 2 + j - 1).Value Next j Next i End Sub

---

a+

RE

le temps d'essayer pour ne pas ecrire de bétise comme il y a longtemps que je ne l'avais pas utilisé.

pour tes feuilles S et W utiliser l'événement change de tes feuilles

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range)   'Ton code   End Sub

---

pour la feuille "Act VBA"

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Range("g3:g4"), Target) Is Nothing Then   'ton code   End If End Sub

---

a+

Merci pour ta réponse zyhack.
Pour la lecture de la matrice c'est fait :mrgreen:
En revanche pour ce qui est de l'actualisation des résultats je galère, je m'y suis surement mal pris.
Je veux juste te préciser qu'il n'y a pas de macro dans les feuilles "S" et "W", il y a seulement des données et je veux que ma macro s'execute automatiquement s'il y a changement dans une de ces pages ou dans les cellules G3 et G4 de ma feuille Act VBA.

Je me demandais s'il n y avait pas u code a saisir dans thisworbook :aie:

et bien au dessus de thisworkbook tu as le nom des feuilles dans la fenêtre vb

il te suffit de double cliquer sur chacune des feuilles que je t'ai cité, y rentrer le code et remplacer " 'Ton code " par "

Code:

---

call MaMacro

---

pour appeler ta macro qui je le suppose ce trouve dans un module.

je ne sais pas ci c'est clair , dans tous les cas tiens moi au courant.

a+

Bonsoir.

Pour la lecture du tableau, tu peux le faire très simplement

Code:

---

1 2 3 4 5 6 7 8 9

Sub Matri() Dim S As Variant Dim n as integer, m as integer n = Thisworkbook.Worksheets("Act VBA").Range("g3").Value m = ...   With ThisWorkbook.Worksheets("S") S= .Range(.Cells(3,2),.cells(2+n, 1+m)).Value End with

---

Tu peux appeler cette procédure dans des procédures évènementielles, évènement = modification des feuilles concernées, ce qui mettra à jour le tableau S.

Cordialement,

PGZ

Merci pgz pour ta réponse, mais le problème au quel je suis confronté c'est justement ces procédures événementielles, je ne sais pas comment les utiliser.
PS : soyez indulgents avec moi, je débute en VBA.

as tu essayé de rentrer le code comme je te l'ai dit

dans la partie gauche de la fenêtre vb il y a le nom des feuilles

quand tu double clique sur un de ces nom ça ouvre une fenêtre de code de la feuille

pour les feuilles S et W il faut rentrer le même code

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range)   Call Matri   End Sub

---

et pour la feuille "Act VBA" il faut rentrer le code

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Range("g3:g4"), Target) Is Nothing Then   Call Matri   End If End Sub

---

et à partir de ce moment des que tu feras un changement dans les feuilles W ou S ou dans les cellules G3 ou G4 de la feuille Act VBA la macro Matri sera lancer automatiquement

Salut,
J'ai fait exactement ce que tu m'as dit zyhack mais là j'ai une erreur de compilation : sur call Matri Sub ou fonction non définie.

Merci pour votre aide !!!
Mon problème c'était le fait que ma macro n'était pas dans un module mais dans Act VBA.
Encore merci.

Dans un module public:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Option Explicit Public S() As Double Public Sub Matri() Dim i As Integer, j As Integer, n As Integer, m As Integer   With Sheets("Act VBA") n = .Range("G3").Value m = .Range("G4").Value End With   ReDim S(1 To n, 1 To m)   For i = 1 To n For j = 1 To m S(i, j) = Sheets("S").Cells(3 + i - 1, 2 + j - 1).Value Next j Next i End Sub

---

Dans le module de ThisWorkBook

Code:

---

1 2 3 4 5

Option Explicit   Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If (Sh.Name = "Act VBA" And InStr("$G$3$G$4", Target.Address) > 0) Or InStr("SW", Sh.Name) > 0 Then Matri End Sub

---

ça fera l'affaire

Merci mercatog pour ta réponse, éffectivement il fallait mettre ma macro dans un module, j'ai aussi mis ton code dans thisworkbook et tout marche !
Encore merci pour votre précieuse aide les gars.