Bonjour,
Je me trouve confronté a un soucis avec une sélection de colonnes multiples.
Tout d'abord mon environnement :
Jusque la, rien de sorcier.
Mon objectif : sélectionner diverses colonnes (qui ne sont pas toujours contigües, évidemment) pour y faire diverses choses (couleurs, manipulation de chaines alphanumériques : remplacement/ajout/suppression) de mon tableau de données SANS la première ligne de titre (d’où ma dernière range "naiyou").
Et bien évidemment cette dernière me pose soucis.
Je vous liste ci-dessous les différentes combinaisons que j'ai essayé et leur résultat :
amazon.Columns("E:E,P: P").Interior.Color = RGB(100, 100, 100) ERR13
amazon.Range("E:E,P: P").Interior.Color = RGB(100, 100, 100) OK
deetaa.Columns("E:E,P: P").Interior.Color = RGB(100, 100, 100) ERR13
deetaa.Range("E:E,P: P").Interior.Color = RGB(100, 100, 100) OK/NOK : colorie la colonne MAIS sur toute la feuille (alors que deetaa est l'UsedRange)
naiyou.Columns("E:E,P: P").Interior.Color = RGB(100, 100, 100) ERR13
naiyou.Range("E:E,P: P").Interior.Color = RGB(100, 100, 100) ERR1004 !!
N'arrivant pas à trouver la bonne expression, je me tourne vers vous.
Merci pour votre aide m(_ _)m
Je me trouve confronté a un soucis avec une sélection de colonnes multiples.
Tout d'abord mon environnement :
VB:
Set TSV = Workbooks.Open("C:\#\Database\amazon.TSV")
Set amazon = TSV.Sheets(1)
Set deetaa = amazon.UsedRange
retsu = deetaa.Rows.Count
Set naiyou = deetaa.Range("A2:AU" & retsu)
Jusque la, rien de sorcier.
Mon objectif : sélectionner diverses colonnes (qui ne sont pas toujours contigües, évidemment) pour y faire diverses choses (couleurs, manipulation de chaines alphanumériques : remplacement/ajout/suppression) de mon tableau de données SANS la première ligne de titre (d’où ma dernière range "naiyou").
Et bien évidemment cette dernière me pose soucis.
Je vous liste ci-dessous les différentes combinaisons que j'ai essayé et leur résultat :
amazon.Columns("E:E,P: P").Interior.Color = RGB(100, 100, 100) ERR13
amazon.Range("E:E,P: P").Interior.Color = RGB(100, 100, 100) OK
deetaa.Columns("E:E,P: P").Interior.Color = RGB(100, 100, 100) ERR13
deetaa.Range("E:E,P: P").Interior.Color = RGB(100, 100, 100) OK/NOK : colorie la colonne MAIS sur toute la feuille (alors que deetaa est l'UsedRange)
naiyou.Columns("E:E,P: P").Interior.Color = RGB(100, 100, 100) ERR13
naiyou.Range("E:E,P: P").Interior.Color = RGB(100, 100, 100) ERR1004 !!
N'arrivant pas à trouver la bonne expression, je me tourne vers vous.
Merci pour votre aide m(_ _)m