Sujet Précédent Sujet Suivant

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

Fermé
infodes Messages postés 49 Date d'inscription mardi 26 novembre 2013 Statut Membre Dernière intervention 15 avril 2021 - Modifié par infodes le 2/06/2014 à 21:47
f894009 Messages postés 16866 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 31 janvier 2023 - 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.

1 réponse

Réponse 1 / 1
f894009 Messages postés 16866 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 31 janvier 2023 1 679
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
0