Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Selection de 2 plages de cellules discontinues

Selection de 2 plages de cellules discontinues

2 réponses
Avatar
Mike
Bonjour
Dans un projet VBA, j'ai 2 plages de cellules, une en=20
A1:A40 et une autre variable (cells(1,i),cells(40,i+9))=20
que je dois s=E9lectionner d'un seul bloc afin de faire un=20
printpreview sur un seul tableau.
Merci de votre aide
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ChrisV
Bonjour Mike,

Sub zaza()
Dim i As Integer
i = 3
Set maP = Union(Range("A1:A40"), Range(Cells(1, i), Cells(40, i + 9)))
maP.Copy Destination:=Sheets.Add.Range("A1")
Application.DisplayAlerts = False
With ActiveSheet
.PrintPreview
.Delete
End With
Application.DisplayAlerts = True
Set maP = Nothing
End Sub


ChrisV


"Mike" a écrit dans le message de
news: 039601c3d8e4$0bb15520$
Bonjour
Dans un projet VBA, j'ai 2 plages de cellules, une en
A1:A40 et une autre variable (cells(1,i),cells(40,i+9))
que je dois sélectionner d'un seul bloc afin de faire un
printpreview sur un seul tableau.
Merci de votre aide
Avatar
papou
Bonjour Mike
Avec Union :
Application.Union(Range("A1:A40"), Cells(1, i), Cells(40, i + 9)).Select
Cordialement
Pascal

"Mike" a écrit dans le message de
news:039601c3d8e4$0bb15520$
Bonjour
Dans un projet VBA, j'ai 2 plages de cellules, une en
A1:A40 et une autre variable (cells(1,i),cells(40,i+9))
que je dois sélectionner d'un seul bloc afin de faire un
printpreview sur un seul tableau.
Merci de votre aide