Discussion :

[NEC14]

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 :

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

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

[aalex_38]

As tu utilisé le debogueur pour voir ou tu passes ?

[NEC14]

rien ne se passe, même pas une alerte

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

[NEC14]

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

Code :

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

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