Astuces Excel
  1. Astuces Excel
  3. Sélection de gammes multiples à partir d'une string de plages
Intereting Posts
VBA Rows Variables de propriétés Nettoyer la list des domaines dans Excel – regex / macros? Le formatting conditionnel d'Excel ne correspond pas à la formule Sortie TRUE / FALSE Quel est le but de la nouvelle fonction DAYS () dans Excel 2013? Impossible de sélectionner la cellule contient la date d'aujourd'hui Une macro Excel qui supprime les lignes si certaines valeurs existent dans une cellule, puis concaténera-t-elle? Comment déclarer la variable statique pour Module de class dans VBA? excel vba accéder aux feuilles de travail Cellule de lecture avec format de excel dans c # Comment copyr le formatting conditionnel lors de la copy de la valeur dans si vérifier? Trouver la valeur la plus basse dans une cellule Excel VBA Excel 2013 VBA – Loop à travers un set de données et appliquez mon code à une autre feuille Déplacer des données vers des colonnes adjacentes en fonction de la date (mois) de la valeur S3 path imprimé incorrectement par le lecteur Excel Impossible d'insert des données au format de nombre dans Excel

Sélection de gammes multiples à partir d'une string de plages

J'essaie de sélectionner plusieurs plages en même time. C'est à dire. B2: C2, B12: C12, B14: C14.

Code mis à jour 

Sub MarkForDMSLookup() Dim MarkingSsortingng As Ssortingng Dim MarkingRange As Ssortingng j = 0 For i = 3 To 20 'LastRow() If Cells(i, 5) = "Yes" Then j = j + 1 MarkingRange = "B" & i & ":C" & i 'MsgBox MarkingRange If j = 1 Then MarkingSsortingng = MarkingRange If j > 1 Then MarkingSsortingng = MarkingSsortingng & ", " & MarkingRange If Cells(i, 5) = "No" Then Cells(i, 5).EntireRow.Hidden = True End If Next i 'MsgBox MarkingSsortingng Union(MarkingSsortingng).Select End Sub

La balise Union me donne une inadéquation de type . Toute aide à l'alignment des types serait grandement appréciée.

En limitant la boucle pour passer de 2 à 20, je peux utiliser la balise Range au lieu de Union .

Je voudrais simplement utiliser un autofilter au lieu de boucler: 

 Sub MarkForDMSLookup() Dim j As Long j = 0 With Range("E2:E" & LastRow()) .AutoFilter field:=1, Criteria1:="Yes" On Error Resume Next .Resize(.Rows.Count - 1).Offset(1, -3).Resize(, 2).SpecialCells(xlCellTypeVisible).Select On Error GoTo 0 End With End Sub Function LastRow() LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row End Function 
 Sub MarkForDMSLookup() Dim MarkingSsortingng As Ssortingng, _ MarkingRange As Ssortingng, _ FirstRun As Boolean, _ RgMarking As Range, _ RgTotal As Range, _ CounT As Long, _ ToTaL As Long FirstRun = True CounT = 0 ToTaL = 0 Set RgTotal = Nothing For i = 3 To LastRow If Cells(i, 5) <> "Yes" Then If Cells(i, 5) = "No" Then Cells(i, 5).EntireRow.Hidden = True Else MarkingRange = "B" & i & ":C" & i CounT = CounT + 1 ToTaL = ToTaL + 1 If FirstRun Then MarkingSsortingng = MarkingRange FirstRun = False Else MarkingSsortingng = MarkingSsortingng & ", " & MarkingRange End If If CounT <> 20 Then Else On Error GoTo ErrHandler Set RgMarking = Range(MarkingSsortingng) Set RgTotal = Union(RgTotal, RgMarking) On Error GoTo 0 MarkingSsortingng = vbNullSsortingng FirstRun = True CounT = 0 End If End If Next i Set RgTotal = Union(RgTotal, RgMarking) RgTotal.Select Exit Sub ErrHandler: MsgBox Err.Description & vbCrLf & Err.Number Resume Next End Sub