Recalcul sans fin
Résolu
ppil
Messages postés
34
Statut
Membre
-
ppil Messages postés 34 Statut Membre -
ppil Messages postés 34 Statut Membre -
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
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
Configuration: Windows Vista Internet Explorer 7.0 Excel 2003
3 réponses
-
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. -
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 -
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
