Bonjour,
A partir d'un double clic sur une cellule d'une ligne de la feuille WS5, j'ai un userform qui renvoie les valeurs de la ligne active ainsi que des valeurs choisies sur une feuille WS2, le tout étant renvoyé sur la dernière ligne d'un tableau présent sur la feuille WS3. Tout allait à la perfection jusqu'à ce que je modifie le tableau de destination en activant la case "ligne des totaux" dans la mise en forme. Depuis, une erreur d'exécution 13 apparaît. Je pense que la ligne des totaux ne permet plus au code de retrouver la dernière ligne de données du tableau de destination. Le code est en surbrillance jaune à l'endroit "Userform1.show". Quelqu'un sait-il comment je dois modifier le code?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim isect
Set isect = Application.Intersect(Target, Range("A2:M" & Cells(Rows.Count, 1).End(xlUp).Row))
If Not isect Is Nothing Then
Cancel = True
Ligne = Target.Row
DerLWs3 = Ws3.Cells(Rows.Count, 1).End(3)(2).Row 'Définit la dernière ligne sans valeurs de la feuille "WS3. C'est à mon avis ici qu'il y a maintenant un problème avec la ligne des totaux"
Ws2.Activate
Set Feuille = Ws5
UserForm1.Show
End If
End Sub
A partir d'un double clic sur une cellule d'une ligne de la feuille WS5, j'ai un userform qui renvoie les valeurs de la ligne active ainsi que des valeurs choisies sur une feuille WS2, le tout étant renvoyé sur la dernière ligne d'un tableau présent sur la feuille WS3. Tout allait à la perfection jusqu'à ce que je modifie le tableau de destination en activant la case "ligne des totaux" dans la mise en forme. Depuis, une erreur d'exécution 13 apparaît. Je pense que la ligne des totaux ne permet plus au code de retrouver la dernière ligne de données du tableau de destination. Le code est en surbrillance jaune à l'endroit "Userform1.show". Quelqu'un sait-il comment je dois modifier le code?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim isect
Set isect = Application.Intersect(Target, Range("A2:M" & Cells(Rows.Count, 1).End(xlUp).Row))
If Not isect Is Nothing Then
Cancel = True
Ligne = Target.Row
DerLWs3 = Ws3.Cells(Rows.Count, 1).End(3)(2).Row 'Définit la dernière ligne sans valeurs de la feuille "WS3. C'est à mon avis ici qu'il y a maintenant un problème avec la ligne des totaux"
Ws2.Activate
Set Feuille = Ws5
UserForm1.Show
End If
End Sub