Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Voici une solution un peu tarabiscotée. Note que j'ai utilisé l'évènement Worksheet Activate, mais tu peux aussi utiliser Workbook Open. Elle consiste à remplacer la formule par sa valeur tant que A1 n'a pas la valeur vrai.
Dans un module :
Public Val, Form
Dans la feuille :
Private Sub Worksheet_Activate() Val = [B1] Form = Range("B1").Formula Range("B1").ClearContents [B1] = Val End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target.Value = True Then Range("B1").Formula = Form Range("B1").Calculate Val = [B1] Range("B1").ClearContents [B1] = Val End If End Sub
"PatrickTELLIER" a écrit dans le message de news:
Dans la même feuille de calcul, comment temporiser le calcul d'une cellule par rapport à une autre ? Ex.: si L1C1= vrai, 10s après L1C2 se calcule .
Bonjour.
Voici une solution un peu tarabiscotée. Note que j'ai utilisé l'évènement
Worksheet Activate, mais tu peux aussi utiliser Workbook Open. Elle consiste
à remplacer la formule par sa valeur tant que A1 n'a pas la valeur vrai.
Dans un module :
Public Val, Form
Dans la feuille :
Private Sub Worksheet_Activate()
Val = [B1]
Form = Range("B1").Formula
Range("B1").ClearContents
[B1] = Val
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value = True Then
Range("B1").Formula = Form
Range("B1").Calculate
Val = [B1]
Range("B1").ClearContents
[B1] = Val
End If
End Sub
"PatrickTELLIER" <PatrickTELLIER@discussions.microsoft.com> a écrit dans le
message de news: 9D2ADBF4-117A-4DE0-95D8-B63945DA5DD9@microsoft.com...
Dans la même feuille de calcul, comment temporiser le calcul d'une cellule
par rapport à une autre ?
Ex.: si L1C1= vrai, 10s après L1C2 se calcule .
Bonjour. Voici une solution un peu tarabiscotée. Note que j'ai utilisé l'évènement Worksheet Activate, mais tu peux aussi utiliser Workbook Open. Elle consiste à remplacer la formule par sa valeur tant que A1 n'a pas la valeur vrai.
Dans un module :
Public Val, Form
Dans la feuille :
Private Sub Worksheet_Activate() Val = [B1] Form = Range("B1").Formula Range("B1").ClearContents [B1] = Val End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target.Value = True Then Range("B1").Formula = Form Range("B1").Calculate Val = [B1] Range("B1").ClearContents [B1] = Val End If End Sub
"PatrickTELLIER" a écrit dans le message de news:
Dans la même feuille de calcul, comment temporiser le calcul d'une cellule par rapport à une autre ? Ex.: si L1C1= vrai, 10s après L1C2 se calcule .
