Salut...
Je suis nule sur VBA!
Comment calculer le mode ayant ceci dans ma feuille:
A2=20
A3=20
A4=30
A5, vide
A6=10
A7=12
A8=12
A9=12
Je souhaitera avoir le résultat "20" (mode de 20,20,30) sur B1, le résultat
"12" (mode de 10,12,12,12) sur B5 et le résultat "RIEN" quand l´ordinateur
trouve pas le mode...!
Merci bien..
et á plus...;)
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
Jacky
Re ... Tu vas vite en besogne.... '--------- Sub jj() Dim x: Dim som Application.ScreenUpdating = False For Each c In Range("a1:a" & Range("a65536").End(3).Row + 1) som = som + c.Value x = x + 1 If c = "" Then Range("b" & c.Row - x + 1) = som / (x - 1) If Not Application.IsNA(Application.Mode(Range("a" & c.Row - x + 1 & ":a" & c.Row - 1))) Then Range("c" & c.Row - x + 1) = Application.Mode(Range("a" & c.Row - x + 1 & ":a" & c.Row - 1)) End If Range("d" & c.Row - x + 1) = Application.StDev(Range("a" & c.Row - x + 1 & ":a" & c.Row - 1)) som = 0 x = 0 End If Next End Sub '------------ JJ
"José Carapito" a écrit dans le message de news:
Salut... Je suis nule sur VBA! Comment calculer le mode ayant ceci dans ma feuille: A2 A3 A40 A5, vide A6 A7 A8 A9
Je souhaitera avoir le résultat "20" (mode de 20,20,30) sur B1, le résultat "12" (mode de 10,12,12,12) sur B5 et le résultat "RIEN" quand l´ordinateur trouve pas le mode...! Merci bien.. et á plus...;)
Re ...
Tu vas vite en besogne....
'---------
Sub jj()
Dim x: Dim som
Application.ScreenUpdating = False
For Each c In Range("a1:a" & Range("a65536").End(3).Row + 1)
som = som + c.Value
x = x + 1
If c = "" Then
Range("b" & c.Row - x + 1) = som / (x - 1)
If Not Application.IsNA(Application.Mode(Range("a" & c.Row - x + 1 & ":a" &
c.Row - 1))) Then
Range("c" & c.Row - x + 1) = Application.Mode(Range("a" & c.Row - x + 1 &
":a" & c.Row - 1))
End If
Range("d" & c.Row - x + 1) = Application.StDev(Range("a" & c.Row - x + 1 &
":a" & c.Row - 1))
som = 0
x = 0
End If
Next
End Sub
'------------
JJ
"José Carapito" <JosCarapito@discussions.microsoft.com> a écrit dans le
message de news: 24506D10-FBC7-46CA-9046-6ECD7FC7BD78@microsoft.com...
Salut...
Je suis nule sur VBA!
Comment calculer le mode ayant ceci dans ma feuille:
A2
A3
A40
A5, vide
A6
A7
A8
A9
Je souhaitera avoir le résultat "20" (mode de 20,20,30) sur B1, le
résultat
"12" (mode de 10,12,12,12) sur B5 et le résultat "RIEN" quand l´ordinateur
trouve pas le mode...!
Merci bien..
et á plus...;)
Re ... Tu vas vite en besogne.... '--------- Sub jj() Dim x: Dim som Application.ScreenUpdating = False For Each c In Range("a1:a" & Range("a65536").End(3).Row + 1) som = som + c.Value x = x + 1 If c = "" Then Range("b" & c.Row - x + 1) = som / (x - 1) If Not Application.IsNA(Application.Mode(Range("a" & c.Row - x + 1 & ":a" & c.Row - 1))) Then Range("c" & c.Row - x + 1) = Application.Mode(Range("a" & c.Row - x + 1 & ":a" & c.Row - 1)) End If Range("d" & c.Row - x + 1) = Application.StDev(Range("a" & c.Row - x + 1 & ":a" & c.Row - 1)) som = 0 x = 0 End If Next End Sub '------------ JJ
"José Carapito" a écrit dans le message de news:
Salut... Je suis nule sur VBA! Comment calculer le mode ayant ceci dans ma feuille: A2 A3 A40 A5, vide A6 A7 A8 A9
Je souhaitera avoir le résultat "20" (mode de 20,20,30) sur B1, le résultat "12" (mode de 10,12,12,12) sur B5 et le résultat "RIEN" quand l´ordinateur trouve pas le mode...! Merci bien.. et á plus...;)
José Carapito
c´est vrai...eheheh Une fois de plus,merci bien...j´aimerai bien aidé qui m´aide,mais je sais vraiment pas comment??!..:((
"Jacky" wrote:
Re ... Tu vas vite en besogne.... '--------- Sub jj() Dim x: Dim som Application.ScreenUpdating = False For Each c In Range("a1:a" & Range("a65536").End(3).Row + 1) som = som + c.Value x = x + 1 If c = "" Then Range("b" & c.Row - x + 1) = som / (x - 1) If Not Application.IsNA(Application.Mode(Range("a" & c.Row - x + 1 & ":a" & c.Row - 1))) Then Range("c" & c.Row - x + 1) = Application.Mode(Range("a" & c.Row - x + 1 & ":a" & c.Row - 1)) End If Range("d" & c.Row - x + 1) = Application.StDev(Range("a" & c.Row - x + 1 & ":a" & c.Row - 1)) som = 0 x = 0 End If Next End Sub '------------ JJ
"José Carapito" a écrit dans le message de news:
Salut... Je suis nule sur VBA! Comment calculer le mode ayant ceci dans ma feuille: A2 A3 A40 A5, vide A6 A7 A8 A9
Je souhaitera avoir le résultat "20" (mode de 20,20,30) sur B1, le résultat "12" (mode de 10,12,12,12) sur B5 et le résultat "RIEN" quand l´ordinateur trouve pas le mode...! Merci bien.. et á plus...;)
c´est vrai...eheheh
Une fois de plus,merci bien...j´aimerai bien aidé qui m´aide,mais je sais
vraiment pas comment??!..:((
"Jacky" wrote:
Re ...
Tu vas vite en besogne....
'---------
Sub jj()
Dim x: Dim som
Application.ScreenUpdating = False
For Each c In Range("a1:a" & Range("a65536").End(3).Row + 1)
som = som + c.Value
x = x + 1
If c = "" Then
Range("b" & c.Row - x + 1) = som / (x - 1)
If Not Application.IsNA(Application.Mode(Range("a" & c.Row - x + 1 & ":a" &
c.Row - 1))) Then
Range("c" & c.Row - x + 1) = Application.Mode(Range("a" & c.Row - x + 1 &
":a" & c.Row - 1))
End If
Range("d" & c.Row - x + 1) = Application.StDev(Range("a" & c.Row - x + 1 &
":a" & c.Row - 1))
som = 0
x = 0
End If
Next
End Sub
'------------
JJ
"José Carapito" <JosCarapito@discussions.microsoft.com> a écrit dans le
message de news: 24506D10-FBC7-46CA-9046-6ECD7FC7BD78@microsoft.com...
Salut...
Je suis nule sur VBA!
Comment calculer le mode ayant ceci dans ma feuille:
A2
A3
A40
A5, vide
A6
A7
A8
A9
Je souhaitera avoir le résultat "20" (mode de 20,20,30) sur B1, le
résultat
"12" (mode de 10,12,12,12) sur B5 et le résultat "RIEN" quand l´ordinateur
trouve pas le mode...!
Merci bien..
et á plus...;)
c´est vrai...eheheh Une fois de plus,merci bien...j´aimerai bien aidé qui m´aide,mais je sais vraiment pas comment??!..:((
"Jacky" wrote:
Re ... Tu vas vite en besogne.... '--------- Sub jj() Dim x: Dim som Application.ScreenUpdating = False For Each c In Range("a1:a" & Range("a65536").End(3).Row + 1) som = som + c.Value x = x + 1 If c = "" Then Range("b" & c.Row - x + 1) = som / (x - 1) If Not Application.IsNA(Application.Mode(Range("a" & c.Row - x + 1 & ":a" & c.Row - 1))) Then Range("c" & c.Row - x + 1) = Application.Mode(Range("a" & c.Row - x + 1 & ":a" & c.Row - 1)) End If Range("d" & c.Row - x + 1) = Application.StDev(Range("a" & c.Row - x + 1 & ":a" & c.Row - 1)) som = 0 x = 0 End If Next End Sub '------------ JJ
"José Carapito" a écrit dans le message de news:
Salut... Je suis nule sur VBA! Comment calculer le mode ayant ceci dans ma feuille: A2 A3 A40 A5, vide A6 A7 A8 A9
Je souhaitera avoir le résultat "20" (mode de 20,20,30) sur B1, le résultat "12" (mode de 10,12,12,12) sur B5 et le résultat "RIEN" quand l´ordinateur trouve pas le mode...! Merci bien.. et á plus...;)
