[RESOLU] Aide pour définition d'une plage en VBA

[Ternoise]

Bonjour le forum

J'utilisais ces lignes pour définir une plage.

Dim MaPlage As Range

Set MaPlage = Feuil1.Range("B9", [B65536].End(xlUp))
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)

Maintenant, j'aimerais changer et définir les colonnes B à N mais sans la colonne C.

Comment faire ?

Merci de votre aide

David

 

[pierrejean]

Re : Aide pour définition d'une plage en VBA

Bonjour Ternoise

Teste:

Set Maplage = Application.Union(Range("B9", [B65536].End(xlUp)), Range("D9:N" & [B65536].End(xlUp).Row))
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)

 

[gilbert_RGI]

Re : Aide pour définition d'une plage en VBA

Bonjour

a tester

Sub test2()
Dim plage As Range
maxrow = 1000 ' à adapter
Set plage = Union(Sheets(1).Range(Cells(9, 2), Cells(maxrow, 2)), Sheets(1).Range(Cells(9, 4), Cells(maxrow, 14)))
plage.Select
End Sub

EDIT : Bonjour Pierrejean

 

[job75]

Re : Aide pour définition d'une plage en VBA

Bonjour Ternoise,

C'est la 2ème fois en 2 jours que vous oubliez un Feuil1...

Set MaPlage = Intersect(Feuil1.[B:B,D:N], Feuil1.Range("9:9", Feuil1.[B65536].End(xlUp)))
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)

Edit : salut Pierre et Gilbert 🙂

A+

 

[Ternoise]

Re : Aide pour définition d'une plage en VBA

Bonjour à vous trois et merci. Je vais essayer d'adapter. A bientôt surement !

Job75, décidément, j'y arrive pas avec les Feuil1 ! je me suis permis de mettre un message en privé. Je sais pas si cela a fonctionné.

Bien à vous
David