Bonjour,
Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la sonne que des
chiffres et non des lettres aussi que certaines cell peuvent contenir. De
plus, quand je change la couleur de remplissage, le calcul ne fait pas de
mise à jour.
Function SomCool(zone As Range, couleur As String)
Application.Volatile True
Select Case couleur
Case "bleu": couleur = 55
Case "jaune": couleur = 6
End Select
For Each cell In zone
If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme +
cell.Value
Next
SomCool = cvSomme
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,
Dans le code la feuille:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Calculate End Sub
Cordiament JB
Bonjour, Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la sonne que des chiffres et non des lettres aussi que certaines cell peuvent contenir. De plus, quand je change la couleur de remplissage, le calcul ne fait pas de mise à jour. Function SomCool(zone As Range, couleur As String) Application.Volatile True Select Case couleur Case "bleu": couleur = 55 Case "jaune": couleur = 6 End Select For Each cell In zone If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme + cell.Value Next SomCool = cvSomme
End Function
Bonjour,
Dans le code la feuille:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub
Cordiament JB
Bonjour,
Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la sonne que des
chiffres et non des lettres aussi que certaines cell peuvent contenir. De
plus, quand je change la couleur de remplissage, le calcul ne fait pas de
mise à jour.
Function SomCool(zone As Range, couleur As String)
Application.Volatile True
Select Case couleur
Case "bleu": couleur = 55
Case "jaune": couleur = 6
End Select
For Each cell In zone
If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme +
cell.Value
Next
SomCool = cvSomme
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Calculate End Sub
Cordiament JB
Bonjour, Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la sonne que des chiffres et non des lettres aussi que certaines cell peuvent contenir. De plus, quand je change la couleur de remplissage, le calcul ne fait pas de mise à jour. Function SomCool(zone As Range, couleur As String) Application.Volatile True Select Case couleur Case "bleu": couleur = 55 Case "jaune": couleur = 6 End Select For Each cell In zone If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme + cell.Value Next SomCool = cvSomme
End Function
JLuc
*Bonjour DomDom*, Evite l'utilisation de variable comme cell, c'est un nom reservé. Préfère lui cel ou cellule :-)
Bonjour, Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la sonne que des chiffres et non des lettres aussi que certaines cell peuvent contenir. De plus, quand je change la couleur de remplissage, le calcul ne fait pas de mise à jour. Function SomCool(zone As Range, couleur As String) Application.Volatile True Select Case couleur Case "bleu": couleur = 55 Case "jaune": couleur = 6 End Select For Each cell In zone If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme + cell.Value Next SomCool = cvSomme
End Function
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour DomDom*,
Evite l'utilisation de variable comme cell, c'est un nom reservé.
Préfère lui cel ou cellule :-)
Bonjour,
Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la sonne que des
chiffres et non des lettres aussi que certaines cell peuvent contenir. De
plus, quand je change la couleur de remplissage, le calcul ne fait pas de
mise à jour.
Function SomCool(zone As Range, couleur As String)
Application.Volatile True
Select Case couleur
Case "bleu": couleur = 55
Case "jaune": couleur = 6
End Select
For Each cell In zone
If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme +
cell.Value
Next
SomCool = cvSomme
*Bonjour DomDom*, Evite l'utilisation de variable comme cell, c'est un nom reservé. Préfère lui cel ou cellule :-)
Bonjour, Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la sonne que des chiffres et non des lettres aussi que certaines cell peuvent contenir. De plus, quand je change la couleur de remplissage, le calcul ne fait pas de mise à jour. Function SomCool(zone As Range, couleur As String) Application.Volatile True Select Case couleur Case "bleu": couleur = 55 Case "jaune": couleur = 6 End Select For Each cell In zone If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme + cell.Value Next SomCool = cvSomme
End Function
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
FxM
Bonjour,
Cette FX fonctionne On m'appelle ? ;o)
Pourrais-tu fournir des exemples de "somme de lettres" qui ne devraient pas être pris en compte ?
@+ FxM
Bonjour, Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la somme que des chiffres et non des lettres aussi que certaines cell peuvent contenir. De plus, quand je change la couleur de remplissage, le calcul ne fait pas de mise à jour. Function SomCool(zone As Range, couleur As String) Application.Volatile True Select Case couleur Case "bleu": couleur = 55 Case "jaune": couleur = 6 End Select For Each cell In zone If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme + cell.Value Next SomCool = cvSomme
End Function
Bonjour,
Cette FX fonctionne
On m'appelle ? ;o)
Pourrais-tu fournir des exemples de "somme de lettres" qui ne devraient
pas être pris en compte ?
@+
FxM
Bonjour,
Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la somme que des
chiffres et non des lettres aussi que certaines cell peuvent contenir. De
plus, quand je change la couleur de remplissage, le calcul ne fait pas de
mise à jour.
Function SomCool(zone As Range, couleur As String)
Application.Volatile True
Select Case couleur
Case "bleu": couleur = 55
Case "jaune": couleur = 6
End Select
For Each cell In zone
If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme +
cell.Value
Next
SomCool = cvSomme
Pourrais-tu fournir des exemples de "somme de lettres" qui ne devraient pas être pris en compte ?
@+ FxM
Bonjour, Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la somme que des chiffres et non des lettres aussi que certaines cell peuvent contenir. De plus, quand je change la couleur de remplissage, le calcul ne fait pas de mise à jour. Function SomCool(zone As Range, couleur As String) Application.Volatile True Select Case couleur Case "bleu": couleur = 55 Case "jaune": couleur = 6 End Select For Each cell In zone If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme + cell.Value Next SomCool = cvSomme
End Function
JB
Si tu modifie la couleur , la maj n'est pas faite immédiatement. Il faut appuyer sur F9 ou attendre q'un nb soit modifié dans la feuille pour que Volatile joue son rôle.
Avec Calculate dans SelectionChange, la maj se fait dès que l'on clique sur une autre cellule
JB
Bonjour,
Cette FX fonctionne On m'appelle ? ;o)
Pourrais-tu fournir des exemples de "somme de lettres" qui ne devraient pas être pris en compte ?
@+ FxM
Bonjour, Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la somme qu e des chiffres et non des lettres aussi que certaines cell peuvent contenir. De plus, quand je change la couleur de remplissage, le calcul ne fait pas de mise à jour. Function SomCool(zone As Range, couleur As String) Application.Volatile True Select Case couleur Case "bleu": couleur = 55 Case "jaune": couleur = 6 End Select For Each cell In zone If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomm e + cell.Value Next SomCool = cvSomme
End Function
Si tu modifie la couleur , la maj n'est pas faite immédiatement. Il
faut appuyer sur F9 ou attendre q'un nb soit modifié dans la feuille
pour que Volatile joue son rôle.
Avec Calculate dans SelectionChange, la maj se fait dès que l'on
clique sur une autre cellule
JB
Bonjour,
Cette FX fonctionne
On m'appelle ? ;o)
Pourrais-tu fournir des exemples de "somme de lettres" qui ne devraient
pas être pris en compte ?
@+
FxM
Bonjour,
Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la somme qu e des
chiffres et non des lettres aussi que certaines cell peuvent contenir. De
plus, quand je change la couleur de remplissage, le calcul ne fait pas de
mise à jour.
Function SomCool(zone As Range, couleur As String)
Application.Volatile True
Select Case couleur
Case "bleu": couleur = 55
Case "jaune": couleur = 6
End Select
For Each cell In zone
If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomm e +
cell.Value
Next
SomCool = cvSomme
Si tu modifie la couleur , la maj n'est pas faite immédiatement. Il faut appuyer sur F9 ou attendre q'un nb soit modifié dans la feuille pour que Volatile joue son rôle.
Avec Calculate dans SelectionChange, la maj se fait dès que l'on clique sur une autre cellule
JB
Bonjour,
Cette FX fonctionne On m'appelle ? ;o)
Pourrais-tu fournir des exemples de "somme de lettres" qui ne devraient pas être pris en compte ?
@+ FxM
Bonjour, Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la somme qu e des chiffres et non des lettres aussi que certaines cell peuvent contenir. De plus, quand je change la couleur de remplissage, le calcul ne fait pas de mise à jour. Function SomCool(zone As Range, couleur As String) Application.Volatile True Select Case couleur Case "bleu": couleur = 55 Case "jaune": couleur = 6 End Select For Each cell In zone If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomm e + cell.Value Next SomCool = cvSomme
End Function
FxM
Bonjour Jacques,
Je suis tout à fait d'accord avec toi sur ce calcul qui doit être fait.
En fait, ma question concernait le tout-début de la question initiale, ce qu'il y a avant le "De plus" (et que j'avoue ne pas avoir élucidé).
@+ FxM
Si tu modifies la couleur , la maj n'est pas faite immédiatement. Il faut appuyer sur F9 ou attendre qu'un nb soit modifié dans la feuille pour que Volatile joue son rôle.
Avec Calculate dans SelectionChange, la maj se fait dès que l'on clique sur une autre cellule
JB
Bonjour,
Cette FX fonctionne On m'appelle ? ;o)
Pourrais-tu fournir des exemples de "somme de lettres" qui ne devraient pas être pris en compte ?
@+ FxM
Bonjour, Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la somme que des chiffres et non des lettres aussi que certaines cell peuvent contenir. De plus, quand je change la couleur de remplissage, le calcul ne fait pas de mise à jour. Function SomCool(zone As Range, couleur As String) Application.Volatile True Select Case couleur Case "bleu": couleur = 55 Case "jaune": couleur = 6 End Select For Each cell In zone If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme + cell.Value Next SomCool = cvSomme
End Function
Bonjour Jacques,
Je suis tout à fait d'accord avec toi sur ce calcul qui doit être fait.
En fait, ma question concernait le tout-début de la question initiale,
ce qu'il y a avant le "De plus" (et que j'avoue ne pas avoir élucidé).
@+
FxM
Si tu modifies la couleur , la maj n'est pas faite immédiatement. Il
faut appuyer sur F9 ou attendre qu'un nb soit modifié dans la feuille
pour que Volatile joue son rôle.
Avec Calculate dans SelectionChange, la maj se fait dès que l'on
clique sur une autre cellule
JB
Bonjour,
Cette FX fonctionne
On m'appelle ? ;o)
Pourrais-tu fournir des exemples de "somme de lettres" qui ne devraient
pas être pris en compte ?
@+
FxM
Bonjour,
Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la somme que des
chiffres et non des lettres aussi que certaines cell peuvent contenir. De
plus, quand je change la couleur de remplissage, le calcul ne fait pas de
mise à jour.
Function SomCool(zone As Range, couleur As String)
Application.Volatile True
Select Case couleur
Case "bleu": couleur = 55
Case "jaune": couleur = 6
End Select
For Each cell In zone
If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme +
cell.Value
Next
SomCool = cvSomme
Je suis tout à fait d'accord avec toi sur ce calcul qui doit être fait.
En fait, ma question concernait le tout-début de la question initiale, ce qu'il y a avant le "De plus" (et que j'avoue ne pas avoir élucidé).
@+ FxM
Si tu modifies la couleur , la maj n'est pas faite immédiatement. Il faut appuyer sur F9 ou attendre qu'un nb soit modifié dans la feuille pour que Volatile joue son rôle.
Avec Calculate dans SelectionChange, la maj se fait dès que l'on clique sur une autre cellule
JB
Bonjour,
Cette FX fonctionne On m'appelle ? ;o)
Pourrais-tu fournir des exemples de "somme de lettres" qui ne devraient pas être pris en compte ?
@+ FxM
Bonjour, Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la somme que des chiffres et non des lettres aussi que certaines cell peuvent contenir. De plus, quand je change la couleur de remplissage, le calcul ne fait pas de mise à jour. Function SomCool(zone As Range, couleur As String) Application.Volatile True Select Case couleur Case "bleu": couleur = 55 Case "jaune": couleur = 6 End Select For Each cell In zone If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme + cell.Value Next SomCool = cvSomme
End Function
Ange Ounis
Evite l'utilisation de variable comme cell, c'est un nom reservé.
?????????????
---------- Ange Ounis ----------
*Bonjour DomDom*, Evite l'utilisation de variable comme cell, c'est un nom reservé. Préfère lui cel ou cellule :-)
Bonjour, Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la sonne que des chiffres et non des lettres aussi que certaines cell peuvent contenir. De plus, quand je change la couleur de remplissage, le calcul ne fait pas de mise à jour. Function SomCool(zone As Range, couleur As String) Application.Volatile True Select Case couleur Case "bleu": couleur = 55 Case "jaune": couleur = 6 End Select For Each cell In zone If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme + cell.Value Next SomCool = cvSomme End Function
Evite l'utilisation de variable comme cell, c'est un nom reservé.
?????????????
----------
Ange Ounis
----------
*Bonjour DomDom*,
Evite l'utilisation de variable comme cell, c'est un nom reservé.
Préfère lui cel ou cellule :-)
Bonjour,
Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la sonne
que des chiffres et non des lettres aussi que certaines cell peuvent
contenir. De plus, quand je change la couleur de remplissage, le
calcul ne fait pas de mise à jour.
Function SomCool(zone As Range, couleur As String)
Application.Volatile True
Select Case couleur
Case "bleu": couleur = 55
Case "jaune": couleur = 6
End Select
For Each cell In zone
If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme +
cell.Value
Next
SomCool = cvSomme
End Function
Evite l'utilisation de variable comme cell, c'est un nom reservé.
?????????????
---------- Ange Ounis ----------
*Bonjour DomDom*, Evite l'utilisation de variable comme cell, c'est un nom reservé. Préfère lui cel ou cellule :-)
Bonjour, Cette FX fonctionne bien, sauf que j'aimerais qu'elle fasse la sonne que des chiffres et non des lettres aussi que certaines cell peuvent contenir. De plus, quand je change la couleur de remplissage, le calcul ne fait pas de mise à jour. Function SomCool(zone As Range, couleur As String) Application.Volatile True Select Case couleur Case "bleu": couleur = 55 Case "jaune": couleur = 6 End Select For Each cell In zone If cell.Interior.ColorIndex = couleur Then cvSomme = cvSomme + cell.Value Next SomCool = cvSomme End Function
