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
anonymousA
Bonjour,
Une solution avec VBA qui couvre le cas général ( donc si l'on imagine que l'on ne connait pas le cardinal de l'ensemble des nombres et il peut y avoir entre les nombres séparés par des virgules autre chose que des nombres ). Il faut avoir Excel2000 au moins.
temp = 0 nb = 0 For I = LBound(Split(ActiveCell.Value, ",")) To UBound(Split(ActiveCell.Value, ",")) If IsNumeric(Split(ActiveCell.Value, ",")(I)) Then temp = temp + Split(ActiveCell.Value, ",")(I) nb = nb + 1 End If Next
On Error Resume Next MsgBox "moyenne" & temp / nb
A+
On 1 fév, 13:24, Michel Giustina wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule. Exp: A1="2;5;6" Je désire avoir la moyenne des nombre contenu dans A1
Merci d'avance
-- Michel Giustina
Bonjour,
Une solution avec VBA qui couvre le cas général ( donc si l'on imagine
que l'on ne connait pas le cardinal de l'ensemble des nombres et il
peut y avoir entre les nombres séparés par des virgules autre chose
que des nombres ). Il faut avoir Excel2000 au moins.
temp = 0
nb = 0
For I = LBound(Split(ActiveCell.Value, ",")) To
UBound(Split(ActiveCell.Value, ","))
If IsNumeric(Split(ActiveCell.Value, ",")(I)) Then
temp = temp + Split(ActiveCell.Value, ",")(I)
nb = nb + 1
End If
Next
On Error Resume Next
MsgBox "moyenne" & temp / nb
A+
On 1 fév, 13:24, Michel Giustina <m.giusst...@cccccc.fr> wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule.
Exp:
A1="2;5;6"
Je désire avoir la moyenne des nombre contenu dans A1
Une solution avec VBA qui couvre le cas général ( donc si l'on imagine que l'on ne connait pas le cardinal de l'ensemble des nombres et il peut y avoir entre les nombres séparés par des virgules autre chose que des nombres ). Il faut avoir Excel2000 au moins.
temp = 0 nb = 0 For I = LBound(Split(ActiveCell.Value, ",")) To UBound(Split(ActiveCell.Value, ",")) If IsNumeric(Split(ActiveCell.Value, ",")(I)) Then temp = temp + Split(ActiveCell.Value, ",")(I) nb = nb + 1 End If Next
On Error Resume Next MsgBox "moyenne" & temp / nb
A+
On 1 fév, 13:24, Michel Giustina wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule. Exp: A1="2;5;6" Je désire avoir la moyenne des nombre contenu dans A1
Merci d'avance
-- Michel Giustina
Michel Giustina
Merci pour cette réponse rapide.
Je peu maitriser le caractère séparateur. D'autre part est t'il possible d'avoir le même résultat sans passer en VBA mais dans une formule
michel
anonymousA a couché sur son écran :
Bonjour,
Une solution avec VBA qui couvre le cas général ( donc si l'on imagine que l'on ne connait pas le cardinal de l'ensemble des nombres et il peut y avoir entre les nombres séparés par des virgules autre chose que des nombres ). Il faut avoir Excel2000 au moins.
temp = 0 nb = 0 For I = LBound(Split(ActiveCell.Value, ",")) To UBound(Split(ActiveCell.Value, ",")) If IsNumeric(Split(ActiveCell.Value, ",")(I)) Then temp = temp + Split(ActiveCell.Value, ",")(I) nb = nb + 1 End If Next
On Error Resume Next MsgBox "moyenne" & temp / nb
A+
On 1 fév, 13:24, Michel Giustina wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule. Exp: A1="2;5;6" Je désire avoir la moyenne des nombre contenu dans A1
Merci d'avance
-- Michel Giustina
-- Michel Giustina
Merci pour cette réponse rapide.
Je peu maitriser le caractère séparateur.
D'autre part est t'il possible d'avoir le même résultat
sans passer en VBA mais dans une formule
michel
anonymousA a couché sur son écran :
Bonjour,
Une solution avec VBA qui couvre le cas général ( donc si l'on imagine
que l'on ne connait pas le cardinal de l'ensemble des nombres et il
peut y avoir entre les nombres séparés par des virgules autre chose
que des nombres ). Il faut avoir Excel2000 au moins.
temp = 0
nb = 0
For I = LBound(Split(ActiveCell.Value, ",")) To
UBound(Split(ActiveCell.Value, ","))
If IsNumeric(Split(ActiveCell.Value, ",")(I)) Then
temp = temp + Split(ActiveCell.Value, ",")(I)
nb = nb + 1
End If
Next
On Error Resume Next
MsgBox "moyenne" & temp / nb
A+
On 1 fév, 13:24, Michel Giustina <m.giusst...@cccccc.fr> wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule.
Exp:
A1="2;5;6"
Je désire avoir la moyenne des nombre contenu dans A1
Je peu maitriser le caractère séparateur. D'autre part est t'il possible d'avoir le même résultat sans passer en VBA mais dans une formule
michel
anonymousA a couché sur son écran :
Bonjour,
Une solution avec VBA qui couvre le cas général ( donc si l'on imagine que l'on ne connait pas le cardinal de l'ensemble des nombres et il peut y avoir entre les nombres séparés par des virgules autre chose que des nombres ). Il faut avoir Excel2000 au moins.
temp = 0 nb = 0 For I = LBound(Split(ActiveCell.Value, ",")) To UBound(Split(ActiveCell.Value, ",")) If IsNumeric(Split(ActiveCell.Value, ",")(I)) Then temp = temp + Split(ActiveCell.Value, ",")(I) nb = nb + 1 End If Next
On Error Resume Next MsgBox "moyenne" & temp / nb
A+
On 1 fév, 13:24, Michel Giustina wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule. Exp: A1="2;5;6" Je désire avoir la moyenne des nombre contenu dans A1
Merci d'avance
-- Michel Giustina
-- Michel Giustina
JB
On 1 fév, 13:24, Michel Giustina wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule. Exp: A1="2;5;6" Je désire avoir la moyenne des nombre contenu dans A1
Merci d'avance
-- Michel Giustina Bonjour,
Sous forme de fonction. Dans un module:
Function moy(chaine) temp = Split(chaine, ";") t = 0 For i = LBound(temp) To UBound(temp) t = t + Val(temp(i)) Next i moy = t / (UBound(temp) - LBound(temp)) End Function
Dans le tableur:=Moy(A1)
JB
On 1 fév, 13:24, Michel Giustina <m.giusst...@cccccc.fr> wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule.
Exp:
A1="2;5;6"
Je désire avoir la moyenne des nombre contenu dans A1
Merci d'avance
--
Michel Giustina
Bonjour,
Sous forme de fonction. Dans un module:
Function moy(chaine)
temp = Split(chaine, ";")
t = 0
For i = LBound(temp) To UBound(temp)
t = t + Val(temp(i))
Next i
moy = t / (UBound(temp) - LBound(temp))
End Function
je désire lire une suite de nombre contenu dans une cellule. Exp: A1="2;5;6" Je désire avoir la moyenne des nombre contenu dans A1
Merci d'avance
-- Michel Giustina Bonjour,
Sous forme de fonction. Dans un module:
Function moy(chaine) temp = Split(chaine, ";") t = 0 For i = LBound(temp) To UBound(temp) t = t + Val(temp(i)) Next i moy = t / (UBound(temp) - LBound(temp)) End Function
Dans le tableur:=Moy(A1)
JB
JB
On 1 fév, 13:24, Michel Giustina wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule. Exp: A1="2;5;6" Je désire avoir la moyenne des nombre contenu dans A1
Merci d'avance
-- Michel Giustina
Function moy(chaine, sep) temp = Split(chaine, sep) t = 0 For i = LBound(temp) To UBound(temp) t = t + Val(temp(i)) Next i moy = t / (UBound(temp) - LBound(temp)) End Function
=moy(B2;";")
JB
On 1 fév, 13:24, Michel Giustina <m.giusst...@cccccc.fr> wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule.
Exp:
A1="2;5;6"
Je désire avoir la moyenne des nombre contenu dans A1
Merci d'avance
--
Michel Giustina
Function moy(chaine, sep)
temp = Split(chaine, sep)
t = 0
For i = LBound(temp) To UBound(temp)
t = t + Val(temp(i))
Next i
moy = t / (UBound(temp) - LBound(temp))
End Function
je désire lire une suite de nombre contenu dans une cellule. Exp: A1="2;5;6" Je désire avoir la moyenne des nombre contenu dans A1
Merci d'avance
-- Michel Giustina
Function moy(chaine, sep) temp = Split(chaine, sep) t = 0 For i = LBound(temp) To UBound(temp) t = t + Val(temp(i)) Next i moy = t / (UBound(temp) - LBound(temp)) End Function
=moy(B2;";")
JB
anonymousA
Si le nombre de nombres séparés par une virgule n'est pas trop longue et connu à l'avance et si le nombre de caractères représentant les nombres est fixe , une salade de CHERCHE ou TROUVE associé avec des STXT devrait faire l'affaire.Je te souhaite beaucoup de bonheur.
A+
On 1 fév, 13:47, Michel Giustina wrote:
Merci pour cette réponse rapide.
Je peu maitriser le caractère séparateur. D'autre part est t'il possible d'avoir le même résultat sans passer en VBA mais dans une formule
michel
anonymousA a couché sur son écran :
Bonjour,
Une solution avec VBA qui couvre le cas général ( donc si l'on imag ine que l'on ne connait pas le cardinal de l'ensemble des nombres et il peut y avoir entre les nombres séparés par des virgules autre chose que des nombres ). Il faut avoir Excel2000 au moins.
temp = 0 nb = 0 For I = LBound(Split(ActiveCell.Value, ",")) To UBound(Split(ActiveCell.Value, ",")) If IsNumeric(Split(ActiveCell.Value, ",")(I)) Then temp = temp + Split(ActiveCell.Value, ",")(I) nb = nb + 1 End If Next
On Error Resume Next MsgBox "moyenne" & temp / nb
A+
On 1 fév, 13:24, Michel Giustina wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule. Exp: A1="2;5;6" Je désire avoir la moyenne des nombre contenu dans A1
Merci d'avance
-- Michel Giustina
-- Michel Giustina- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Si le nombre de nombres séparés par une virgule n'est pas trop longue
et connu à l'avance et si le nombre de caractères représentant les
nombres est fixe , une salade de CHERCHE ou TROUVE associé avec des
STXT devrait faire l'affaire.Je te souhaite beaucoup de bonheur.
A+
On 1 fév, 13:47, Michel Giustina <m.giusst...@cccccc.fr> wrote:
Merci pour cette réponse rapide.
Je peu maitriser le caractère séparateur.
D'autre part est t'il possible d'avoir le même résultat
sans passer en VBA mais dans une formule
michel
anonymousA a couché sur son écran :
Bonjour,
Une solution avec VBA qui couvre le cas général ( donc si l'on imag ine
que l'on ne connait pas le cardinal de l'ensemble des nombres et il
peut y avoir entre les nombres séparés par des virgules autre chose
que des nombres ). Il faut avoir Excel2000 au moins.
temp = 0
nb = 0
For I = LBound(Split(ActiveCell.Value, ",")) To
UBound(Split(ActiveCell.Value, ","))
If IsNumeric(Split(ActiveCell.Value, ",")(I)) Then
temp = temp + Split(ActiveCell.Value, ",")(I)
nb = nb + 1
End If
Next
On Error Resume Next
MsgBox "moyenne" & temp / nb
A+
On 1 fév, 13:24, Michel Giustina <m.giusst...@cccccc.fr> wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule.
Exp:
A1="2;5;6"
Je désire avoir la moyenne des nombre contenu dans A1
Merci d'avance
--
Michel Giustina
--
Michel Giustina- Masquer le texte des messages précédents -
Si le nombre de nombres séparés par une virgule n'est pas trop longue et connu à l'avance et si le nombre de caractères représentant les nombres est fixe , une salade de CHERCHE ou TROUVE associé avec des STXT devrait faire l'affaire.Je te souhaite beaucoup de bonheur.
A+
On 1 fév, 13:47, Michel Giustina wrote:
Merci pour cette réponse rapide.
Je peu maitriser le caractère séparateur. D'autre part est t'il possible d'avoir le même résultat sans passer en VBA mais dans une formule
michel
anonymousA a couché sur son écran :
Bonjour,
Une solution avec VBA qui couvre le cas général ( donc si l'on imag ine que l'on ne connait pas le cardinal de l'ensemble des nombres et il peut y avoir entre les nombres séparés par des virgules autre chose que des nombres ). Il faut avoir Excel2000 au moins.
temp = 0 nb = 0 For I = LBound(Split(ActiveCell.Value, ",")) To UBound(Split(ActiveCell.Value, ",")) If IsNumeric(Split(ActiveCell.Value, ",")(I)) Then temp = temp + Split(ActiveCell.Value, ",")(I) nb = nb + 1 End If Next
On Error Resume Next MsgBox "moyenne" & temp / nb
A+
On 1 fév, 13:24, Michel Giustina wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule. Exp: A1="2;5;6" Je désire avoir la moyenne des nombre contenu dans A1
Merci d'avance
-- Michel Giustina
-- Michel Giustina- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Michel Giustina
Merci
JB vient de nous annoncer :
On 1 fév, 13:24, Michel Giustina wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule. Exp: A1="2;5;6" Je désire avoir la moyenne des nombre contenu dans A1
Merci d'avance
-- Michel Giustina
Function moy(chaine, sep) temp = Split(chaine, sep) t = 0 For i = LBound(temp) To UBound(temp) t = t + Val(temp(i)) Next i moy = t / (UBound(temp) - LBound(temp)) End Function
=moy(B2;";")
JB
-- Michel Giustina
Merci
JB vient de nous annoncer :
On 1 fév, 13:24, Michel Giustina <m.giusst...@cccccc.fr> wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule.
Exp:
A1="2;5;6"
Je désire avoir la moyenne des nombre contenu dans A1
Merci d'avance
--
Michel Giustina
Function moy(chaine, sep)
temp = Split(chaine, sep)
t = 0
For i = LBound(temp) To UBound(temp)
t = t + Val(temp(i))
Next i
moy = t / (UBound(temp) - LBound(temp))
End Function
je désire lire une suite de nombre contenu dans une cellule. Exp: A1="2;5;6" Je désire avoir la moyenne des nombre contenu dans A1
Merci d'avance
-- Michel Giustina
Function moy(chaine, sep) temp = Split(chaine, sep) t = 0 For i = LBound(temp) To UBound(temp) t = t + Val(temp(i)) Next i moy = t / (UBound(temp) - LBound(temp)) End Function
=moy(B2;";")
JB
-- Michel Giustina
Michel Giustina
je ne maîtrise pas le nombre de nombre, donc VBA
merci
anonymousA a exposé le 01/02/2007 :
Si le nombre de nombres séparés par une virgule n'est pas trop longue et connu à l'avance et si le nombre de caractères représentant les nombres est fixe , une salade de CHERCHE ou TROUVE associé avec des STXT devrait faire l'affaire.Je te souhaite beaucoup de bonheur.
A+
On 1 fév, 13:47, Michel Giustina wrote:
Merci pour cette réponse rapide.
Je peu maitriser le caractère séparateur. D'autre part est t'il possible d'avoir le même résultat sans passer en VBA mais dans une formule
michel
anonymousA a couché sur son écran :
Bonjour,
Une solution avec VBA qui couvre le cas général ( donc si l'on imagine que l'on ne connait pas le cardinal de l'ensemble des nombres et il peut y avoir entre les nombres séparés par des virgules autre chose que des nombres ). Il faut avoir Excel2000 au moins. temp = 0 nb = 0 For I = LBound(Split(ActiveCell.Value, ",")) To UBound(Split(ActiveCell.Value, ",")) If IsNumeric(Split(ActiveCell.Value, ",")(I)) Then temp = temp + Split(ActiveCell.Value, ",")(I) nb = nb + 1 End If Next
On Error Resume Next MsgBox "moyenne" & temp / nb
A+
On 1 fév, 13:24, Michel Giustina wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule. Exp: A1="2;5;6" Je désire avoir la moyenne des nombre contenu dans A1 Merci d'avance
-- Michel Giustina
-- Michel Giustina- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
-- Michel Giustina
je ne maîtrise pas le nombre de nombre, donc VBA
merci
anonymousA a exposé le 01/02/2007 :
Si le nombre de nombres séparés par une virgule n'est pas trop longue
et connu à l'avance et si le nombre de caractères représentant les
nombres est fixe , une salade de CHERCHE ou TROUVE associé avec des
STXT devrait faire l'affaire.Je te souhaite beaucoup de bonheur.
A+
On 1 fév, 13:47, Michel Giustina <m.giusst...@cccccc.fr> wrote:
Merci pour cette réponse rapide.
Je peu maitriser le caractère séparateur.
D'autre part est t'il possible d'avoir le même résultat
sans passer en VBA mais dans une formule
michel
anonymousA a couché sur son écran :
Bonjour,
Une solution avec VBA qui couvre le cas général ( donc si l'on imagine
que l'on ne connait pas le cardinal de l'ensemble des nombres et il
peut y avoir entre les nombres séparés par des virgules autre chose
que des nombres ). Il faut avoir Excel2000 au moins.
temp = 0
nb = 0
For I = LBound(Split(ActiveCell.Value, ",")) To
UBound(Split(ActiveCell.Value, ","))
If IsNumeric(Split(ActiveCell.Value, ",")(I)) Then
temp = temp + Split(ActiveCell.Value, ",")(I)
nb = nb + 1
End If
Next
On Error Resume Next
MsgBox "moyenne" & temp / nb
A+
On 1 fév, 13:24, Michel Giustina <m.giusst...@cccccc.fr> wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule.
Exp:
A1="2;5;6"
Je désire avoir la moyenne des nombre contenu dans A1
Merci d'avance
--
Michel Giustina
--
Michel Giustina- Masquer le texte des messages précédents -
Si le nombre de nombres séparés par une virgule n'est pas trop longue et connu à l'avance et si le nombre de caractères représentant les nombres est fixe , une salade de CHERCHE ou TROUVE associé avec des STXT devrait faire l'affaire.Je te souhaite beaucoup de bonheur.
A+
On 1 fév, 13:47, Michel Giustina wrote:
Merci pour cette réponse rapide.
Je peu maitriser le caractère séparateur. D'autre part est t'il possible d'avoir le même résultat sans passer en VBA mais dans une formule
michel
anonymousA a couché sur son écran :
Bonjour,
Une solution avec VBA qui couvre le cas général ( donc si l'on imagine que l'on ne connait pas le cardinal de l'ensemble des nombres et il peut y avoir entre les nombres séparés par des virgules autre chose que des nombres ). Il faut avoir Excel2000 au moins. temp = 0 nb = 0 For I = LBound(Split(ActiveCell.Value, ",")) To UBound(Split(ActiveCell.Value, ",")) If IsNumeric(Split(ActiveCell.Value, ",")(I)) Then temp = temp + Split(ActiveCell.Value, ",")(I) nb = nb + 1 End If Next
On Error Resume Next MsgBox "moyenne" & temp / nb
A+
On 1 fév, 13:24, Michel Giustina wrote:
Bonjour,
je désire lire une suite de nombre contenu dans une cellule. Exp: A1="2;5;6" Je désire avoir la moyenne des nombre contenu dans A1 Merci d'avance
-- Michel Giustina
-- Michel Giustina- Masquer le texte des messages précédents -
