Astuces Excel
  1. Astuces Excel
  3. Utiliser la fonction union VBA pour append des cellules aux limites
Intereting Posts
Remplir datatables excel sur la page html Données de la date de transformation d'une colonne à plusieurs colonnes de 24 colonnes Trouver si la valeur dans la colonne A contient la valeur de la colonne B? Suppression de la ligne entière en fonction de la valeur de la cellule Insérer des lignes vides dans des colonnes pour correspondre à des lignes vides dans une colonne adjacente VBA raffine le code .PrintOut pour définir le nom de file pdf et l'location actuel Combinaison de feuilles / groupes de colonnes Excel par une condition dans Excel 2007 Comment append une ligne de tendance dans un tableau croisé dynamic? Comment générer toutes les dispositions de deux valeurs dans 5 colonnes à l'aide d'Excel? Obtenir des données de plusieurs feuilles dans un classur sélectionné VBA: Macro pour passer des lignes et remplissage automatique Créez plusieurs copys de files xlsx avec différents noms de files sur Mac Excel Copiez le text de la textbox et collez dans la cellule de la nouvelle feuille Accès à une table OPEN Excel via server lié dans SQL Server Excel – Wrap gamme de lignes dans une colonne donnée, avec la première colonne répétant pour la gamme de lignes

Utiliser la fonction union VBA pour append des cellules aux limites

J'essaie d'append certaines cellules à leurs gammes respectives en fonction de leur couleur intérieure en utilisant la méthode de l'union. Le code que j'utilise est le suivant: 

For Each cell In EntirePossibleRange If cell.Interior.Color = RGB(132, 151, 176) Then Set AccessabilityRange = Union(AccessabilityRange, Range("B" & cell.Row) Else If cell.Interior.Color = RGB(244, 176, 132) Then Set ConsistencyRange = Union(ConsistencyRange, Range("B" & cell.Row) Else If cell.Interior.Color = RGB(255, 217, 102) Then Set EfficacyRange = Union(EfficacyRange, Range("B" & cell.Row) Else cell.Interior.Color = RGB(191, 191, 191) Then Set WiderImpactsRange = Union(WiderImpactsRange, Range("B" & cell.Row) End If Next cell End Sub

Cependant, le code ne s'exécute pas et lance une erreur de syntaxe. Je ne peux pas comprendre quelle est l'erreur de syntaxe.

Vous pouvez append une fonction distincte pour éviter de répéter les mêmes controls de code à chaque fois: 

 Function JoinRanges(r1 As Range, r2 As Range) As Range If r1 Is Nothing Then Set JoinRanges = r2 Else If r2 Is Nothing Then Set JoinRanges = r1 Else Set JoinRanges = Union(r1, r2) End If End If End Function

alors votre code devient (j'utiliserais Select Case aussi;)): 

 For Each cell In EntirePossibleRange Select Case cell.Interior.Color Case RGB(132, 151, 176) Set AccessabilityRange = JoinRanges(AccessabilityRange, Range("B" & cell.Row)) Case RGB(244, 176, 132) Set ConsistencyRange = JoinRanges(ConsistencyRange, Range("B" & cell.Row)) Case RGB(255, 217, 102) Set EfficacyRange = JoinRanges(EfficacyRange, Range("B" & cell.Row)) Case RGB(191, 191, 191) Set WiderImpactsRange = JoinRanges(WiderImpactsRange, Range("B" & cell.Row)) End Select Next cell

Il serait plus clair d'utiliser Select Case et handle pour les plages non existantes, c'est-à-dire. 

 For Each cell In EntirePossibleRange Select Case cell.Interior.Color Case RGB(132, 151, 176) If Not AccessabilityRange Is Nothing Then Set Accessabilange = Union(AccessabilityRange, Range("B" & cell.Row)) Else Set Accessabilange = Range("B" & cell.Row) End If Case RGB(244, 176, 132) If Not ConsistencyRange Is Nothing Then Set ConsistencyRange = Union(ConsistencyRange, Range("B" & cell.Row)) Else Set SetConsistencyRange = Range("B" & cell.Row) End If 'étc Case Else 'other option here End Select Next cell