Bonjour à tous,
Trois colonnes : une colonne Cette semaine, une colonne Cette année et
une colonne À vie.
Une ligne par projet.
Le nombre d'unités vendues cette semaine étant saisi manuellement d'une
semaine à l'autre, donc écrasé, est-il possible obtenir le total des
unités vendues Cette année et À vie sans avoir à additionner à part et à
retaper les nombres ?
J'ai pensé à la solution suivante : créer un tableau dans un onglet à
part et effectuer par macro un copier suivi d'un coller la valeur, mais
j'aimerais bien avoir vos réactions au préalable.
Merci,
Céline
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
dcdc2
Sincèrement,
je pense qu'il y a bien plus simple:
autant garder la mémoire des différentes semaines. Ainsi en cas d'erreur de frappe tu peux revenir en arrière.
tu as sur une feuille les différentes semaines, pour chaque projet. Puis dans ton résumé des données: - tu utilises la dernière valeur non vide pour afficher le résultat - tu fais une somme normale pour le résultat annuel en cours
Sincèrement,
je pense qu'il y a bien plus simple:
autant garder la mémoire des différentes semaines.
Ainsi en cas d'erreur de frappe tu peux revenir en arrière.
tu as sur une feuille les différentes semaines, pour chaque projet.
Puis dans ton résumé des données:
- tu utilises la dernière valeur non vide pour afficher le résultat
- tu fais une somme normale pour le résultat annuel en cours
autant garder la mémoire des différentes semaines. Ainsi en cas d'erreur de frappe tu peux revenir en arrière.
tu as sur une feuille les différentes semaines, pour chaque projet. Puis dans ton résumé des données: - tu utilises la dernière valeur non vide pour afficher le résultat - tu fais une somme normale pour le résultat annuel en cours
AV
Pour une saisie des unités en A1; cumul annuel en B1 et cumul ad vitam aeternam en C1 Deux pistes
1) Avec des références circulaires (délicat d'utilisation) Outils > Options > calcul > cocher "Itération" et nb maximal d'itération : 1 En A1 donc la saisie En B1 : =SI(ANNEE(AUJOURDHUI())<>ANNEE(AUJOURDHUI()-1);0;B1+A1) En C1 : Á+A1
2) Proc évènementielle à la saisie en A1 (à adapter) Dans le module de la feuille : Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub If Year(Date) <> Year(Date + 1) Then [B1] = 0 Else [B1] = [B1] + [A1] [C1] = [C1] + [A1] End Sub
AV
Pour une saisie des unités en A1; cumul annuel en B1 et cumul ad vitam aeternam
en C1
Deux pistes
1) Avec des références circulaires (délicat d'utilisation)
Outils > Options > calcul > cocher "Itération" et nb maximal d'itération : 1
En A1 donc la saisie
En B1 : =SI(ANNEE(AUJOURDHUI())<>ANNEE(AUJOURDHUI()-1);0;B1+A1)
En C1 : Á+A1
2) Proc évènementielle à la saisie en A1 (à adapter)
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
If Year(Date) <> Year(Date + 1) Then [B1] = 0 Else [B1] = [B1] + [A1]
[C1] = [C1] + [A1]
End Sub
Pour une saisie des unités en A1; cumul annuel en B1 et cumul ad vitam aeternam en C1 Deux pistes
1) Avec des références circulaires (délicat d'utilisation) Outils > Options > calcul > cocher "Itération" et nb maximal d'itération : 1 En A1 donc la saisie En B1 : =SI(ANNEE(AUJOURDHUI())<>ANNEE(AUJOURDHUI()-1);0;B1+A1) En C1 : Á+A1
2) Proc évènementielle à la saisie en A1 (à adapter) Dans le module de la feuille : Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub If Year(Date) <> Year(Date + 1) Then [B1] = 0 Else [B1] = [B1] + [A1] [C1] = [C1] + [A1] End Sub
AV
Céline Brien
Bonjour AV, Bonjour DCDC2, Merci pour vos réponses. Finalement, un peu dans le sens de la suggestion de DCDC", j'ai créé un tableau de saisie dans une autre onglet, avec formules pour les cumulatifs À vie et Cette année. J'ai utilisé RechercheV dans le bilan en référence avec la date de la fin de la semaine. Je vais tout de même tester la solution VBA et la garder en réserve. Merci encore, Céline
"AV" a écrit dans le message de news:
Pour une saisie des unités en A1; cumul annuel en B1 et cumul ad vitam aeternam
en C1 Deux pistes
1) Avec des références circulaires (délicat d'utilisation) Outils > Options > calcul > cocher "Itération" et nb maximal d'itération : 1
En A1 donc la saisie En B1 : =SI(ANNEE(AUJOURDHUI())<>ANNEE(AUJOURDHUI()-1);0;B1+A1) En C1 : Á+A1
2) Proc évènementielle à la saisie en A1 (à adapter) Dans le module de la feuille : Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub If Year(Date) <> Year(Date + 1) Then [B1] = 0 Else [B1] = [B1] + [A1] [C1] = [C1] + [A1] End Sub
AV
Bonjour AV,
Bonjour DCDC2,
Merci pour vos réponses.
Finalement, un peu dans le sens de la suggestion de DCDC", j'ai créé un
tableau de saisie dans une autre onglet, avec formules pour les
cumulatifs À vie et Cette année.
J'ai utilisé RechercheV dans le bilan en référence avec la date de la
fin de la semaine.
Je vais tout de même tester la solution VBA et la garder en réserve.
Merci encore,
Céline
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:O0vYJvblEHA.3476@tk2msftngp13.phx.gbl...
Pour une saisie des unités en A1; cumul annuel en B1 et cumul ad vitam
aeternam
en C1
Deux pistes
1) Avec des références circulaires (délicat d'utilisation)
Outils > Options > calcul > cocher "Itération" et nb maximal
d'itération : 1
En A1 donc la saisie
En B1 : =SI(ANNEE(AUJOURDHUI())<>ANNEE(AUJOURDHUI()-1);0;B1+A1)
En C1 : Á+A1
2) Proc évènementielle à la saisie en A1 (à adapter)
Dans le module de la feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
If Year(Date) <> Year(Date + 1) Then [B1] = 0 Else [B1] = [B1] + [A1]
[C1] = [C1] + [A1]
End Sub
Bonjour AV, Bonjour DCDC2, Merci pour vos réponses. Finalement, un peu dans le sens de la suggestion de DCDC", j'ai créé un tableau de saisie dans une autre onglet, avec formules pour les cumulatifs À vie et Cette année. J'ai utilisé RechercheV dans le bilan en référence avec la date de la fin de la semaine. Je vais tout de même tester la solution VBA et la garder en réserve. Merci encore, Céline
"AV" a écrit dans le message de news:
Pour une saisie des unités en A1; cumul annuel en B1 et cumul ad vitam aeternam
en C1 Deux pistes
1) Avec des références circulaires (délicat d'utilisation) Outils > Options > calcul > cocher "Itération" et nb maximal d'itération : 1
En A1 donc la saisie En B1 : =SI(ANNEE(AUJOURDHUI())<>ANNEE(AUJOURDHUI()-1);0;B1+A1) En C1 : Á+A1
2) Proc évènementielle à la saisie en A1 (à adapter) Dans le module de la feuille : Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub If Year(Date) <> Year(Date + 1) Then [B1] = 0 Else [B1] = [B1] + [A1] [C1] = [C1] + [A1] End Sub
