Bonjour,
j'essaye de mettre en place une fonction simple = supprimer les lignes d'un tableau ("Tableau4" de la feuille "COMMANDE") contenant le mot présent dans la cellule sélectionnée.
Les premières lignes du code me permettent d'imprimer une autre feuille selon la valeur de la cellule sélectionnée (ce code fonctionne).
Private Sub Imp_partielle_Click()
Sheets("PARTIELLE").Range("C3").Value = ActiveCell.Value
Sheets("PARTIELLE").PageSetup.Orientation = xlPortrait
Sheets("PARTIELLE").PrintOut Copies:=1, Collate:=True
Dim i As Integer
With ThisWorkbook.Sheets("COMMANDE")
For i = .Range("Tableau4[FOURNISSEUR]" & .Rows.Count).End(xlUp).Row To 2 Step -1
If .Range("Tableau4[FOURNISSEUR]" & i).Value = ActiveCell.Value Then
.Rows(i).Delete
End If
Next i
End With
End Sub
A priori, j'ai tout faux..
Qu'en pensez-vous ?