Sélectionné plusieurs range dans un même range

Utilisateur anonyme -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

j'aimerais choisir dans une feuille plusieurs ranges dans le même range dans le but d'imprimer ces sélection. Mon problème est que les cellules sélectionnées changes de position selon les informations qu'il y a dans la feuille. Ex: Je veux sélectionner de B1:i46 et ensuite, de B121:i153 mais ces cellules ne sont jamais les même. J'ai donc créer des variables pour ces cellules A et B.

Voici comment je sélectionne mes ranges:
range("B1:B46," A &":"& B).select

a = range("b" & ligne x).address et b = range("i" & ligne y).address
c = range("b" & ligne xx).address et d = range("i" & ligne yy).address

ça, sa fonctionne sans problème. Sauf que je dois ensuite aller chercher 2 autres range. Là ça ne fonctionne plus.

Voici comment je sélectionne mes ranges:
range("B1:B46," A &":"& B, C &":"& D).select

Lorsque je fais cela, si on suppose que D est 280, il sélectionne de B1 à I280 sans interruption.

Est-ce que quelqu'un pourrais me dire si c'est faisable et si oui comment?
Si ce n'est pas assez claire, je peux mettre tout le code au complet.

merci de votre aide.

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

exemple: 

Sub test()
    x = 1
    y = 2
    xx = 4
    yy = 6
    a = Range("b" & x).Address
    b = Range("i" & y).Address
    c = Range("b" & xx).Address
    d = Range("i" & yy).Address
    Range(a & ":" & b & "," & c & ":" & d).Select
End Sub
0

Discussions similaires

input signal out of range
marlene -
usman000 -

14 réponses
Ecran noir avec 'out of range" sous windows 10
SAPHIR13600 -
SAPHIR13600 -

5 réponses
comment désactiver out of range
lzri98 -
jeannets -

3 réponses
Problème écran "out of range" au démarrage
Nast79 -
cathy -

8 réponses
Problème d'allumage écran LG : "OUT OF RANGE"
roblaf -
MathiaMan25 -

3 réponses