Thibault98
XLDnaute Occasionnel
Bonsoir à tous,
Dans le code ci-dessous je voudrais ajouter une cible supplémentaire ( "feuil6" contenant un tableau appelé "tableau6" ) comment faire ?
Sur cette ligne :
Merci d'avance.
Thibault
Dans le code ci-dessous je voudrais ajouter une cible supplémentaire ( "feuil6" contenant un tableau appelé "tableau6" ) comment faire ?
Sur cette ligne :
Code:
With Feuil1.ListObjects("ReproSuivi")
Code:
Private Sub Worksheet_Activate()
Dim c As Range
Application.ScreenUpdating = False
With Feuil1.ListObjects("ReproSuivi")
If .ListRows.Count > 0 Then .DataBodyRange.Rows.Delete
For Each c In Feuil5.ListObjects("Saisies").ListColumns(1).Range
If c.Value = "OUI" Then
With .Range(.ListRows.Count + 2, 1)
.Value = c.Offset(0, 1)
End With
End If
Next c
End With
End Sub
Merci d'avance.
Thibault
Dernière édition: