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

Fermé

infodes Messages postés 50 Date d'inscription mardi 26 novembre 2013 Statut Membre Dernière intervention 21 décembre 2023 - Modifié par infodes le 2/06/2014 à 21:47
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 3 juin 2014 à 08:47

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.

A voir également:

Sélectionné plusieurs range dans un même range
Input signal out of range change settings to 1600x900-60hz - Forum Windows
D'sub out of range - Forum Ecran
Out of range - Forum Windows
Ecran noir avec 'out of range" sous windows 10 - Forum Ecran
Erreur 1004 vba range ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
3 juin 2014 à 08:47

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

Discussions similaires

input signal out of range

VBA : Range avec références variables..

[Ecran tft] "out of range au démarrage

comment désactiver out of range

VBA Methode range a échouée

Discussions similaires

Newsletters