Salut, imaginons que je souhaite faire le total d'une colonne que je
remplis au fur et à mesure (au jour le jour par exemple).
Comment faire ce total correctement sans avoir à refaire le tableau à
chaque fois si le nombre d'élément dont je fait le total augmente en
permanence.
Je souhaiterait trouver un moyens pour que ma cellule "total" se
décale automatiquement d'une case vers le bas à chaque fois que
j'ajoute un élément dans ma colonne.
Est ce possible ?
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
Ricky [MVP]
Bonjour *MOUHOUBI* (et tous les lecteurs) | Salut, imaginons que je souhaite faire le total d'une colonne que je | remplis au fur et à mesure (au jour le jour par exemple). | Comment faire ce total correctement sans avoir à refaire le tableau à | chaque fois si le nombre d'élément dont je fait le total augmente en | permanence. | Je souhaiterait trouver un moyens pour que ma cellule "total" se | décale automatiquement d'une case vers le bas à chaque fois que | j'ajoute un élément dans ma colonne. | Est ce possible ?
Il me paraît beaucoup plus simple de faire le total en ligne 1 Pas de problème de décalage, possibilité de réutiliser cette somme sans devoir la rechercher et même possibilité de l'avoir en permanence sous les yeux en figeant les volets.
Bonjour *MOUHOUBI* (et tous les lecteurs)
| Salut, imaginons que je souhaite faire le total d'une colonne que je
| remplis au fur et à mesure (au jour le jour par exemple).
| Comment faire ce total correctement sans avoir à refaire le tableau à
| chaque fois si le nombre d'élément dont je fait le total augmente en
| permanence.
| Je souhaiterait trouver un moyens pour que ma cellule "total" se
| décale automatiquement d'une case vers le bas à chaque fois que
| j'ajoute un élément dans ma colonne.
| Est ce possible ?
Il me paraît beaucoup plus simple de faire le total en ligne 1
Pas de problème de décalage, possibilité de réutiliser cette somme sans devoir la rechercher et même possibilité de l'avoir en permanence sous les yeux en figeant les volets.
Bonjour *MOUHOUBI* (et tous les lecteurs) | Salut, imaginons que je souhaite faire le total d'une colonne que je | remplis au fur et à mesure (au jour le jour par exemple). | Comment faire ce total correctement sans avoir à refaire le tableau à | chaque fois si le nombre d'élément dont je fait le total augmente en | permanence. | Je souhaiterait trouver un moyens pour que ma cellule "total" se | décale automatiquement d'une case vers le bas à chaque fois que | j'ajoute un élément dans ma colonne. | Est ce possible ?
Il me paraît beaucoup plus simple de faire le total en ligne 1 Pas de problème de décalage, possibilité de réutiliser cette somme sans devoir la rechercher et même possibilité de l'avoir en permanence sous les yeux en figeant les volets.
Bonjour, Tu nommes la cellule contenant ta somme du joli nom de masomme, tu insères au dessus une cellule vide dans laquelle tu procéderas à la saisie du nouveau nombre et tu colles ce code dans le module de la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = [masomme].Address Then Selection.Insert Shift:=xlDown Else: Exit Sub End If End Sub
-- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"MOUHOUBI" <http://cerbermail.com/?vtsIi5fkKl > a écrit dans le message de news:
Salut, imaginons que je souhaite faire le total d'une colonne que je remplis au fur et à mesure (au jour le jour par exemple). Comment faire ce total correctement sans avoir à refaire le tableau à chaque fois si le nombre d'élément dont je fait le total augmente en permanence. Je souhaiterait trouver un moyens pour que ma cellule "total" se décale automatiquement d'une case vers le bas à chaque fois que j'ajoute un élément dans ma colonne. Est ce possible ?
Bonjour,
Tu nommes la cellule contenant ta somme du joli nom de masomme, tu insères au dessus une cellule vide
dans laquelle tu procéderas à la saisie du nouveau nombre et tu colles ce code dans le module de la
feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = [masomme].Address Then
Selection.Insert Shift:=xlDown
Else: Exit Sub
End If
End Sub
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"MOUHOUBI" <http://cerbermail.com/?vtsIi5fkKl > a écrit dans le message de
news:asskb09rhv2ab9hrp9vvaoheg59bqn464s@4ax.com...
Salut, imaginons que je souhaite faire le total d'une colonne que je
remplis au fur et à mesure (au jour le jour par exemple).
Comment faire ce total correctement sans avoir à refaire le tableau à
chaque fois si le nombre d'élément dont je fait le total augmente en
permanence.
Je souhaiterait trouver un moyens pour que ma cellule "total" se
décale automatiquement d'une case vers le bas à chaque fois que
j'ajoute un élément dans ma colonne.
Est ce possible ?
Bonjour, Tu nommes la cellule contenant ta somme du joli nom de masomme, tu insères au dessus une cellule vide dans laquelle tu procéderas à la saisie du nouveau nombre et tu colles ce code dans le module de la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = [masomme].Address Then Selection.Insert Shift:=xlDown Else: Exit Sub End If End Sub
-- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"MOUHOUBI" <http://cerbermail.com/?vtsIi5fkKl > a écrit dans le message de news:
Salut, imaginons que je souhaite faire le total d'une colonne que je remplis au fur et à mesure (au jour le jour par exemple). Comment faire ce total correctement sans avoir à refaire le tableau à chaque fois si le nombre d'élément dont je fait le total augmente en permanence. Je souhaiterait trouver un moyens pour que ma cellule "total" se décale automatiquement d'une case vers le bas à chaque fois que j'ajoute un élément dans ma colonne. Est ce possible ?
Salut Kamel, Avec la proc ci-dessous, il faut que tu utilise la cellule A1 comme cellule de saisie, c'est à dire que chaque fois que tu veux entrer une valeur dans ta colonne, tu écris cette valeur dans la cellule A1 ensuite la proc colle cette valeur au bas de la colonne, vide la cellule A1 pour une prochaine saisie etrefait le total au bas de la colonne. En espérant que c'est ce que tu veux ? Afin de ne pas perdre la valeur situé dans la cellule A1, resaisie cette valeur, elle sera placée au bas de la colonne. Adapte à la colonne que tu veux en remplaçant A1 dans le code par le nom de ta colonne ainsi que dans la formule "=SUM(A2:A" & Cel.Offset(-1, 0).Row & ")"
A mettre dans le module de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range) Dim Cel As Range If Not Intersect(Target, [A1]) Is Nothing Then Application.EnableEvents = False Set Cel = [A65536].End(xlUp) Cel.Value = [A1] Set Cel = Cel.Offset(1, 0) Cel.Formula = "=SUM(A2:A" & Cel.Offset(-1, 0).Row & ")" [A1] = "" Application.EnableEvents = True End If Set Cel = Nothing End Sub
Hervé.
"MOUHOUBI" <http://cerbermail.com/?vtsIi5fkKl > a écrit dans le message news:
Salut, imaginons que je souhaite faire le total d'une colonne que je remplis au fur et à mesure (au jour le jour par exemple). Comment faire ce total correctement sans avoir à refaire le tableau à chaque fois si le nombre d'élément dont je fait le total augmente en permanence. Je souhaiterait trouver un moyens pour que ma cellule "total" se décale automatiquement d'une case vers le bas à chaque fois que j'ajoute un élément dans ma colonne. Est ce possible ?
Salut Kamel,
Avec la proc ci-dessous, il faut que tu utilise la cellule A1 comme cellule
de saisie, c'est à dire que chaque fois que tu veux entrer une valeur dans
ta colonne, tu écris cette valeur dans la cellule A1 ensuite la proc colle
cette valeur au bas de la colonne, vide la cellule A1 pour une prochaine
saisie etrefait le total au bas de la colonne. En espérant que c'est ce que
tu veux ?
Afin de ne pas perdre la valeur situé dans la cellule A1, resaisie cette
valeur, elle sera placée au bas de la colonne. Adapte à la colonne que tu
veux en remplaçant A1 dans le code par le nom de ta colonne ainsi que dans
la formule "=SUM(A2:A" & Cel.Offset(-1, 0).Row & ")"
A mettre dans le module de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
If Not Intersect(Target, [A1]) Is Nothing Then
Application.EnableEvents = False
Set Cel = [A65536].End(xlUp)
Cel.Value = [A1]
Set Cel = Cel.Offset(1, 0)
Cel.Formula = "=SUM(A2:A" & Cel.Offset(-1, 0).Row & ")"
[A1] = ""
Application.EnableEvents = True
End If
Set Cel = Nothing
End Sub
Hervé.
"MOUHOUBI" <http://cerbermail.com/?vtsIi5fkKl > a écrit dans le message
news: asskb09rhv2ab9hrp9vvaoheg59bqn464s@4ax.com...
Salut, imaginons que je souhaite faire le total d'une colonne que je
remplis au fur et à mesure (au jour le jour par exemple).
Comment faire ce total correctement sans avoir à refaire le tableau à
chaque fois si le nombre d'élément dont je fait le total augmente en
permanence.
Je souhaiterait trouver un moyens pour que ma cellule "total" se
décale automatiquement d'une case vers le bas à chaque fois que
j'ajoute un élément dans ma colonne.
Est ce possible ?
Salut Kamel, Avec la proc ci-dessous, il faut que tu utilise la cellule A1 comme cellule de saisie, c'est à dire que chaque fois que tu veux entrer une valeur dans ta colonne, tu écris cette valeur dans la cellule A1 ensuite la proc colle cette valeur au bas de la colonne, vide la cellule A1 pour une prochaine saisie etrefait le total au bas de la colonne. En espérant que c'est ce que tu veux ? Afin de ne pas perdre la valeur situé dans la cellule A1, resaisie cette valeur, elle sera placée au bas de la colonne. Adapte à la colonne que tu veux en remplaçant A1 dans le code par le nom de ta colonne ainsi que dans la formule "=SUM(A2:A" & Cel.Offset(-1, 0).Row & ")"
A mettre dans le module de ta feuille :
Private Sub Worksheet_Change(ByVal Target As Range) Dim Cel As Range If Not Intersect(Target, [A1]) Is Nothing Then Application.EnableEvents = False Set Cel = [A65536].End(xlUp) Cel.Value = [A1] Set Cel = Cel.Offset(1, 0) Cel.Formula = "=SUM(A2:A" & Cel.Offset(-1, 0).Row & ")" [A1] = "" Application.EnableEvents = True End If Set Cel = Nothing End Sub
Hervé.
"MOUHOUBI" <http://cerbermail.com/?vtsIi5fkKl > a écrit dans le message news:
Salut, imaginons que je souhaite faire le total d'une colonne que je remplis au fur et à mesure (au jour le jour par exemple). Comment faire ce total correctement sans avoir à refaire le tableau à chaque fois si le nombre d'élément dont je fait le total augmente en permanence. Je souhaiterait trouver un moyens pour que ma cellule "total" se décale automatiquement d'une case vers le bas à chaque fois que j'ajoute un élément dans ma colonne. Est ce possible ?
