Mise à jour d'une fonction personnalisée

[natorp]

Bjr à tous et toutes

Je ne comprends pas pourquoi les fonctions personnalisées ne se mettent pas à jour instantanément dans les cellules B14 et B16, qd je supprime le contenu des cellules E2:E11, ou que je commence la saisie alors que toutes les cellules E2:E11 sont vides, les fonctions commencent à se mettre à jour seulement après la 2ème saisie.

Merci de votre aide, cordialement, Gérard

 

[piga25]

Re : Mise à jour d'une fonction personnalisée

Bonjour,

En remplaçant "Activate" par "Calculate" dans ce code cela devrait fonctionner

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte

For i = 2 To 11
If Cells(i, 5) = "" Then
ActiveSheet.Shapes("Ok" & i - 1).Visible = False
ActiveSheet.Shapes("Ko" & i - 1).Visible = False
Else
ActiveSheet.Shapes("Ok" & i - 1).Visible = Cells(i, 5) = Val(Cells(i, 2)) * Val(Cells(i, 4))
ActiveSheet.Shapes("Ko" & i - 1).Visible = Cells(i, 5) <> Val(Cells(i, 2)) * Val(Cells(i, 4))
End If
Next i

'Activate
Calculate
End Sub

 

[natorp]

Re : Mise à jour d'une fonction personnalisée

Merci piga25,

Je me doutais bien que je merd... quelque part...

Super, bonne aprèm, Gérard