Discussion :

[buhrne]

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

[Minick]

Salut,

Pourquoi mettre un gestionnaire d'erreurs il suffit de tester:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub UserForm_Initialize()
    With Me
       .Colonne = Selection.Column
       .Ligne = Selection.Row
 
       .BesTech = Cells(.Ligne + 6, .Colonne).Value
       .ResaTech = Cells(.Ligne + 7, .Colonne).Value
 
       If Not Cells(.Ligne + 7, .Colonne).Comment Is Nothing Then .ListeTech = Cells(.Ligne + 7, .Colonne).Comment.Text
       If Not Cells(.Ligne + 8, .Colonne).Comment Is Nothing Then .BesMatos = Cells(.Ligne + 8, .Colonne).Comment.Text
    End With
End Sub

[buhrne]

Nickel

Je sais pas pourquoi, y'a des jours comme ça où on a besoin de se compliquer la vie.
Typiquement, c'est la première fois que je mettais en place une gestion d'erreur alors que d'habitude je mets toujours en début de code des lignes de test.

Et vlan !

Heureusement que l'on peut trouver un deuxième cerveau sur developpez.com !!!!

Merci.