suite au reponse donnée la fois precedente qui m'ont permie de solutionner
mon problème, et sans vouloir être perfectionniste, le seul defaut est que
lorsque je masque ou j'affiche une colonne, le resultat de la formule
=sommevisibles(B1:H1)
n'est pas mis à jour, je dois appuyer sur F9 pour avoir le bon resultat
Je precise que l'option calcul automatique est bien active dans les options
Excel
merci d'avance s'il existe une solution à ce petit problème
"oly22" a écrit :
> MErci beaucoup
>
> çà, fonctionne impécablement bien, c'est exactement ce que je voulais !
>
> cordialement
>
> "JB" a écrit :
>
> > Bonjour,
> >
> > Dans un module: Alt+F11 puis Insertion/Module
> >
> > Function SommeVisibles(champ As Range)
> > Application.Volatile
> > t = 0
> > For Each c In champ
> > If Not c.EntireRow.Hidden And Not c.EntireColumn.Hidden Then
> > t = t + c.Value
> > End If
> > Next c
> > SommeVisibles = t
> > End Function
> >
> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > calcultate
> > End Sub
> >
> > Dans une cellule: =sommevisibles(B1:H1)
> >
> > Cordialement JB
> > oly22 a écrit :
> >
> > > Bonjour
> > >
> > > voilà çà à l'air tout bête ,mais je ne vois pas comment faire...
> > >
> > > j'ai une feuille de calcul surlaquelle figure un tableau
> > >
> > > je voudrais que la derniere colonne du tableau face la somme des nombres
> > > figurant dans les colonnes precedentes sur la même ligne, à condition que ces
> > > colonnes precedentes ne soient pas masquées...(et ce n'est pas toujours les
> > > mêmes colonnes que je masque)
> > >
> > > Est-ce possible d'apres vous ?
> > >
> > > Merci d'avance
> >
> >
Cet article vous a-t-il été utile ?
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
JB
Bonjour,
http://cjoint.com/?kkrwebp7bt
Il faut placer dans le code feuille( clic-droit onglet puis visualiser code) Dès que l'on clique sur une cellule, la feuille est mise à jour.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Calculate End Sub
Code module:
Function SommeVisibles(champ As Range) Application.Volatile t = 0 For Each c In champ If Not c.EntireRow.Hidden And Not c.EntireColumn.Hidden Then t = t + c.Value End If Next c SommeVisibles = t End Function
Cordialement JB
RE bonjour
suite au reponse donnée la fois precedente qui m'ont permie de solution ner mon problème, et sans vouloir être perfectionniste, le seul defaut es t que lorsque je masque ou j'affiche une colonne, le resultat de la formule =sommevisibles(B1:H1) n'est pas mis à jour, je dois appuyer sur F9 pour avoir le bon resultat
Je precise que l'option calcul automatique est bien active dans les optio ns Excel
merci d'avance s'il existe une solution à ce petit problème
MErci beaucoup
çà, fonctionne impécablement bien, c'est exactement ce que je vou lais !
cordialement
Bonjour,
Dans un module: Alt+F11 puis Insertion/Module
Function SommeVisibles(champ As Range) Application.Volatile t = 0 For Each c In champ If Not c.EntireRow.Hidden And Not c.EntireColumn.Hidden Then t = t + c.Value End If Next c SommeVisibles = t End Function
Private Sub Worksheet_SelectionChange(ByVal Target As Range) calcultate End Sub
Dans une cellule: =sommevisibles(B1:H1)
Cordialement JB
Bonjour
voilà çà à l'air tout bête ,mais je ne vois pas comment f aire...
j'ai une feuille de calcul surlaquelle figure un tableau
je voudrais que la derniere colonne du tableau face la somme des no mbres figurant dans les colonnes precedentes sur la même ligne, à con dition que ces colonnes precedentes ne soient pas masquées...(et ce n'est pas to ujours les mêmes colonnes que je masque)
Est-ce possible d'apres vous ?
Merci d'avance
Cet article vous a-t-il été utile ?
Pour quelles
Bonjour,
http://cjoint.com/?kkrwebp7bt
Il faut placer dans le code feuille( clic-droit onglet puis visualiser
code)
Dès que l'on clique sur une cellule, la feuille est mise à jour.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
Code module:
Function SommeVisibles(champ As Range)
Application.Volatile
t = 0
For Each c In champ
If Not c.EntireRow.Hidden And Not c.EntireColumn.Hidden Then
t = t + c.Value
End If
Next c
SommeVisibles = t
End Function
Cordialement JB
RE bonjour
suite au reponse donnée la fois precedente qui m'ont permie de solution ner
mon problème, et sans vouloir être perfectionniste, le seul defaut es t que
lorsque je masque ou j'affiche une colonne, le resultat de la formule
=sommevisibles(B1:H1)
n'est pas mis à jour, je dois appuyer sur F9 pour avoir le bon resultat
Je precise que l'option calcul automatique est bien active dans les optio ns
Excel
merci d'avance s'il existe une solution à ce petit problème
MErci beaucoup
çà, fonctionne impécablement bien, c'est exactement ce que je vou lais !
cordialement
Bonjour,
Dans un module: Alt+F11 puis Insertion/Module
Function SommeVisibles(champ As Range)
Application.Volatile
t = 0
For Each c In champ
If Not c.EntireRow.Hidden And Not c.EntireColumn.Hidden Then
t = t + c.Value
End If
Next c
SommeVisibles = t
End Function
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
calcultate
End Sub
Dans une cellule: =sommevisibles(B1:H1)
Cordialement JB
Bonjour
voilà çà à l'air tout bête ,mais je ne vois pas comment f aire...
j'ai une feuille de calcul surlaquelle figure un tableau
je voudrais que la derniere colonne du tableau face la somme des no mbres
figurant dans les colonnes precedentes sur la même ligne, à con dition que ces
colonnes precedentes ne soient pas masquées...(et ce n'est pas to ujours les
mêmes colonnes que je masque)
Il faut placer dans le code feuille( clic-droit onglet puis visualiser code) Dès que l'on clique sur une cellule, la feuille est mise à jour.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Calculate End Sub
Code module:
Function SommeVisibles(champ As Range) Application.Volatile t = 0 For Each c In champ If Not c.EntireRow.Hidden And Not c.EntireColumn.Hidden Then t = t + c.Value End If Next c SommeVisibles = t End Function
Cordialement JB
RE bonjour
suite au reponse donnée la fois precedente qui m'ont permie de solution ner mon problème, et sans vouloir être perfectionniste, le seul defaut es t que lorsque je masque ou j'affiche une colonne, le resultat de la formule =sommevisibles(B1:H1) n'est pas mis à jour, je dois appuyer sur F9 pour avoir le bon resultat
Je precise que l'option calcul automatique est bien active dans les optio ns Excel
merci d'avance s'il existe une solution à ce petit problème
MErci beaucoup
çà, fonctionne impécablement bien, c'est exactement ce que je vou lais !
cordialement
Bonjour,
Dans un module: Alt+F11 puis Insertion/Module
Function SommeVisibles(champ As Range) Application.Volatile t = 0 For Each c In champ If Not c.EntireRow.Hidden And Not c.EntireColumn.Hidden Then t = t + c.Value End If Next c SommeVisibles = t End Function
Private Sub Worksheet_SelectionChange(ByVal Target As Range) calcultate End Sub
Dans une cellule: =sommevisibles(B1:H1)
Cordialement JB
Bonjour
voilà çà à l'air tout bête ,mais je ne vois pas comment f aire...
j'ai une feuille de calcul surlaquelle figure un tableau
je voudrais que la derniere colonne du tableau face la somme des no mbres figurant dans les colonnes precedentes sur la même ligne, à con dition que ces colonnes precedentes ne soient pas masquées...(et ce n'est pas to ujours les mêmes colonnes que je masque)
