Soustraction de plages

[Troudz]

Bonsoir,

Voilà j'ai deux plages nommées GrandePlage et PetitePlage.
PetitePlage est intégralement inclues dans GrandePlage.
Je voudrais arriver à effacer l'intégralité des cellules de GrandePlage qui ne serait pas comprises dans PetitePlage.

J'ai bien essayé de faire une boucle sur chaque cellule de GrandePlage et vérifier (avec intersect) si elles sont comprises dans PetitePlage ou pas mais vu qu'à terme, ces plages devrait contenir un grand nombre de cellules, ma boucle va rapidement devenir très longue à exécuter.

N'y aurait il pas un moyen de définir une nouvelle plage correspondant à GrandePlage - PetitePlage en une seule opération ?

Merci pour votre aide et bonne nuit !

 

[mapomme]

Re : Soustraction de plages

BonsoirTroudz,

Sans répondre à votre question, une méthode (relativement rapide) ne bouclant que sur les cellules de la petite plage contenant une constante ou une formule.

Sub EffGdePlg()
Dim Petite, xCell As Range, i
Dim Clefs, Formules
    Application.ScreenUpdating = False
    Set Petite = CreateObject("Scripting.dictionary")
    For Each xCell In Range("petitePlage").SpecialCells(xlCellTypeConstants, 23)
        If Not Petite.Exists(xCell.Address) Then Petite.Add xCell.Address, xCell.Formula
    Next xCell
    For Each xCell In Range("petitePlage").SpecialCells(xlCellTypeFormulas, 23)
        If Not Petite.Exists(xCell.Address) Then Petite.Add xCell.Address, xCell.Formula
    Next xCell
    Range("grandePlage").ClearContents
    Clefs = Petite.keys
    Formules = Petite.items
    With Range("petiteplage").Parent
        For i = 0 To Petite.Count - 1
            .Range(Clefs(i)).Formula = Formules(i)
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

Edit: V2 pour gérer les formules de la petite plage dont le résultat est une valeur d'erreur.

 

[Troudz]

Re : Soustraction de plages

Bonsoir et merci mapomme, ça fait plaisir de trouver encore de l'aide à cette heure tardive.
Malheureusement j'ai peur que ta solution ne soit pas adaptable à mon cas.

En effet, au départ j'ai des données écrites dans la plage GrandePlage. Mon but est que, quand l'utilisateur défini PetitePlage, toutes les données contenues dans GrandePlage soient supprimées SAUF si elles sont dans PetitePlage.

Je ne pense donc pas que je puisse faire ça en bouclant sur PetitePlage.

Je suis étonné qu'il n'existe une opération consistant à faire
Plage_A_Effacer = GrandePlage - PetitePlage

 

[mapomme]

Re : Soustraction de plages

(re) Bonsoir,

L'as tu seulement essayé ?!?

Au bout du bout, c'est toi qui vois.

Edit: une méthode avec un objet scripting.dictionnary, une autre sans.