Animation d'une pulsation cardiaque!

[garnote]

Bonjour ou Bonsoir, selon le cas,

Une animation d'un cœur qui bat 🙂 et quelques questions aux amateurs de ces folies.
1. Est-ce possible d'obtenir une version 3D (ou presque!) de cette forme en cœur?
2. Je voulais me débarrasser du rectangle bleu en déclanchant la macro par un Worksheet_Change
ou Worksheet_SelectionChange dans la cellule jaune, mais j'ai raté mon coup!
3. Et vous avez des suggestions pour d'éventuelles simplifications?

Bonsoir Bonne nuit et au plaisir
Serge

 

[oguruma]

bonjour
pour l'activation de la macro quand une modification a lieu dans une cellule regarde ceci
If Not Intersect(Target,range("adresse/plage de cellule")) then
.... ton code... appel de ta macro
end if

attention l'appel du code doit être public / accessible à partir de la feuille
.... à placer dans les événements de la feuille soit sur changement soit sur sélection mais tu peux aussi le faire sur double-clic dans la cellule
Google est ton ami 🙂
tu devrais t'en sortir.... tu as fait plus dur quand je regarde ton code... c'est pas mal 🙂

juste une remarque
prend l'habitude de déclarer tes variables par un DIM en début de tes SUB ou FUNCTION ça évite des surprises de conversion en mémoire
pour cela et pour demander à VBA que tout est bien déclaré comme il se doit place en début de module
Option Explicit
et cela se traduit par les options dans les préférences

Option Explicit se mettra automatiquement

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

ps : tu es toubib ?
ça me rappelle la tension systolique 🙂

 

[oguruma]

Bon allez voici....
J'ai nommé la cellule
comme ceci

puis le code dans les événements de la feuille

pour la partie 3D c'est certainement une image que tu as importé... et sauf erreur le changement des propriétés est sans effet via celles d'Excel...
et il faudrait passer par les api certainement mais je ne suis pas spécialiste en graphisme pas mon truc... certainement qqun sur le forum pourra t'en dire plus...
certainement par ICI tu trouveras bonheur (sur developpez.com)
et celui-ci si tu souhaites passer par les shape ICI
pour les shape sylvanou sur le forum a fait un excellent tuto ça peut t'aider en complément de ce lien
déjà une partie de résolue le coeur bât sur saisie du nbr de pulsations... c'est déjà ça

 

[garnote]

Salut Oguruma,
Merci pour ton soutien médical. 🙂
Quant aux Worksheet_Machin, tu viens de me rappeler l'époque lointaine du MPFE
quand je maitrisais ces trucs. Je vais regarder ta version aujourd'hui. Merci.
Serge

 

[Nain porte quoi]

1. Est-ce possible d'obtenir une version 3D (ou presque!) de cette forme en cœur?

Hello,

Avec une version relativement récente d'Excel : Insertion, Modèle 3D, taper "Coeur" dans la ligne "Recherchez sur modèle 3D", y'a plus qu'a choisir

 

[oguruma]

Hello,

Avec une version relativement récente d'Excel : Insertion, Modèle 3D, taper "Coeur" dans la ligne "Recherchez sur modèle 3D", y'a plus qu'a choisir

bsr
je n'ai pas plus cette chance...
et je suis persuadé que je l'avais... dans le passé....

idem pour

c'est grisé sur la ligne...

 

[garnote]

Salute Oguruma,
Bien vu ton document, merci. J'ai modifié légèrement et tout me convient.
Il me manquait le Not Intersect (lointain souvenir) pour le Worksheet_Truc
et quant à la forme de cœur, elle vient de Excel 2016 :
Insérer Formes et Effets.
garnote