Discussion :

[doremifaso]

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

[casefayere]

bonsoir,

je ne comprends pas, j'ai essayé ton code et je n'ai pas eu de problème

[Didier Gonard]

re
très vite fait, vois du côté de la propriété EntireRow, genre

Code :

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

 Range("a27").EntireRow.Select

tu dois sélectionner la ligne !

cordialement,
Didier

[doremifaso]

Bonjour,
Je t'explique Casefayere.
Au fait, si tu applique le code d'insertion sans qu'on active les filtres automatiques, on n'a pas d'erreur. Par contre, si on applique le même code après avoir activer les filtres et filtrer sur une donnée, on a une erreur.
voici le code d'activation des filtres:

Code :

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

1
2
3
4
5
6
7
8
Private Sub B_FILTRE_Click()
    lngColonne = ActiveCell.Column
    lngLigne = ActiveCell.Row
    lI = AtteindreDerniereLigne(5, "R4")
    Range("C4" & ":R" & lI).Select
    selection.AutoFilter
    Range("R4").Select
End Sub