Discussion :

[Mr l'Ashanti]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LstRows As ListRow
    interception_Tableau Target, LstRows
End Sub

merci à vous