Annuler un événement selection_change

Question

Salut à tous,

J'aurai voulu savoir s'il existait une méthode pour annuler la séléction de l'utilisateur.
Par exemple pour l'évenement Worksheet_change, on peut utiliser application.undo pour revenir en arrière.

Existe-t-il quelque chose de similaire pour que la cellule active reste celle d'avant la séléction.
(je suis pas sûr que je sois très clair, mais en gros j'ai mis des conditions dans mon selection_change et je voudrais que si ces conditions ne sont pas respectées, alors l'utilisateur ne peux pas sélectionner une autre cellule.

Merci d'avance.

bigfish_le vrai · Answer

Salut,

un exemple à adapter :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        If Not PrevCell Is Nothing Then
            If Intersect(Target, PrevCell) Is Nothing Then
                If Not PrevCell.Value = 1 Then PrevCell.Select
            End If
        Else
           Set PrevCell = Target
        End If
    End If
End Sub

A+

bigfish_le vrai · Answer

oups j'ai oublier de te dire d'ajouter à ton projet une variable public :

à mettre en haut d'un module:

Public PrevCell as Range

A+

Joelatack · Answer

Nickel Merci.

J'ai juste adapter un peu car en déclarant PrevCell de type range et en utilisant PrevCell.Select j'avais une erreur.

Du coup j'ai déclaré PrevCell de type String et j'ai utilisé 

Application.goto MaFeuille.range(PrevCell)


Voila merci a+

Annuler un événement selection_change

3 réponses

Votre réponse

Discussions similaires