Report de valeurs d'un tableau dans un autre tableau

bonjour forum...
je suis en plein exercice de niveau

je voudrais reporter les valeurs interceptées par le tableau dans un autre tableau sur la même feuille mais le rendu donne autre chose. il me renvoie la première ligne du tableau au fur à mesure.

Code:

---

1 2 3 4 5 6 7 8 9

Sub interception_Tableau(ByVal Plage As Range, LstRows As ListRow) 'For i = 1 To ListObjects(1).ListRows.Count If Not Intersect(Plage, ListObjects(1).DataBodyRange) Is Nothing Then Set LstRows = ListObjects(2).ListRows.Add LstRows.Range(1) = Range("tableau1[Colonne1]").Value   End If 'Next End Sub

---

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range) Dim LstRows As ListRow interception_Tableau Target, LstRows End Sub

---

merci à vous

Bonjour,

pas compris ce que tu essayes de faire.

Tu passes à interception_Tableau une variable LstRows qui est nulle systématiquement. Elle est initialisée par le sub, mais tu ne fais rien avec après dans l'appelant donc un dim local dans interception_Tableau la remplacerait aventageusement.

Je pense après que ton pb est par là :

Code:

---

LstRows.Range(1) = Range("tableau1[Colonne1]").Value

---

range("tableau1[Colonne1]").value doit retourner la première valeur de la colonne Colonne1 du premier tableau (en passant pourquoi changer le mode d'accès et ne pas rester en ListObjects(1).quelquechose ?). Apparemment ce n'est pas ce que tu veux faire.

Peut être simplement :

Code:

---

LstRows.Range(1) =Target.Value

---

Sinon précises ce que tu veux récupérer...

merci pour la réponse

je veux recuperer les valeurs de la premiere colonne dans le tableau2 au fur des saisies.

merci pour le pouce.
j'avais carrément oublié que l'interception est gérée par la variable plage.