Squoltahthx94
XLDnaute Occasionnel
Bonjour,
Avec mon bouton mise à jour tableau je souhaite supprimer toute les lignes qui ne sont pas en jaune : mais le système me répond "imcompat........." mais je ne vois pas mon erreur qq 1 une idée??
Mon Code :
Mon Classeur :
Avec mon bouton mise à jour tableau je souhaite supprimer toute les lignes qui ne sont pas en jaune : mais le système me répond "imcompat........." mais je ne vois pas mon erreur qq 1 une idée??
Mon Code :
Code:
Private Sub BtSuppLignes_Click()
Dim n As integrer
For n = Range("b31").End(xlUp).Row To 13 Step -1
If Range("B" & n) <> Range("d10") Then Rows(n).Delete
Next n
End Sub
Mon Classeur :