Recalcul sans fin

Résolu
ppil Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   -  
ppil Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

3 réponses

Bidouilleu_R Messages postés 1181 Date d'inscription   Statut Membre Dernière intervention   295
 
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.
0
ppil Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   13
 
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
0
Bidouilleu_R Messages postés 1181 Date d'inscription   Statut Membre Dernière intervention   295
 
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
0
ppil Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   13
 
MAGNIFIQUE.

Merci et bon week-end
ppil
0