Discussion :

[Okoss]

Bonjour,
Je vous soumet un phénomène sur lequel je bloque.

Une UserForm s'ouvre grâce à une macro.
Cette UserForm contient des boutons et j'aimerais que l'un de ces boutons ne s'active que si la cellule active se trouve dans un range précis.

Voici le code de l'execution de la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
UserForm.Bouton.Enabled = False
    For Each cell In Range("C5:C50")
        If cell = ActiveCell Then
            UserForm.Bouton.Enabled = True
            Exit For
        End If
    Next
    UserForm.Show

Le phénomène qui se passe c'est que dans le range C5:C50 cela fontionne bien mais que dans le reste de la feuille le bouton est actif "si" la cellule est vide. Si la cellule est pleine, le bouton reste disable.
Normalement, en dehors de ce range, le bouton devrait "toujours" être disable et je ne vois pas le rapport entre ce phénomène et mon code.

Z'avez des Zidées ?

[SfJ5Rpw8]

voir fonction intersect :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
UserForm1.Bouton.Enabled = Not (Intersect(ActiveCell, Range("C5:C50")) Is Nothing)

[Okoss]

Désolé :p
Merci ^^