Macro ouverture UF ne fonctionne pas

Version imprimable

Bonjour à tous,

J'ai mis en place ce code qui normalement lorsque je clique sur une cellule devrait s'ouvrir mais il fait de la résistance.
J'ai donc une feuille de calcule avec 21 colonnes remplies ainsi que 606 lignes.
Lorsque je clique sur un nom, un Uf doit s'ouvrir avec toutes les infos trouvées sur la ligne. Mais comme je l'ai déjà dit ça ne fonctionne pas, rien ne se passe.
Pouvez-vous m'apporter quelques éclairages s'il vous plait ?
Merci par avance
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub 'quand sélectionne un bloc, sinon oups! Fin = Range("A65536").End(xlUp).Row If Target.Column < 21 Then If Target.Row <= Fin + 1 And Target.Row > 1 Then FrmModAdhe.Show 1 End If End If End Sub

28/07/2009, 15h01
aalex_38

As tu utilisé le debogueur pour voir ou tu passes ?
28/07/2009, 15h03
NEC14

rien ne se passe, même pas une alerte :calim2:

la première cellule à sélectionner est en C3 de la feuille "Adhé". Je viens de faire un nouveau test ce message d'erreur apparaît :
"Erreur définie par l'application ou par l'objet" sur la ligne FrmModAdhe.Show

J'ai trouvé l'erreur. J'avais oublié une ligne de macro.
Voici le code au complet :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub 'quand sélectionne un bloc, sinon oups!
    Fin = Range("A65536").End(xlUp).Row
    
    If Target.Column < 21 Then
        If Target.Row <= Fin + 1 And Target.Row > 3 Then
        Ligne = Target.Row
       FrmModAdhe.Show 1
        End If
    End If
End Sub