Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Pb d'exécution d'une macro

Pb d'exécution d'une macro

2 réponses
Avatar
Nicolas THIRY
Bonjour,
Quand la macro suivante s'exécute, le débogueur se met en route.
Comment puis-je résoudre le pb?
Merci pour votre aide.
Nicolas

If Target.Address = "$J$8" Then
Cells(65536, 4).End(xlUp).Offset(1, 0).Value = Range("J8").Value
ActiveCell.Offset(-1, 0).Select
Selection.ClearContents
End If
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonsoir Nicolas

Chez moi, cela fonctionne correctement (dans le module de la feuille)

Salutations
JJ

"Nicolas THIRY" a écrit dans le message news:
40210928$0$18963$
Bonjour,
Quand la macro suivante s'exécute, le débogueur se met en route.
Comment puis-je résoudre le pb?
Merci pour votre aide.
Nicolas

If Target.Address = "$J$8" Then
Cells(65536, 4).End(xlUp).Offset(1, 0).Value = Range("J8").Value
ActiveCell.Offset(-1, 0).Select
Selection.ClearContents
End If




Avatar
Philippe.R
Bonjour Nicolas,
Quelle est la ligne surlignée ?
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Nicolas THIRY" a écrit dans le message de
news:40210928$0$18963$
Bonjour,
Quand la macro suivante s'exécute, le débogueur se met en route.
Comment puis-je résoudre le pb?
Merci pour votre aide.
Nicolas

If Target.Address = "$J$8" Then
Cells(65536, 4).End(xlUp).Offset(1, 0).Value = Range("J8").Value
ActiveCell.Offset(-1, 0).Select
Selection.ClearContents
End If