Bonjour,
J'ai réalisé un bouton qui permet d'inserer une ligne, mais probléme quand j'active les filtres automatiques, mon bouton me renvoi une erreur 1004; Comment je pourrai résoudre ce pbm?
Est ce que quelqu'un a une idée?
voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub B_INSERTION_Click()
    lngLigne = ActiveCell.Row
    Range("A" & lngLigne & ":AZ" & lngLigne).Select
    selection.Insert Shift:=xlDown
    Range("D" & lngLigne & ":AP" & lngLigne).Select
    selection.Interior.Pattern = xlSolid
    Range("F" & lngLigne).Select
 
End Sub
Merci