XL 2016 Changer une plage de recherche d'une macro à partir d'une feuille

[Lucko]

Private Sub Statistiques()
Dim T, i As Long, dico, Clé, OK As Boolean, T2


Set dico = CreateObject("Scripting.Dictionary")
With Worksheets("Tout ou Rien")
T = .range("E18:X24")  <--- J'aimerais modifier cette partie pour pouvoir changer la plage de recherche dans la feuille et non dans le code puisqu'elle varie en fonction des données recueillies et de mes recherches. Autrement dit, que je puisse écrire X500 ou x246, ou x1000 dans une cellule de la feuille.
For i = LBound(T, 1) To UBound(T, 1)
    For j = LBound(T, 2) To UBound(T, 2)
        dico(T(i, j)) = dico(T(i, j)) + 1
    Next
Next
T2 = Application.Transpose(Array(dico.keys, dico.Items))
While OK = False
    OK = True
    For i = LBound(T2, 1) To UBound(T2, 1) - 1
        If T2(i, 2) < T2(i + 1, 2) Then
            Tmp1 = T2(i, 1)
            Tmp2 = T2(i, 2)
            T2(i, 1) = T2(i + 1, 1)
            T2(i, 2) = T2(i + 1, 2)
            T2(i + 1, 1) = Tmp1
            T2(i + 1, 2) = Tmp2
            OK = False
        End If
    Next
Wend
.range("p5").Resize(1, 10) = Application.Transpose(T2)
End With

End Sub

Bonjour à tous,

Paf a eu l'amabilité de me soumettre ce code macro. Après réflexion, je le trouve utile. j'ai réussi à le modifier quelque peu pour limiter la plage de recherche et le nombre de numéros nécessaire, 10 ou lieu de 12, mais j'aimerais y apporter une autre modification. Voir en rouge dans le code. Merci à tous.

 

[Paf]

Bonjour,

Si la limite est inscrite en A1 (par exemple) :

1) sans le x ( directement 500 ou 245 ...)
T = .range("E18:X" & .Range("A1"))

2) avec le x ( directement x500 ou x245 ...)
T = .range("E18:" & .Range("A1"))

A+

 

[Lucko]

[BonQUOTE="Paf, post: 20097869, member: 185400"]Bonjour,

Si la limite est inscrite en A1 (par exemple) :

1) sans le x ( directement 500 ou 245 ...)
T = .range("E18:X" & .Range("A1"))

2) avec le x ( directement x500 ou x245 ...)
T = .range("E18:" & .Range("A1"))

A+[/QUOTE


Bonjour Paf,

Et merci pour ta réponse. Est-ce à dire que je peux changer également le E18 par ceci?
T = .range("E & .Range("A2"):X" & .Range("A1"))

 

[Paf]

re,

plutôt :

T = .range("E" & .Range("A2") & ":X" & .Range("A1"))

il faut bien 'différencier' les parties chaines des parties variables.

A+

 

[Lucko]

Excellent. encore merci Paf.

 

[Lucko]

Une petite dernière pour la route...

Si je veux trouver le plus grand nombre de numéros sous < 35, comment dois-je m'y prendre?

T = .range("E" & .Range("A2") & ":X" & .Range("A1"))

 

[Paf]

Re,

Une petite dernière pour la route...

Si je veux trouver le plus grand nombre de numéros sous < 35, comment dois-je m'y prendre?

T = .range("E" & .Range("A2") & ":X" & .Range("A1"))

T = .range("E" & .Range("A2") & ":X" & .Range("A1")) sert à mettre globalement dans un tableau les données d'une plage. A ce niveau on ne peut jouer que sur la dimension de la plage.

Je ne comprends pas la demande "trouver le plus grand nombre de numéros sous < 35" avec cette ligne de code?

A+

 

[Lucko]

Re,



T = .range("E" & .Range("A2") & ":X" & .Range("A1")) sert à mettre globalement dans un tableau les données d'une plage. A ce niveau on ne peut jouer que sur la dimension de la plage.

Je ne comprends pas la demande "trouver le plus grand nombre de numéros sous < 35" avec cette ligne de code?

A+

Bonjour Paf,

C'est un peu ce que je j'avais compris mais je me demandais si avec l'ajout de plus petit que < 35, on pouvait trouver les numéros ayant le plus souvent sortie qui sont inférieurs à 35 ou 25 peu importe. Avec la fonction nb.si, on a juste à ajouter le <35 après le point-virgule (e:x;"<35"), je sais qu'avec la fonction application countif VBA on peut le faire ligne par ligne mais c'est foutrement long et que cela nous donne qu'une valeur et non les dix premières ou dernières, je ne sais plus...

 

[Lucko]

Bonjour à tous,

Lorsque j'utilise la macro ci-haut avec Option explicit , la macro ne fonctionne plus. Y a-t-il une corrélation dû à une erreur dans le code? De plus, je cherche toujours une manière de trouver, toujours à partir du code amicalement fourni par PAF ( que je remercie encore), les 10 nombres le plus souvent sortis plus petit que 35 dans une plage de 10,000 lignes de E18 à X10000.

 

[Paf]

Re,

Lorsque j'utilise la macro ci-haut avec Option explicit , la macro ne fonctionne plus

La macro ne fonctionne plus, mais doit indiquer un message d'erreur ?

En comprenant ce que fait Option Explicit , la solution devrait être évidente .

je cherche toujours une manière de trouver, toujours à partir du code amicalement fourni par PAF ( que je remercie encore), les 10 nombres le plus souvent sortis plus petit que 35

il faut modifier:

    ....
    For j = LBound(T, 2) To UBound(T, 2)
        dico(T(i, j)) = dico(T(i, j)) + 1
    Next
....

en :

    ....
    For j = LBound(T, 2) To UBound(T, 2)
         if T(i,j) <35 Then   dico(T(i, j)) = dico(T(i, j)) + 1
    Next
....

A+

 

[Lucko]

Re,


La macro ne fonctionne plus, mais doit indiquer un message d'erreur ?

En comprenant ce que fait Option Explicit , la solution devrait être évidente .



il faut modifier:

    ....
    For j = LBound(T, 2) To UBound(T, 2)
        dico(T(i, j)) = dico(T(i, j)) + 1
    Next
....

en :

    ....
    For j = LBound(T, 2) To UBound(T, 2)
         if T(i,j) <35 Then   dico(T(i, j)) = dico(T(i, j)) + 1
    Next
....

A+

Bonjour Paf,

Merci pour ton aide. J'ai planché depuis dimanche sans trouver la solution. Quand je mets option explicit, le nom Sub Statistiques () est en subrillance. Variable non définie.

 

[Paf]

Variable non définie.

C'est clair !! Une variable n'est pas définie !!!!!

Il n'y a plus qu'à regarder les variables déclarées et celles utilisées. et déclarer celles qui ne le sont pas !

A+

 

[Lucko]

Je vais regarder tout cela.... Merci

 

[Lucko]

J'imagine que parce que je n'y connais que peu de choses au VBA, je copie et reproduit les codes pour m'instruire, je n'ai pas les réflexions appropriés pour comprendre les messages d'erreur!!!! J'ai déclaré le J et le TMP1 et 2. Cela fonctionne maintenant mais ne me demander pas pourquoi...!

 

[Paf]

Re,

Vous avez certainement une bonne raison (?) d'utiliser Option Explicit, c'est donc que vous savez à quoi ça sert ?
L'aide d'excel peut vous apporter beaucoup d'information.

A+