chris6999
XLDnaute Impliqué
Bonjour le FORUM
Je tente de trouver un code pour sélectionner des plages non contiguës.
Le but est de sélectionner un première plage fixe de A1 à J42 et une plage variable (car je ne connais pas par avance le nombre de ligne) : L2 à X?(dernière ligne).
Voici le code que j'ai essayé de tester sans succès malheureusement
Sub test()
'Selectionne la plages à imprimer par rapport dernière cellule nion vide sous y
With Sheets("TEST")
Derlig = Sheets("TEST").Range("X" & Rows.Count).End(xlUp).Row
Dim pag1 As Range
Dim Pag2 As Range
pag1 = Range(Cells(1, "A"), Cells(43, "J"))
Pag2 = Range(Cells(2, "L"), Cells(Derlig, "Y"))
Union(pag1, Pag2).Select
End With
End Sub
Quelqu'un aurait-il une idée du pourquoi ça bloque?
Merci par avance pour votre aide
Bonne soirée à tous
Je tente de trouver un code pour sélectionner des plages non contiguës.
Le but est de sélectionner un première plage fixe de A1 à J42 et une plage variable (car je ne connais pas par avance le nombre de ligne) : L2 à X?(dernière ligne).
Voici le code que j'ai essayé de tester sans succès malheureusement
Sub test()
'Selectionne la plages à imprimer par rapport dernière cellule nion vide sous y
With Sheets("TEST")
Derlig = Sheets("TEST").Range("X" & Rows.Count).End(xlUp).Row
Dim pag1 As Range
Dim Pag2 As Range
pag1 = Range(Cells(1, "A"), Cells(43, "J"))
Pag2 = Range(Cells(2, "L"), Cells(Derlig, "Y"))
Union(pag1, Pag2).Select
End With
End Sub
Quelqu'un aurait-il une idée du pourquoi ça bloque?
Merci par avance pour votre aide
Bonne soirée à tous