supprimer la selection de page

O

oriop

Guest
Bonsoir le forum,

J'aimerais savoir si il est possible de supprimer la selection d'une page, pour mettre en variable une plage de cellules correspondant à une ligne filtrée prise entre les colonnes H et IV.

Pour l'instant j'utilise le code suivant :

Public Sub filtrage()
Dim fin As Integer

fin = Sheets('Matrice').Range('a65500').End(xlUp).Row
Sheets('Matrice').Select
Range('I6:H' & fin).SpecialCells(xlCellTypeVisible).EntireRow.Select

Set range_intersect = Application.Intersect(Selection, Range('I:IV'))
If range_intersect Is Nothing Then
MsgBox 'Pas de plage commune entre ' & Selection.Address & ' et ' & Range('I:IV').Address
End If
End Sub

si dans la parenthese je remplace Selection par Sheets('Matrice').
Range('I6:H' & fin).SpecialCells(xlCellTypeVisible).EntireRow

ca ne fonctionne pa :s

si quelqu'un ici a une solution à ce problème!

Merci d'avance
 

Discussions similaires

Réponses
2
Affichages
164

Statistiques des forums

Discussions
312 926
Messages
2 093 672
Membres
105 781
dernier inscrit
Dominique G.