Astuces Excel
  1. Astuces Excel
  3. Construire une «gamme» contenant une cellule à plusieurs resockets
Intereting Posts
La «string de dépendance» d'Excel a-t-elle augmenté ou diminué? Script de l'application Gmail Ajouter BCC à partir de la feuille de calcul "Récupération de l'usine de class COM pour le composant … erreur: 80070005 Accès refusé." (Exception de HRESULT: 0x80070005 (E_ACCESSDENIED)) Déplacer les feuilles récemment créées dans le nouveau classur comment restreindre le caractère dans une cellule particulière dans microsoft excel ou libre office calc Copier datatables Excel de plusieurs feuilles de travail en une seule feuille La macro de boucle Excel se termine tôt et nécessite de garder les files ouverts pour copyr plusieurs loops (différents files) Créer un file PDF de la première page dans une feuille Excel Effacer l'object de collecte ou récupérer le dernier élément Impossible de définir une couleur personnalisée dans XIDFCell Apache POI Comment get des données du server SQL à un DataGridView puis à Excel Formule pour la search d'un logging si trouvé il ajoute 1 autre chose, il fait un nouvel logging Python (openpyxl): Accès à différents classurs par formule Comment mettre à jour dynamicment les légendes d'labels sous forme VBA? Convertir degrés minutes en degrés décimaux

Construire une «gamme» contenant une cellule à plusieurs resockets

Je peux facilement build une plage dans laquelle la même cellule apparaît deux fois (dans ce cas, cellule B1): 

Sub IAmTheCount() Dim r1 As Range, r2 As Range, r3 As Range Set r1 = Range("A1:B1") Set r2 = Range("B1:B2") Set r3 = Union(r1, r2) MsgBox r3.Count End Sub

Comment puis-je build une plage dans laquelle la même cellule apparaît plus de deux fois?

Je ne sais pas si je suis à l'intérieur de votre tête ou pas avec cela, mais cela semble countr et inclure la cellule B1 trois fois et agir comme une gamme explicite. 

 Sub IAmTheCount() Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range Set r1 = Range("A1:B1") Set r2 = Range("B1:B5") Set r3 = Range("B1:C2") Set r4 = Union(r1, r2, r3) MsgBox r4.Count & " - " & r4.Address r4.Interior.ColorIndex = 4 End Sub Sub IAmTheCount () Sub IAmTheCount() Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range Set r1 = Range("A1:B1") Set r2 = Range("B1:B5") Set r3 = Range("B1:C2") Set r4 = Union(r1, r2, r3) MsgBox r4.Count & " - " & r4.Address r4.Interior.ColorIndex = 4 End Sub Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range Sub IAmTheCount() Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range Set r1 = Range("A1:B1") Set r2 = Range("B1:B5") Set r3 = Range("B1:C2") Set r4 = Union(r1, r2, r3) MsgBox r4.Count & " - " & r4.Address r4.Interior.ColorIndex = 4 End Sub Définir r1 = Plage ("A1: B1") Sub IAmTheCount() Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range Set r1 = Range("A1:B1") Set r2 = Range("B1:B5") Set r3 = Range("B1:C2") Set r4 = Union(r1, r2, r3) MsgBox r4.Count & " - " & r4.Address r4.Interior.ColorIndex = 4 End Sub Régler r2 = Plage ("B1: B5") Sub IAmTheCount() Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range Set r1 = Range("A1:B1") Set r2 = Range("B1:B5") Set r3 = Range("B1:C2") Set r4 = Union(r1, r2, r3) MsgBox r4.Count & " - " & r4.Address r4.Interior.ColorIndex = 4 End Sub Définir r3 = Plage ("B1: C2") Sub IAmTheCount() Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range Set r1 = Range("A1:B1") Set r2 = Range("B1:B5") Set r3 = Range("B1:C2") Set r4 = Union(r1, r2, r3) MsgBox r4.Count & " - " & r4.Address r4.Interior.ColorIndex = 4 End Sub Définir r4 = Union (r1, r2, r3) Sub IAmTheCount() Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range Set r1 = Range("A1:B1") Set r2 = Range("B1:B5") Set r3 = Range("B1:C2") Set r4 = Union(r1, r2, r3) MsgBox r4.Count & " - " & r4.Address r4.Interior.ColorIndex = 4 End Sub MsgBox r4.Count & "-" & r4.Address Sub IAmTheCount() Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range Set r1 = Range("A1:B1") Set r2 = Range("B1:B5") Set r3 = Range("B1:C2") Set r4 = Union(r1, r2, r3) MsgBox r4.Count & " - " & r4.Address r4.Interior.ColorIndex = 4 End Sub r4.Interior.ColorIndex = 4 Sub IAmTheCount() Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range Set r1 = Range("A1:B1") Set r2 = Range("B1:B5") Set r3 = Range("B1:C2") Set r4 = Union(r1, r2, r3) MsgBox r4.Count & " - " & r4.Address r4.Interior.ColorIndex = 4 End Sub