XL 2010 [RESOLU] Sélection de colonnes multiples et séparées dans une range

youky(BJ)

XLDnaute Barbatruc

• 19 Août 2016

• #2

Bonjour,
Pas bien pigé le résultat attendu . . .
voici un exemple

Bruno

Code:

Set TSV = Workbooks.Open("C:\#\Database\amazon.TSV")
    Set amazon = TSV.Sheets(1)
    bas = amazon.Range("A" & Rows.Count).End(3).Row
    amazon.Range("E2:E" & bas & "," & "P2:P" & bas).Interior.Color = RGB(100, 100, 100)

 

Vote positif 0 Vote négatif

G

g.milano

XLDnaute Junior

• 19 Août 2016

• #3

Oui, effectivement, comme ca, c'est possible (j'y avais pensé mais c'est pénible a programmer) 😀
Je me demande pourquoi il n'est pas possible de faire une sélection multiple dans une range et avoir une formulation plus facile ou intuitive, respectant les ranges et leurs imbrications...

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Août 2016

• #4

Bonjour.
Comme ça qu'est ce que ça dit ? :

VB:

Intersect(amazon.[E:E,P:P], amazon.[2:1000000], amazon.UsedRange).Interior.Color = RGB(100, 100, 100)

Je suis quand même étonné que deetaa.Range("E:E,P: P").Interior.Color colore toute la feuille si deetaa n'est que l'UsedRange. Vous devriez mettre un espion sur deetaa.Address(External:=True) pour voir.

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 19 Août 2016

• #5

Hello,
Les ''xlCellTypeLastCell'' ou ''UsedRange'' sont à déconseiller
Bruno

 

Vote positif 0 Vote négatif

G

g.milano

XLDnaute Junior

• 22 Août 2016

• #6

Bonjour,

Dranreb à dit:

Bonjour.
Comme ça qu'est ce que ça dit ? :

VB:

Intersect(amazon.[E:E,P:P], amazon.[2:1000000], amazon.UsedRange).Interior.Color = RGB(100, 100, 100)

Cliquez pour agrandir...

oui, ça marche bien ça. Je ne connais absolument pas cette fonction.
Par contre, a quoi correspond cet affreux 1000000 ?

Dranreb à dit:

Je suis quand même étonné que deetaa.Range("E:E,P: P").Interior.Color colore toute la feuille si deetaa n'est que l'UsedRange. Vous devriez mettre un espion sur deetaa.Address(External:=True) pour voir.

Cliquez pour agrandir...

Je ne connais pas les espions non plus. Par contre, une précision : le "deetaa.Range("E:E,P: P").Interior.Color" colore seulement les 2 colonnes E et P, mais jusqu'en bas de la feuille (comme si j'avais écrit "amazon.Range("E:E,P: P").Interior.Color"). Alors qu'en faisant "deetaa.Columns("E:E").Interior.Color" ou bien "deetaa.Columns("E: P").Interior.Color", la coloration s’arrête bien a la limite de l'UserRange. Donc pourquoi "deetaa.Range("E:E,P: P")" ne se limite pas a l'UserRange et colore la colonne complète de la feuille ? Mystère.

youky(BJ) à dit:

Hello,
Les ''xlCellTypeLastCell'' ou ''UsedRange'' sont à déconseiller
Bruno

Cliquez pour agrandir...

Et en quoi est-ce déconseillé ? Je travaille avec des CSV de données pondu par un logiciel indépendant, donc je n'ai aucun risque d'erreur (il n'y a pas de données séparées, j'ai toujours un bloc calé en A1).

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Août 2016

• #7

C'est curieux, ça me semble être un bogue dans Excel.
Lors d'un arrêt, vous pouvez examiner la valeur d'une expression sélectionnée par Alt+DU.
1000000 c'est un peu moins du nombre de lignes maxi d'une feuille.

 

Vote positif 0 Vote négatif

G

g.milano

XLDnaute Junior

• 22 Août 2016

• #8

Alt+DU ? C'est quoi DU ??

Pourquoi utiliser le nombre de ligne maxi de la feuille ? Est-il possible d'utiliser une variable (integer ou long) a la place ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Août 2016

• #9

Alt+D affiche le menu Débogage,
Alt+U exécute la commande Ajouter un espion…
Pourquoi spécifier moins que le nombre de ligne maxi de la feuille, puisque c'est ramené de toute façon au numéro de la dernière ligne de UsedRange ?
Mais si vous préférez vous pouvez remplacer amazon.[2:1000000], amazon.UsedRange
par amazon.Rows(2).Resize(amazon.UsedRange.Rows.Count - 1) mais ce n'est pas plus simple !

 

Dernière édition: 22 Août 2016

Vote positif 0 Vote négatif

G

g.milano

XLDnaute Junior

• 22 Août 2016

• #10

Ah ok, c’était une combinaison de touches, merci.

Je ne comprends pas un truc dans votre intersect. Vous mettez 3 ranges, alors que 2 seulement devraient suffire, non ? L'intersection des colonnes et de ma range "naiyou", c'est bien ce que je veux ; alors pourquoi mettre une range supplémentaire utilisant toutes les lignes ? J'avoue ne pas comprendre la logique.

 

Vote positif 0 Vote négatif

G

g.milano

XLDnaute Junior

• 22 Août 2016

• #11

J'ai fait un test avec "Intersect(amazon.[E:E,P: P], naiyou).Interior.Color = RGB(100, 100, 100)", ben ça marche nickel 😀

Merci pour vos réponses et votre patience (et j'ai appris une nouvelle fonction, c cool 🙂)

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 22 Août 2016

• #12

Intersect accepte plus de 2 Range: il en détermine un qui représente la plus grande plage intégralement contenue dans toutes celles spécifiées. Mais si vous préférez décomposer en plusieurs instructions libre à vous. Surtout si vous avez aussi besoin ailleurs de Intersect(.[2:1000000], .UsedRange)

 

Dernière édition: 22 Août 2016

Vote positif 0 Vote négatif