Exécution automatique d'une macro
MarieG24
-
MarieG24 -
MarieG24 -
Bonjour,
je suis actuellement en stage et doit beaucoup travailler sous excel, avec des macros et je n'ai jamais appris à utiliser VBA
mon problème est le suivant :
je dois faire apparaitre des images dans des cases où "OUI" est écrit.
j'ai réussi à faire apparaitre les image SI "OUI" est écrit dans la case mais pas dans la case en question. L'image apparaissait partout où je cliquais.
J'ai finalement écrit le code suivant :
Private Sub Worksheet_Activate()
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(Target.Row, "CF") = "OUI" And Not Intersect(Target, Range("$CF$4:$CF$500")) Is Nothing Then
Call gants
End If
End Sub
avec gants une macro appelant l'image de type :
ActiveSheet.Pictures.Insert("F:\Groupes\Usine\SECURITE\Stage 2009\essai images Excel\gants.jpg ").Select
j'ai en fait ce travail à faire sur 4 colonnes avec 4 images différentes mais bon j'arriverai à m'en sortir.
Ce que je voudrais c'est qu'à l'ouverture de mon fichier Excel les images apparaissent automatique dans les cases où "OUI" est écrit de manière à ce que si un "OUI" apparait dans une nouvelle cellule, l'image s'y mette automatiquement. (les "OUI" apparaissant en fonction d'autres données dans le fichier)
est-ce possible ?
je vous remercie infiniment par avance si vous pouvez m'aider, sinon tant pis mon fichier sera juste imparfait.
à bientôt
Marie
je suis actuellement en stage et doit beaucoup travailler sous excel, avec des macros et je n'ai jamais appris à utiliser VBA
mon problème est le suivant :
je dois faire apparaitre des images dans des cases où "OUI" est écrit.
j'ai réussi à faire apparaitre les image SI "OUI" est écrit dans la case mais pas dans la case en question. L'image apparaissait partout où je cliquais.
J'ai finalement écrit le code suivant :
Private Sub Worksheet_Activate()
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(Target.Row, "CF") = "OUI" And Not Intersect(Target, Range("$CF$4:$CF$500")) Is Nothing Then
Call gants
End If
End Sub
avec gants une macro appelant l'image de type :
ActiveSheet.Pictures.Insert("F:\Groupes\Usine\SECURITE\Stage 2009\essai images Excel\gants.jpg ").Select
j'ai en fait ce travail à faire sur 4 colonnes avec 4 images différentes mais bon j'arriverai à m'en sortir.
Ce que je voudrais c'est qu'à l'ouverture de mon fichier Excel les images apparaissent automatique dans les cases où "OUI" est écrit de manière à ce que si un "OUI" apparait dans une nouvelle cellule, l'image s'y mette automatiquement. (les "OUI" apparaissant en fonction d'autres données dans le fichier)
est-ce possible ?
je vous remercie infiniment par avance si vous pouvez m'aider, sinon tant pis mon fichier sera juste imparfait.
à bientôt
Marie
A voir également:
- Exécution automatique d'une macro
- Réponse automatique thunderbird - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Réponse automatique gmail - Guide