Bonjour,
Pour mon suivi des heures j'ai un tableau composé de trois colonnes :
- prévisionnel (pré-rempli)
- cumulé (calculé)
- semaine en cours (saisi)
Lorsque je saisie une valeur en semaine en cours (ex : D4) ma cellule cumulé (ex : C4) doit se modifier en ajoutant sa propre valeur à celle de D4.
Pour cela j'ai activé et réglé à 1 le calcul itératif (option excel onglet formule) formule en C4 : =SI(CELLULE("adresse")=CELLULE("adresse";D4);SOMME(C44);C4)
Malheureusement parfois, alors que seul C4 devrait se modifier lorsque je saisie une valeur en D4, d'autres cellules se modifient ex C5 et je ne sais pas pourquoi puisqu'il n'y a pas de liaison entre les différentes lignes.
Par contre, je soupçonne la macro de la feuille d'en être la cause.
Cette macro (ci-dessous) me sert à afficher en D2 la date du jour d'une saisie dans la colonne D.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D4,D5,D6,D7,D8,D9,D10,D11,D12,D13")) Is Nothing Then
Colonne = Target.Column
Ligne = 2
Cells(Ligne, Colonne) = Date
End If
End Sub
Si quelqu'un a la solution, je le remercierai vraiment beaucoup.
Je vous met un fichier joint comme exemple.
En tout cas merci à tout ceux qui se pencheront sur mon problème.
Cordialement.
Pour mon suivi des heures j'ai un tableau composé de trois colonnes :
- prévisionnel (pré-rempli)
- cumulé (calculé)
- semaine en cours (saisi)
Lorsque je saisie une valeur en semaine en cours (ex : D4) ma cellule cumulé (ex : C4) doit se modifier en ajoutant sa propre valeur à celle de D4.
Pour cela j'ai activé et réglé à 1 le calcul itératif (option excel onglet formule) formule en C4 : =SI(CELLULE("adresse")=CELLULE("adresse";D4);SOMME(C44);C4)
Malheureusement parfois, alors que seul C4 devrait se modifier lorsque je saisie une valeur en D4, d'autres cellules se modifient ex C5 et je ne sais pas pourquoi puisqu'il n'y a pas de liaison entre les différentes lignes.
Par contre, je soupçonne la macro de la feuille d'en être la cause.
Cette macro (ci-dessous) me sert à afficher en D2 la date du jour d'une saisie dans la colonne D.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D4,D5,D6,D7,D8,D9,D10,D11,D12,D13")) Is Nothing Then
Colonne = Target.Column
Ligne = 2
Cells(Ligne, Colonne) = Date
End If
End Sub
Si quelqu'un a la solution, je le remercierai vraiment beaucoup.
Je vous met un fichier joint comme exemple.
En tout cas merci à tout ceux qui se pencheront sur mon problème.
Cordialement.