Recalcul sans fin Résolu/Fermé

Question

Bonjour,

J'ai un petit soucis avec cette macro en VBA depuis Excel:

Private Sub Worksheet_Change(ByVal Target As Range)
    If ActiveCell.Column = 7 Then
        Worksheets("Data pour planning").Cells(4, 5).Formula = _
        "='C:\test\[Planning semaine 8.xls]Planning semaine 8'!$F$110"
    End If
End Sub

Lorsque je fais un changement dans la colonne 7 de ma feuille Excel cette macro s'exécute et , ne s'arrête plus.
Dans la barre Excel en bas il m'indique Recalcul 100% et le sablier tourne, tourne et tourne....

Que puis-je faire?

Merci d'avance,
ppil

Bidouilleu_R · Answer

c'est normal! car le changement ocasionné par la formule entraine un repssage dans la boucle et 
le serpent se mord la queue....

écrit plutôt!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sur le changement de selection.

il y a d'autres solution en définissant une plage par exemple.

ppil · Answer

Merci Bidouilleu_R,

ça marche. Le serpent ne se mord plus la queue.

La solution pour définir sur une plage m'intéresse fortement.

Si tu as du temps, c'est avec plaisir que j'en prendrai conaissance.

Encore merci d'avance.

ppil

Bidouilleu_R · Answer

un petit exemple
If Not Intersect(Target, Range("B4:C19")) Is Nothing Then

'je place un code ici genre la celluleactive devient rouge et toutes les autres non pas de fond

End If

Recalcul sans fin

3 réponses

Discussions similaires