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
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