Qui évidement ne se touchent pas. J'ai besoin de les selectionner toutes les
trois pour les copier et transposées ailleurs. En fait, faire l'équivalent de
selection multiple en maintenant la touche Ctrl enfoncée.
Problème : Range n'accepte que 2 valeurs, et j'en ai 3. J'ai essayé de les
nommer
Dim A
A = Range("A5", [A5].End(xlDown).Offset(0, 2))
Dim B
B = Range("E5", [E5].End(xlDown))
Dim C
C = Range("G5", [G5].End(xlDown).Offset(0, 1))
Mais le problème reste entier car je ne peux pas faire
range("a,b,c").select, car ça fait 3 éléments, et ça ne lui plait pas...
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
isabelle
bonjour vswildcat,
Dim A As Range, B As Range, G As Range, bigRange As Range Set A = Range("A5", [A5].End(xlDown).Offset(0, 2)) Set B = Range("E5", [E5].End(xlDown)) Set C = Range("G5", [G5].End(xlDown).Offset(0, 1)) Set bigRange = Application.Union(A, B, C) bigRange.Select
mais tu ne peut pas copier une union de plage, tu dois les copier une à une.
Qui évidement ne se touchent pas. J'ai besoin de les selectionner toutes les trois pour les copier et transposées ailleurs. En fait, faire l'équivalent de selection multiple en maintenant la touche Ctrl enfoncée.
Problème : Range n'accepte que 2 valeurs, et j'en ai 3. J'ai essayé de les nommer Dim A A = Range("A5", [A5].End(xlDown).Offset(0, 2)) Dim B B = Range("E5", [E5].End(xlDown)) Dim C C = Range("G5", [G5].End(xlDown).Offset(0, 1)) Mais le problème reste entier car je ne peux pas faire range("a,b,c").select, car ça fait 3 éléments, et ça ne lui plait pas...
Comment faire ?
Par avance merci
bonjour vswildcat,
Dim A As Range, B As Range, G As Range, bigRange As Range
Set A = Range("A5", [A5].End(xlDown).Offset(0, 2))
Set B = Range("E5", [E5].End(xlDown))
Set C = Range("G5", [G5].End(xlDown).Offset(0, 1))
Set bigRange = Application.Union(A, B, C)
bigRange.Select
mais tu ne peut pas copier une union de plage, tu dois les copier une à une.
Qui évidement ne se touchent pas. J'ai besoin de les selectionner toutes les
trois pour les copier et transposées ailleurs. En fait, faire l'équivalent de
selection multiple en maintenant la touche Ctrl enfoncée.
Problème : Range n'accepte que 2 valeurs, et j'en ai 3. J'ai essayé de les
nommer
Dim A
A = Range("A5", [A5].End(xlDown).Offset(0, 2))
Dim B
B = Range("E5", [E5].End(xlDown))
Dim C
C = Range("G5", [G5].End(xlDown).Offset(0, 1))
Mais le problème reste entier car je ne peux pas faire
range("a,b,c").select, car ça fait 3 éléments, et ça ne lui plait pas...
Dim A As Range, B As Range, G As Range, bigRange As Range Set A = Range("A5", [A5].End(xlDown).Offset(0, 2)) Set B = Range("E5", [E5].End(xlDown)) Set C = Range("G5", [G5].End(xlDown).Offset(0, 1)) Set bigRange = Application.Union(A, B, C) bigRange.Select
mais tu ne peut pas copier une union de plage, tu dois les copier une à une.
Qui évidement ne se touchent pas. J'ai besoin de les selectionner toutes les trois pour les copier et transposées ailleurs. En fait, faire l'équivalent de selection multiple en maintenant la touche Ctrl enfoncée.
Problème : Range n'accepte que 2 valeurs, et j'en ai 3. J'ai essayé de les nommer Dim A A = Range("A5", [A5].End(xlDown).Offset(0, 2)) Dim B B = Range("E5", [E5].End(xlDown)) Dim C C = Range("G5", [G5].End(xlDown).Offset(0, 1)) Mais le problème reste entier car je ne peux pas faire range("a,b,c").select, car ça fait 3 éléments, et ça ne lui plait pas...
