begin process at 2012 02 16 20:08:37
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

VBA

 > FRACTALE COULEURS EXCEL VBA

FRACTALE COULEURS EXCEL VBA


 Information sur la source

Note :
2 / 10 - par 1 personne
2,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :VBA Classé sous :fractale, vba, excel, graphique Niveau :Débutant Date de création :18/07/2007 Vu / téléchargé :8 503 / 690

Auteur : Bourdon1

Ecrire un message privé
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

 Description

Evènement graphique automatique sous VBA excel


 Conclusion

Lancer Fractale
Pour arrêter une seule façon : crtl+Attn puis fin
Supprimer pour tout vider

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  • Fractale.xlsTélécharger ce fichier [Réservé aux membres club]101 888 octets

Télécharger le zip


 Sources de la même categorie

Source avec Zip Source avec une capture OUTLOOK ATTACHEMENT SAVER par MoiLafouine
Source avec Zip GESTION PERSONNEL par oudlarbi
Source avec Zip Source avec une capture CALENDRIER EN VBA POUR EXCEL 2010 par nounou94
Source avec Zip Source avec une capture MANIPULER LES FENETRES ENFANT D'EXCEL par bigfish_le vrai
Source avec Zip Source avec une capture COLLECTION ID par Le Pivert

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture TOURS DE HANOI (JEU) SOUS EXCEL (VBA) par rtoukkys
METTRE EN FORME DU TEXTE WORD DEPUIS EXCEL EN VBA par phanoulevoyou
Source avec Zip Source avec une capture [VBA VB6] FORCER L'OUVERTURE D'UN COMBOBOX par lermite222
Source avec Zip Source avec une capture [VBA] EXCEL - DÉMO - TIRER 1, 2 OU 3 DÉS + APIS par lermite222
Source avec une capture EXEMPLE D'AFFICHAGE D'UN GRAPHIQUE, DANS UN USERFORM, POUR V... par mortalino

Commentaires et avis

Commentaire de bayosky le 23/07/2007 13:35:41

bof bof bof ...
Primo, putpixel va plus vite en supprimant les Truc.select
suivi de selection.action
Secundo, je ne vois pas le rapport entre l'ensemble de Mandelbrot et le rectangle rayé obtenu ou le camenbert variable qui est situé en dessous.
J'ai l'impression qu'il là s'agit d'un bricolage à partir d'un code trouvé ailleurs... Pas mal de variables ne servent à rien du tout ici puisque les pixels sont remplacés par des cellules et rien n'est paramétrable....
Bref, je ne vois pas trop l'intérêt de ce truc qui doit contenir au moins un bug...

Commentaire de bayosky le 23/07/2007 13:56:01

Encore moi ...

J'ai localisé deux erreurs ...

-> virer le camembert et putpixel()
-> On peut augmenter k_max à 100 au moins
-> remplacer iterat() par le code ci-dessous...

On obtient enfin une "vue du célèbre ensemble.
reste à

1. ajouter des outils pour la zone étudiée paramétrable
2. Augmenter sugnificativement la taille du "dessin obtenu"
( on pourrait envisager 256x256 cellules )

Cordialement,

HB
--------------------
Sub iterat(np, nq As Integer)
p = pmin + np * dp
q = qmin + nq * dq
k = 0
x = 0
y = 0
Do
x_alt = x
x = x * x - y * y + p
y = 2 * x_alt * y + q
k = k + 1
Loop Until (x * x + y * y > r_max) Or (k = k_max)
If k = k_max Then
    k = 0
End If
z = np
s = yres - nq
u_f = k Mod ak
Worksheets("Mandelbrot").Cells(s + 1, z + 1).Interior.ColorIndex = u_f

End Sub
--------------------

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

VBA - Excel - Graphique apparait type info bulle [ par theooo ] Bonjour, Je fais mes premiers pas sur le forum, je programme un tout petit peu en VBA pour me simplifier le quotidien professionnel... Mais la je cal [déplacé VB6 -> VBA] problème graphique VBA [ par fofy78 ] Bonjour, J'ai quelques petits soucis sous VBA. J'ai fait un code pour générer automatiquement un graphique dans une feuille EXCEL. J'arrive à affiche SOS Vba excel :placer un graphique à un endroit précis d'une feuille [ par zitor ] SOS Vba excel :placer un graphique à un endroit précis d'une feuille !Je ne sais pas du tout comment faire ! HELP please ?!Zitor VBA EXCEL: Données X et Y pour un graphique [ par Petitgus ] Salut !Je cherche à insérer ds un graphique (nuage de pts) des séries directement à partir des valeurs contenues dans des variables (vecteurs ou matri graphique dans excel avec vba ??? [ par cyberlulu ] Salut !Je travaille sur excel. J'ai ajouté un graph sur une nouvelle feuille. Sur la feuille 1, j'ai mis un bouton pour passer sur la feuille graph1 : Graphique sous excel [ par fisheye510 ] salutJ'ai un petit probléme avec les graphiques sous excel, j'ai réalisé une interface sous VBA qui permet de créer des graphiquesa partir de données graphique excel & vba [ par grunnico ] Bonjour,je cree des graphiques excel avec vb en ajoutant des nouvelles series, puis je defini un ens de donnees et je l'affecte a ma serie. Le problem Comment renommer un graphique en vba excel????? [ par Nkubi ] BonjourJe veux renommer un graphique pour faciliter son utilisation et je n'y arrive pas.J'ai trouvé quelques trucs un peu partout mais rine ne marche Insérer graphique Excel dans un onglet sous VBA [ par vinzalex ] Bonjour à tous, j'ai créé un logiciel de gestion de stock sous VBA et now je voudrais afficher un graphique excel dans un onglet sous VBA. Pouvez-vous Exportation de Graphique Excel sous Power Point depuis VBA [ par CLOC04 ] Bonjour,Je cherche à copier des graphiques créés dans Excel, dans une présentation power Point.Comment faire ?Merci par avance de votre aide.celine


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 11,669 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales