NicolasBB
XLDnaute Nouveau
Bonjour à toutes et à tous,
Je ne pense pas être très explicite avec mon titre, je vous expose donc mon problème :
J'utilise un Userform pour rentrer des données dans un tableau. Ces données sont ensuite analysées par une formule située sur la même feuille que le tableau de données (une simple formule moyenne).
Seulement, lors de l'ajout de valeurs dans le tableau par le Userform (qui lui fonctionne parfaitement), le résultat de ma moyenne ne se mets pas à jour tout seul. Il faut que je rentre dans la cellule puis la revalide avec [Enter] afin de mettre à jour le résultat. (??)
Evidemment mes options sont sur le calcul de la feuille automatique, et j'ai même ajouté dans le userform, pour tester, le code pour recalculer la feuille automatiquement a la fin du calcul.
Je suis donc un peu dans le flou.. Si vous avez des idées elle seraient les bienvenues.
Pour information, voici le code du userform servant à l'import des données :
Merci par avance de vos réponses
Je ne pense pas être très explicite avec mon titre, je vous expose donc mon problème :
J'utilise un Userform pour rentrer des données dans un tableau. Ces données sont ensuite analysées par une formule située sur la même feuille que le tableau de données (une simple formule moyenne).
Seulement, lors de l'ajout de valeurs dans le tableau par le Userform (qui lui fonctionne parfaitement), le résultat de ma moyenne ne se mets pas à jour tout seul. Il faut que je rentre dans la cellule puis la revalide avec [Enter] afin de mettre à jour le résultat. (??)
Evidemment mes options sont sur le calcul de la feuille automatique, et j'ai même ajouté dans le userform, pour tester, le code pour recalculer la feuille automatiquement a la fin du calcul.
Je suis donc un peu dans le flou.. Si vous avez des idées elle seraient les bienvenues.
Pour information, voici le code du userform servant à l'import des données :
Code:
Private Sub energie_ajout_Click()
Dim Arr, L As Long, C As Integer
If Me.liste_energie = "" Then
MsgBox "N'oubliez pas de selectionner un compteur !"
Exit Sub
End If
If Me.liste_energie = "Choisir un compteur d'énergie" Then
MsgBox "N'oubliez pas de selectionner un compteur !"
Exit Sub
End If
If Not IsDate(Me.date_energie) Then
MsgBox "N'oubliez pas de rentrer une date correcte !"
Exit Sub
End If
With Worksheets("DATA2")
If Me.valeur_energie <> "" And IsNumeric(valeur_energie) Then
For i = 1 To 20
If .Cells(1, i).Value = Me.liste_energie Then
.Cells(Rows.Count, i + 1).End(xlUp).Offset(1, 0).Value = Me.valeur_energie
.Cells(Rows.Count, i).End(xlUp).Offset(1, 0).Value = Me.date_energie
End If
Next i
Else: MsgBox "La valeur rentrée n'est pas correcte!"
Exit Sub
End If
Worksheets("DATA2").Calculate
MsgBox "la valeur a été ajoutée à la base"
End With
End SubMerci par avance de vos réponses