Bonsoir JCGL,

Merci d'avoir testé le XL Quiz !
J'espère que ces petits exercices sauront séduire et trouver des amateurs.

Cordialement,

Bonsoir,

Merci Porcinet82, très heureux de t'accueillir ici .

Cordialement,

Bonsoir,

Merci Tibo, bienvenue à toi

Cordialement,

Bonsoir à toutes et tous !


Un nouveau projet vient de voir le jour sur XLpages, réservé aux membres du site, il s'agit d'une série de Quiz Excel.

Support ludique, le quiz m'a semblé intéressant pour permettre à chacun d'aborder les thèmes Excel qui lui sont chers :

l'Interface et les Généralités Excel

Le langage VBA

Les Formules Excel

les Tableaux Croisés Dynamiques

et les Graphiques Excel.

Chaque thème est composé de plusieurs questionnaires à choix multiples. Ces questionnaires, comportant chacun 10 questions, seront mis en ligne au fur et à mesure. D'autres séries suivront bientôt et la difficulté devrait croître également ...

Ces Quiz sont accessibles également depuis votre Menu principal (à gauche) si vous êtes membre inscrit et connecté.

Une bonne façon de réviser ses connaissances, voire même d'apprendre en s'amusant !

Pas de chronomètre ou de décompte de temps. Des points sont attribués pour le fun, mais l'objectif est avant tout pédagogique.


Enfin, un grand MERCI à Celeda, Brigitte, CB60 et JeanMarie pour leur patience (eh oui... j'en profite pour apprendre aussi ), leurs aimables et très précieuses contributions, et sans lesquels ce projet n'aurait sans doute pas vu le jour.

Je laisse ouvert le présent fil de discussions pour toute remarque ou suggestion...

Bon amusement !

Bonjour Megaolive, JCGL, le Forum,

Hum.... sans les données du classeur, difficile de se représenter exactement où tu veux en venir...

Cela dit, si je me base strictement sur le code que tu fournis ici, juste quelques remarques. A part une ou deux choses, c'est globalement du chipotage qui permettrait peut-être d'optimiser ta procédure. Enfin, c'est mon point de vue, cela ne veut en aucun cas dire que c'est comme ça qu'il faut faire et pas autrement :

Ta variable Cell n'est pas déclarée.
Je te conseille d'utiliser l'instruction Option Explicit en tête de module afin de t'obliger à déclarer systématiquement toute variable utilisée ! Ca t'évitera quelques surprises un jour ou l'autre...

Compte tenu des valeurs affectées aux variables r_peri, r_pays, c_dept, ces variables pourraient avantageusement être déclarées Byte au lieu de Integer, Byte étant largement suffisant semble-t'il.

Il en est de même pour la variable r_dest puisque la plage AB15:AG31 contient moins de 255 cellules.

En fait, tu déclares des "variables" (r_peri, r_pays, c_dept) et tu sembles leur affecter des valeurs fixes (14, 13 et 28)... Il est donc peut-être préférable de les déclarer directement en tant que Constantes dès le départ.

En plaçant la ligne "r_dest = r_dest + 1" AVANT la ligne "f_dest.Cells(r_dest, 1).Value = Cells(....", tu n'as plus besoin d'affecter la valeur 1 à la variable r_dest en amont et tu économises donc une ligne de code.

Ci-dessous ta procédure, selon ma façon de voir les choses :

Cordialement,

Bonsoir,

Je vous informe que la navigation sur le présent site risque d'être perturbée dans la nuit du du 12 au 13 juillet 2007 (c'est à dire cette nuit ).

Mon hébergeur NUXIT procède à une maintenance sur les serveurs.

Cordialement,

Re le fil,

Voici une solution d'après l'analyse que j'ai du problème pour ma part (j'ai essayé de préserver autant que possible la procédure originale) :
Modifications apportées à la procédure :

J'ai ajouté une variable compteur "N" qui permet de ranger les données copiées au fur et à mesure dans la plage réceptrice

J'ai ajouté et revu certains commentaires (For Each/Next n'est pas une "fonction" mais un "bloc d'instructions" permettant de réaliser une boucle)

Dans If UCase(c.Value) <> "" Then, j'ai supprimé la notion de Ucase() qui n'a semble t'il pas d'intérêt ici (Ucase est une fonction permettant de convertir une chaine en Majuscules)

Espérant avoir compris le sujet et t'avoir un peu aidé...
N'hésite pas si tu as besoin d'un complément d'informations.

Cordialement,

Bonsoir Megaolive, JCGL, le Forum,

J'imagine que nos amis de VeriTi auraient (à juste titre) préférés un lien sur le fichier plutôt que le fichier lui-même posté ici.
Je viens de faire une recherche et n'ayant pas trouvé non plus le fichier original sur le site de VériTi, je poste donc ici le zip que m'a fait parvenir JCGL par mail.

Cela dit, peut-être que je me trompe mais j'ai dans l'idée que Megaolive ne parle pas des "Commentaires" comme tu l'as compris JCGL...
Je reviens d'ici quelques minutes pour exposer ce que j'ai interprété pour ma part...

Cordialement,

NB: Tu as raison JCGL, effectivement il y avait un problème pour uploader les fichiers zip ici. J'ai installé un module de protection la semaine dernière mais visiblement, ce module protège bien plus qu'il ne devrait... je viens donc de le désactiver. On devrait pouvoir joindre des fichiers aux posts maintenant sans problème (Zip de moins de 50Ko tout de même. )

Bonsoir jacques, JCGL,

Arf, j'ai l'impression que l'ami jacques confond forum Excel et forum de maths...

Sauf erreur, concernant les coordonnées polaires et si j'en crois mes recherches sur le net quant au principe de conversion :

Soit une abscisse X en cellule A1 et une ordonnée Y en cellule B1,

On devrait obtenir le rayon par la formule suivante :

et l'angle par :


Cordialement,

Salut JCGL,

Je crois qu'on a compris la même chose lol
J'ai pensé, pour ma part, qu'on pouvait peut-être éviter le VBA dans le cas présent et se servir des possibilités "naturellement" offertes par le tableur.

Mais tu as sûrement raison, JAJA semble demander par macro...

Cordialement,