Bonjour,

Voilà, j'ai un usf dont l'apparition est conditionnée (voir code plus bas).
Jusqu'ici pas de souci.
A l'ouverture de mon usf, je règle certains paramètres dont 2 textbox qui doivent se remplir avec le commentaire de cellules situées en dessous de la sélection. Je créé aussitôt une gestion d'erreur dans le cas où ma cellule n'a pas encore de commentaire.
Essai, je laisse délibérément les cellules sans commentaire.
Première erreur, la gestion se met en place et dans la gestion d'erreur je demande de retourner à la ligne 7 du code, ce qu'il fait, sauf qu'au moment d'exécuter la ligne 7 il me colle une erreur 440, erreur automation

Quelqu'un a une idée ??

Voici le code :

appel du usf :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Public Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If ActiveSheet.Cells(27, Target.Column) = 1 And ActiveSheet.Cells(Target.Row, 2) = 1 Then
    UsfResa.Show
End If
End Sub
code dans le usf :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Public Sub UserForm_Initialize()
On Error GoTo Fin
1 With Me
2    .Colonne = Selection.Column
3    .Ligne = Selection.Row
 
4    .BesTech = Cells(.Ligne + 6, .Colonne).Value
5    .ResaTech = Cells(.Ligne + 7, .Colonne).Value
6    .ListeTech = Cells(.Ligne + 7, .Colonne).Comment.Text
 
7    .BesMatos = Cells(.Ligne + 8, .Colonne).Comment.Text
8 End With
 
 
 
9 Fin:
10    If Err.Number = 91 Then
            If Erl() = 6 Then
                Me.ListeTech = ""
                GoTo 7
            End If
 
            If Erl() = 7 Then
                Me.BesMatos = ""
            End If
12    End If
End Sub