Rechercher : dans
Par :

Recalcul sans fin

Dernière réponse le 20 fév 2009 à 16:22:01 ppil, le 19 fév 2009 à 13:50:34 
 Signaler ce message aux modérateurs

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

Configuration: Windows Vista
Internet Explorer 7.0
Excel 2003

Meilleures réponses pour « Recalcul sans fin » dans :
Télécharger Windows in a Box VoirNe perdez plus du temps à rechercher un réglage au sein du panneau de configuration. En utilisant Windows XP, vous devez passer par des centaines de clics sans fin à travers le système opérationnel pour configurer un réglage défini. Windows in a box...

1

Bidouilleu_R, le 19 fév 2009 à 14:39:23

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.

Répondre à Bidouilleu_R

2

ppil, le 19 fév 2009 à 17:00:01

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

Répondre à ppil

3

Bidouilleu_R, le 20 fév 2009 à 15:55:50

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

Répondre à Bidouilleu_R

4

 ppil, le 20 fév 2009 à 16:22:01

MAGNIFIQUE.

Merci et bon week-end
ppil

Répondre à ppil
Collection CommentÇaMarche.net