Interdire exécution macro si sélection en dehors de la plage

iStarOSX · 5 Juillet 2011

Bonsoir a tous.

J'ai cherche sur le forum depuis quelque temps la solution a mon problème.

Voila j'ai un userform (ouvert en modal) qui comprend un bouton permettant de supprimer les lignes complète des cellules sélectionnées.

Hors je voudrais que cette macro ne s’exécute que si les cellules sélectionnées sont dans la plage ("F100:G65365").

Si une cellule est sélectionnée en dehors de cette plage, la ligne de cette cellule ne doit pas être supprimée (il y a des données dans la Plage ("A1:G99").

Nota : la solution de verrouiller les cellules de la plage ("A1:G99") ne marche pas car mon classeur est déjà verrouillé et ma macro déverrouille ma feuille, exécute la suppression de ligne et re-verrouille ma feuille. Donc ce n'est pas une solution.

Si quelqu’un a le bout de code a rajouter a ma macro, merci d'avance.

Victor21 · 5 Juillet 2011

Re : Interdire exécution macro si sélection en dehors de la plage

Bonjour, istarOSX.

Il suffit de tester que

...les cellules sélectionnées sont dans la plage ("F100:G65365")...

et de sortir si ce n'est pas le cas.

Mytå · 5 Juillet 2011

Salut le forum

Pour t'inspirer un peu

Code:

Sub Test()
    VerifIntersection Range("A1")
    VerifIntersection Range("B10")
End Sub


Sub VerifIntersection(Cellule As Range)
    Dim Plage As Range
    
    'Définit la plage de référence
    Set Plage = Range("A5:B15")
    
    If Not Intersect(Plage, Cellule) Is Nothing Then
         MsgBox Cellule.Address & " appartient à la plage " & Plage.Address
        Else
         MsgBox Cellule.Address & " n'appartient pas à la plage " & Plage.Address
    End If
End Sub

Mytå

iStarOSX · 5 Juillet 2011

Re : Interdire exécution macro si sélection en dehors de la plage

Merci pour votre coup de main a tous les 2.

Je pense qu'avec le code Mytå je devrais arriver a quelque chose.

Merci encore et a une prochaine sur XLD

Interdire exécution macro si sélection en dehors de la plage

iStarOSX

XLDnaute Junior

Victor21

XLDnaute Barbatruc

Mytå

XLDnaute Occasionnel

iStarOSX

XLDnaute Junior

Discussions similaires