Animation d'une pulsation cardiaque!

  • Initiateur de la discussion Initiateur de la discussion garnote
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

garnote

XLDnaute Junior
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
 

Pièces jointes

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
1745395850331.png


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 🙂
 
Dernière édition:
Bon allez voici....
J'ai nommé la cellule
comme ceci
1745402197261.png

puis le code dans les événements de la feuille
1745402238007.png


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
 

Pièces jointes

Dernière édition:
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
 
Dernière édition:
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour