Erreur d'Exécution '70' Permission refusée

Bonjour,

Jai créé un code vba qui peut faire une statistique pour calculer une fréquence la plus favorable, sur un tableau des sorties des numéros du Loto ( avec des dates passés 'téléchargeable sur le site').

>>> Mais j'obtiens toujours l’erreur : Erreur d'exécution '70' Permission refusée !!?

....(Est-ce qu'il y aune Référence d’outils qui manque!?)...

En voici une partie de ce code:

Bonjour

En voici une partie de ce code:

Il y a deux codes...
Si vous cliquez sur Ok, le code s'arrête sur quelle ligne ?

Crdlt

Bonjour Dan,

si vous voulez je peux vous envoyer le classeur ou le fichier entier...

En fait, voici la capture ( dans la tab):

@+ zizou

>>>la tab de la feuille 'tirages' (_397 lignes) :

>>> Et la feuille 'frequences' (2 tab : 52 l et 13 l) , que la macro doit remplir:

B = boule

La tab est mis à partir de la ligne 3 et colonne B ou 2 ==> feuille 'tirages'

La tab de la feuille 'frequences' est mis à partir de la ligne 3 et colonne D ou 4

Bonjour

J'ai remanié vos tableaux en supprimant des lignes car impossible de lire ou comprendre vu le nombre de lignes que vous y aviez placées. Même en retournant mon écran ....

Pour votre souci, Erreur 70 vous êtes sûr de ne pas avoir une feuille Protégée ?
Quelques informations ici --> https://learn.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/permission-denie...

Peut être aussi voir
- si votre tableau TabB est correctement dimensionné. Là vous allé jusque 49...
- quelle est la valeur de Boule au moment au cela plante

Crdlt

code-general-vba-loto.txt

Bonjour,

Ci joint, je vous envoie le fichier xlsm, et le code VBA en txt placé sur la feuil1:' tirages ' .

"ON peut raccourcir le tableau, autant qu'il n'y a plus d'erreur, pour le transfert vers la feuil2:' frequences '

Merci.

PS: Je l'ai désactivé. Le fichier n'est plus protégé. "Il suffit: avant de l'ouvrir, de cliquer droit 'Propriété' et en bas à droite : ' Débloquer', et Ok."

Bien cordialement

Zizou

Bonjour, c'est plus simple que je vous envoie le fichier avec le code vba mis.

... L'erreur se trouve dans le code:

Private Sub stats_Click()

...

@+Crdt

Bonjour,

Je n'ai pas d'erreur 70 mais plutôt une erreur 9

Sinon je n'ai pas analysé en profondeur mais sur la variable TabB vous définissez de 1 à 49 et dans votre tableau vous avez des valeurs à 50
idem sur le TabC où vous avez des valeurs à 15

Là comme votre code est rédigé, essayez déjà en changeant cette ligne

ReDim tabB(1 To 50): ReDim tabC(1 To 15)

REM : Maintenant au delà de votre souci, je ne comprends pas pourquoi vous utilisez un code pour obtenir le résultat de la colonne fréquence dans la feuille Fréquence. C'est un peu se compliquer la vie. Vous n'avez besoin que d'une simple formule NB.SI

Dans le colonne boule, vous mettez le numéro des boules de 1 à 50
Dans la colonne Fréquence, en E4 cette formule --> =NB.SI(tirages!$C$4:$G397;$D4) puis tirer vers le bas
idem pour la colonne Frequence pour la colonne Chance. En H4 -->=NB.SI(tirages!$H$4:$H$397;$G4) puis tirer vers le bas
Après il suffit de trier les colonnes sans code

si ok et terminé pensez à clôturer le fil

Cordialement

Bonjour Dan,

Gmerci, pour la correction. Super.

C'est vrai qu'avec les fonctions des variables, c'est plus facile et s'exécute d'une façon transparente.

...d'ailleurs, je l'ai fais, en attendant une correction possible, dans un autre fichier en combinant "Fonctions et Code vba" pour la colonne 'Freq.' de la table(sheet: 'tirages' )=> dans une colonne I (vide); et +en plus transférer le résultat dans la table(sheet:) 'frequences' vers colonnes D et E / boule et Freq. Cela a fonctionné. Mais je n'ai pas été plus loin, c'est déjà fastidieux pour moi!.

* J'ai une information importante, que j'ai oublié (sorry!), tellement que j'étais occupé avec l’adaptation du votre Code-vba, en rapport avec ma nouvelle table: >>>C'est que cette table de numéros est téléchargé depuis la source des résultats de l' Euromillion, et non du Loto(lien de votre site > .fr), et chose importante -négative il n'y a pas de colonne de 'Chance' (du sheet: 'tirages') dans celui-ci.... Donc, j'ai du ignorer la colonne 'Chance' , en insérant ces nouveaux Nos, et laissant cette dernière( la votre) telle quelle pour ma facilité.

----------------------------------------------------------------------------------------------------------

=>Maintenant, ma question: c'est qu'elle est la Fonction(fx) "=NB.SI"(fx) que je devrais mettre pour le calcul de la colonne 'Chance' (du sheet: 'tirages') ??

Remerciements.

Bien cdrt, @+ Zizou

Bonjour,

C'est vrai qu'avec les fonctions des variables, c'est plus facile et s'exécute d'une façon transparente.
...d'ailleurs, je l'ai fais, en attendant une correction possible,

Ben vous auriez dû continuer dans ce sens.
A quoi bon vouloir se tracasser avec de la programmation quand tout est disponible de base dans excel.
Sans moquerie aucune mais c'est un peu si on apprenait l'utilisation le calcul intégral avant de savoir faire une somme de deux nombres lol !.

J'ai une information importante, que j'ai oublié (sorry!), C'est que cette table de numéros est téléchargé depuis la source...chose importante -négative il n'y a pas de colonne de 'Chance'

Je n'ai pas la possibilité de voir mais lorsque vous chargez la page tirage, vous remettez à jour le tableau ou vous effacez le tableau complet ?
Si vous commencez toujours en B2, la colonne Chance peut rester en place.

Pour la colonne chance, vous calculez comment en fait ?
Si on prend H4 par exemple, la valeur est trouvée comment ?

Crdlt

Bonjour,

Merci pour votre compréhension.

Mon objectif était de lier mon site pour donner l'accès à des élèves pour traiter des cours sciences, en live (avec un serveur) : techniques/ électronique et transmission pour moi, et de mathématiques pour mon frère qui est justement inspecteur en maths dans le secondaire... Pour l'instant, comme j'avais des connaissances des codes XLS, j'essaie de m'y intéresser pour approfondir mes connaissances des codes VBA et DB, liés avec Excel.

Mon cher ami, amicalement , c’est juste pour rire un peu, et j’adore ce genre de blagues ... "reprise...".

"Sans moquerie, si on apprenait l'utilisation le calcul intégral avant de connaître les dérivés" lol !.

"info: ....pour les études, il y a des personnes qui avaient des résultats moyens dans le niveau secondaire, et en supérieur ont quand même obtenu des bons résultats, et certains même un doctorat…

Bien cdt, et grand merci encore.

Vote ami Zizou

Bonjour

"Sans moquerie, si on apprenait l'utilisation le calcul intégral avant de connaître les dérivés" lol !.

Excellent !

"info: ....pour les études, il y a des personnes qui avaient des résultats moyens dans le niveau secondaire, et en supérieur ont quand même obtenu des bons résultats, et certains même un doctorat…

Et là c'est complétement exact. J'ai d'ailleurs un exemple d'une connaissance ! devenu Docteur

Pour l'instant, comme j'avais des connaissances des codes XLS, j'essaie de m'y intéresser pour approfondir mes connaissances des codes VBA et DB, liés avec Excel.

Ok je comprends car au vu des codes c'est déjà pour un niveau avancé...

Cela étant, vous ne m'avez pas répondu au sujet de la colonne "Chance"

Cordialement

Bonjour mon ami Dan,

Excusez-moi, je suis très occupé avec la modification mon site, et au même temps de coder des programmes en c+ pour les maths de mon frère... Croyez-moi c'est un gros travail!.

En résumé, comme je l'avais dit je ne suis pas 'administratif' mais tout à fait technique, donc c'est un paradoxe!. Et j'essaie d’approfondir les connaissances en xls(macro/db/tab.croisées/requête), c'est très intéressant, et merci encore, puisque vous en êtes spécialiste. Moi, j'ai uniquement les Bases. Mais ce n'est pas ma priorité.

Très vite, j'essaie de comprendre... Pour moi, 'Chance'! : c'est le calcul combinatoire de sorties des numéros de boule de 1 à 50 (eurom), ou 1à 49 (loto); par rapport aux données du tableau des sorties (exemple de la table ici).

Donc, je peux créer deux nouvelles colonnes séparées: 1)boules de 1 à 50 (eurom),
et 2)Nbe.Chance (exemple ci-dessous) , dans la 1ère cellule vide en dessous du titre: 'Nbe.Chance' , et en sélectionnant la plage, en la figeant, de C4 jusqu'à G227( mon exemple de la table modifiée: basée sur vos colonnes de b1 à b5, ainsi modifiées) ___________"Raccourcis: en tirant vers le bas: Ctrl+Maj+droite et bas" des colonnes des boules de b1 à b5 (exemple ici>>> Eurom_de 1 à 50), avec la fonction: =NB.SI($C$4:$G$227;J4)

Ici, je les ai déjà Filtrées en décroissanceà droite ==> "Ctrl+maj+L" ...........Sorry, pour les fautes d'orthog ( mon 'r' : prob.clavier)/ et que j'ai pris tt le résultat en capture!.

Merci. bav et @+ Zizou.

Bonjour

Excusez-moi, je suis très occupé avec la modification mon site, et au même temps de coder des programmes en c+ pour les maths de mon frère... Croyez-moi c'est un gros travail!.

Oui j'imagine bien mais pas de soucis de mon coté.

Pour la Chance, j'avais compris que cela venait d'une "stat" mais ce que je voulais savoir comment les chiffres en colonne H (colonne Chance) de la feuille Tirages sont là c'est dans votre fichier posté ? Code, site web ?
C'était juste pour comprendre et peut-être utiliser une formule pour trouver les valeurs. Mais au vu des explications je doute

Cordialement