Posez votre question Signaler

Recalcul sans fin [Résolu]

ppil 33Messages postés 1 octobre 2007Date d'inscription - Dernière réponse le 20 fév 2009 à 16:22
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
Lire la suite 

Recalcul sans fin »

4 réponses
Réponse
+0
moins plus
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.
Ajouter un commentaire
Réponse
+0
moins plus
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
Ajouter un commentaire
Réponse
+0
moins plus
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
ppil - 20 fév 2009 à 16:22
MAGNIFIQUE.

Merci et bon week-end
ppil
Ajouter un commentaire
Ce document intitulé « Recalcul sans fin » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
5 extensions si vous voulez revenir à l'ancien Facebook