Excel : Augmenter la taille d'une image en ...... la survolant avec la souris...
4 réponses
jeremietardy
Bonjour le Forum en ce mardi soir !!!
J'aimerais savoir si il était possible, en passant avec la souris sur
une image, que celle-ci s'agrandisse.
Mon idée est que j'aurais une base de données avec des noms de pays
par exemple et le drapeaux correspondant au pays en tout petit à coté.
Lorsque je passe sur ces drapeaux avec ma souris ils grossissent afin
de mieux les voir.
Comment puis-je faire cela ?
Autre tite question : j'utilise ce code pour surligner en vert la
ligne d'une ou plsusieurs cellules active
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range
If Target.Row >= 2 And Target.Row <= 10000 Then
If Target.Count = 1 Then
Target.EntireRow.Columns("A:M").Interior.ColorIndex = 43
Else
For Each cell In Target
cell.EntireRow.Columns("A:M").Interior.ColorIndex = 43
Next
End If
End If
End Sub
Cependant avec celui-ci je ne peux plus faire de copier/coller, qd je
change de cellule ça doit me virer ce que j'ai en mémoire !
Tout comme si je souhaite que, si H1 = "Mineur"; H1 et J1 deviennent
jaune, si H1 = "Majeur"; H1 et J1 deviennent orange et si H1 =
"Critique"; H1 et J1 deviennent rouge.
Le fait qu'il y ait un xlNone complique un peu la chose mais je pense
que pour les meilleurs d'entres vous ça devrait aller ;-)
En tout cas merci pour votre précieuse aide.
Merci bcp
Bonne soirée.
Tchao
P.S. Si cela est possible en passant sur une cellule pour faire
apparaitre une image, cela m'intéresse aussi ;-) Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Joël GARBE
Bonsoir...
Une piste simplement :
Boite à outils Contrôles >
Utiliser un contrôle image
Afficher les propriétés de l'image, Propriété Picture, choisir l'image souhaitée.
Puis dans l'image, clic-droit, visualiser le code,
voir action MouseMove
la suite, à toi de le faire...en utilisant les propriétés Height et Width...du contôle
Bon courage
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Lapou" a écrit dans le message de news:
Bonjour le Forum en ce mardi soir !!!
J'aimerais savoir si il était possible, en passant avec la souris sur une image, que celle-ci s'agrandisse. Mon idée est que j'aurais une base de données avec des noms de pays par exemple et le drapeaux correspondant au pays en tout petit à coté. Lorsque je passe sur ces drapeaux avec ma souris ils grossissent afin de mieux les voir.
Comment puis-je faire cela ?
Autre tite question : j'utilise ce code pour surligner en vert la ligne d'une ou plsusieurs cellules active Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim cell As Range If Target.Row >= 2 And Target.Row <= 10000 Then If Target.Count = 1 Then Target.EntireRow.Columns("A:M").Interior.ColorIndex = 43 Else For Each cell In Target cell.EntireRow.Columns("A:M").Interior.ColorIndex = 43 Next End If End If End Sub
Cependant avec celui-ci je ne peux plus faire de copier/coller, qd je change de cellule ça doit me virer ce que j'ai en mémoire ! Tout comme si je souhaite que, si H1 = "Mineur"; H1 et J1 deviennent jaune, si H1 = "Majeur"; H1 et J1 deviennent orange et si H1 > "Critique"; H1 et J1 deviennent rouge.
Le fait qu'il y ait un xlNone complique un peu la chose mais je pense que pour les meilleurs d'entres vous ça devrait aller ;-)
En tout cas merci pour votre précieuse aide.
Merci bcp
Bonne soirée. Tchao
P.S. Si cela est possible en passant sur une cellule pour faire apparaitre une image, cela m'intéresse aussi ;-) Merci
Bonsoir...
Une piste simplement :
Boite à outils Contrôles >
Utiliser un contrôle image
Afficher les propriétés de l'image, Propriété Picture, choisir l'image
souhaitée.
Puis dans l'image, clic-droit, visualiser le code,
voir action MouseMove
la suite, à toi de le faire...en utilisant les propriétés Height et
Width...du contôle
Bon courage
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Lapou" <jeremietardy@free.fr> a écrit dans le message de news:
cad454d.0411091017.116a8229@posting.google.com...
Bonjour le Forum en ce mardi soir !!!
J'aimerais savoir si il était possible, en passant avec la souris sur
une image, que celle-ci s'agrandisse.
Mon idée est que j'aurais une base de données avec des noms de pays
par exemple et le drapeaux correspondant au pays en tout petit à coté.
Lorsque je passe sur ces drapeaux avec ma souris ils grossissent afin
de mieux les voir.
Comment puis-je faire cela ?
Autre tite question : j'utilise ce code pour surligner en vert la
ligne d'une ou plsusieurs cellules active
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range
If Target.Row >= 2 And Target.Row <= 10000 Then
If Target.Count = 1 Then
Target.EntireRow.Columns("A:M").Interior.ColorIndex = 43
Else
For Each cell In Target
cell.EntireRow.Columns("A:M").Interior.ColorIndex = 43
Next
End If
End If
End Sub
Cependant avec celui-ci je ne peux plus faire de copier/coller, qd je
change de cellule ça doit me virer ce que j'ai en mémoire !
Tout comme si je souhaite que, si H1 = "Mineur"; H1 et J1 deviennent
jaune, si H1 = "Majeur"; H1 et J1 deviennent orange et si H1 > "Critique"; H1 et J1 deviennent rouge.
Le fait qu'il y ait un xlNone complique un peu la chose mais je pense
que pour les meilleurs d'entres vous ça devrait aller ;-)
En tout cas merci pour votre précieuse aide.
Merci bcp
Bonne soirée.
Tchao
P.S. Si cela est possible en passant sur une cellule pour faire
apparaitre une image, cela m'intéresse aussi ;-) Merci
Afficher les propriétés de l'image, Propriété Picture, choisir l'image souhaitée.
Puis dans l'image, clic-droit, visualiser le code,
voir action MouseMove
la suite, à toi de le faire...en utilisant les propriétés Height et Width...du contôle
Bon courage
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Lapou" a écrit dans le message de news:
Bonjour le Forum en ce mardi soir !!!
J'aimerais savoir si il était possible, en passant avec la souris sur une image, que celle-ci s'agrandisse. Mon idée est que j'aurais une base de données avec des noms de pays par exemple et le drapeaux correspondant au pays en tout petit à coté. Lorsque je passe sur ces drapeaux avec ma souris ils grossissent afin de mieux les voir.
Comment puis-je faire cela ?
Autre tite question : j'utilise ce code pour surligner en vert la ligne d'une ou plsusieurs cellules active Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim cell As Range If Target.Row >= 2 And Target.Row <= 10000 Then If Target.Count = 1 Then Target.EntireRow.Columns("A:M").Interior.ColorIndex = 43 Else For Each cell In Target cell.EntireRow.Columns("A:M").Interior.ColorIndex = 43 Next End If End If End Sub
Cependant avec celui-ci je ne peux plus faire de copier/coller, qd je change de cellule ça doit me virer ce que j'ai en mémoire ! Tout comme si je souhaite que, si H1 = "Mineur"; H1 et J1 deviennent jaune, si H1 = "Majeur"; H1 et J1 deviennent orange et si H1 > "Critique"; H1 et J1 deviennent rouge.
Le fait qu'il y ait un xlNone complique un peu la chose mais je pense que pour les meilleurs d'entres vous ça devrait aller ;-)
En tout cas merci pour votre précieuse aide.
Merci bcp
Bonne soirée. Tchao
P.S. Si cela est possible en passant sur une cellule pour faire apparaitre une image, cela m'intéresse aussi ;-) Merci
jeremietardy
Bonjour,
Merci pour la piste mais c'est encore un peu flou pour moi !!!
Pouvez-vous m'en dire un peu plus svp, vois me donner un exemple ?
Bonne journée
(Lapou) wrote in message news:...
Bonjour le Forum en ce mardi soir !!!
J'aimerais savoir si il était possible, en passant avec la souris sur une image, que celle-ci s'agrandisse. Mon idée est que j'aurais une base de données avec des noms de pays par exemple et le drapeaux correspondant au pays en tout petit à coté. Lorsque je passe sur ces drapeaux avec ma souris ils grossissent afin de mieux les voir.
Comment puis-je faire cela ?
Autre tite question : j'utilise ce code pour surligner en vert la ligne d'une ou plsusieurs cellules active Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim cell As Range If Target.Row >= 2 And Target.Row <= 10000 Then If Target.Count = 1 Then Target.EntireRow.Columns("A:M").Interior.ColorIndex = 43 Else For Each cell In Target cell.EntireRow.Columns("A:M").Interior.ColorIndex = 43 Next End If End If End Sub
Cependant avec celui-ci je ne peux plus faire de copier/coller, qd je change de cellule ça doit me virer ce que j'ai en mémoire ! Tout comme si je souhaite que, si H1 = "Mineur"; H1 et J1 deviennent jaune, si H1 = "Majeur"; H1 et J1 deviennent orange et si H1 > "Critique"; H1 et J1 deviennent rouge.
Le fait qu'il y ait un xlNone complique un peu la chose mais je pense que pour les meilleurs d'entres vous ça devrait aller ;-)
En tout cas merci pour votre précieuse aide.
Merci bcp
Bonne soirée. Tchao
P.S. Si cela est possible en passant sur une cellule pour faire apparaitre une image, cela m'intéresse aussi ;-) Merci
Bonjour,
Merci pour la piste mais c'est encore un peu flou pour moi !!!
Pouvez-vous m'en dire un peu plus svp, vois me donner un exemple ?
Bonne journée
jeremietardy@free.fr (Lapou) wrote in message news:<cad454d.0411091017.116a8229@posting.google.com>...
Bonjour le Forum en ce mardi soir !!!
J'aimerais savoir si il était possible, en passant avec la souris sur
une image, que celle-ci s'agrandisse.
Mon idée est que j'aurais une base de données avec des noms de pays
par exemple et le drapeaux correspondant au pays en tout petit à coté.
Lorsque je passe sur ces drapeaux avec ma souris ils grossissent afin
de mieux les voir.
Comment puis-je faire cela ?
Autre tite question : j'utilise ce code pour surligner en vert la
ligne d'une ou plsusieurs cellules active
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range
If Target.Row >= 2 And Target.Row <= 10000 Then
If Target.Count = 1 Then
Target.EntireRow.Columns("A:M").Interior.ColorIndex = 43
Else
For Each cell In Target
cell.EntireRow.Columns("A:M").Interior.ColorIndex = 43
Next
End If
End If
End Sub
Cependant avec celui-ci je ne peux plus faire de copier/coller, qd je
change de cellule ça doit me virer ce que j'ai en mémoire !
Tout comme si je souhaite que, si H1 = "Mineur"; H1 et J1 deviennent
jaune, si H1 = "Majeur"; H1 et J1 deviennent orange et si H1 > "Critique"; H1 et J1 deviennent rouge.
Le fait qu'il y ait un xlNone complique un peu la chose mais je pense
que pour les meilleurs d'entres vous ça devrait aller ;-)
En tout cas merci pour votre précieuse aide.
Merci bcp
Bonne soirée.
Tchao
P.S. Si cela est possible en passant sur une cellule pour faire
apparaitre une image, cela m'intéresse aussi ;-) Merci
Merci pour la piste mais c'est encore un peu flou pour moi !!!
Pouvez-vous m'en dire un peu plus svp, vois me donner un exemple ?
Bonne journée
(Lapou) wrote in message news:...
Bonjour le Forum en ce mardi soir !!!
J'aimerais savoir si il était possible, en passant avec la souris sur une image, que celle-ci s'agrandisse. Mon idée est que j'aurais une base de données avec des noms de pays par exemple et le drapeaux correspondant au pays en tout petit à coté. Lorsque je passe sur ces drapeaux avec ma souris ils grossissent afin de mieux les voir.
Comment puis-je faire cela ?
Autre tite question : j'utilise ce code pour surligner en vert la ligne d'une ou plsusieurs cellules active Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim cell As Range If Target.Row >= 2 And Target.Row <= 10000 Then If Target.Count = 1 Then Target.EntireRow.Columns("A:M").Interior.ColorIndex = 43 Else For Each cell In Target cell.EntireRow.Columns("A:M").Interior.ColorIndex = 43 Next End If End If End Sub
Cependant avec celui-ci je ne peux plus faire de copier/coller, qd je change de cellule ça doit me virer ce que j'ai en mémoire ! Tout comme si je souhaite que, si H1 = "Mineur"; H1 et J1 deviennent jaune, si H1 = "Majeur"; H1 et J1 deviennent orange et si H1 > "Critique"; H1 et J1 deviennent rouge.
Le fait qu'il y ait un xlNone complique un peu la chose mais je pense que pour les meilleurs d'entres vous ça devrait aller ;-)
En tout cas merci pour votre précieuse aide.
Merci bcp
Bonne soirée. Tchao
P.S. Si cela est possible en passant sur une cellule pour faire apparaitre une image, cela m'intéresse aussi ;-) Merci
Alain CROS
Bonjour
Pour l'Autre tite question :
Excel dans certain cas vide le presse-papier. Essayer comme ça.
Private Declare Function OpenClipboard& Lib "user32" _ (ByVal hwnd&) Private Declare Function CloseClipboard& Lib "user32" ()
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) OpenClipboard 0& ' ' Le code initial ici ' CloseClipboard End Sub
Pour le PS :
Sélectionner la cellule Insertion Commentaire Click droit sur la bordure du commentaire Format de commentaire... Couleurs et traits Remplissage Couleur : Motifs et textures... Image Image... Sélectionner une image OK OK OK Sélectionner la cellule Click droit Masquer le commentaire
Pour la question principal, la réponse de Joël me semble tout à fait adaptée.
Alain CROS.
"Lapou" a écrit dans le message de news:
Bonjour le Forum en ce mardi soir !!!
J'aimerais savoir si il était possible, en passant avec la souris sur une image, que celle-ci s'agrandisse. Mon idée est que j'aurais une base de données avec des noms de pays par exemple et le drapeaux correspondant au pays en tout petit à coté. Lorsque je passe sur ces drapeaux avec ma souris ils grossissent afin de mieux les voir.
Comment puis-je faire cela ?
Autre tite question : j'utilise ce code pour surligner en vert la ligne d'une ou plsusieurs cellules active Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim cell As Range If Target.Row >= 2 And Target.Row <= 10000 Then If Target.Count = 1 Then Target.EntireRow.Columns("A:M").Interior.ColorIndex = 43 Else For Each cell In Target cell.EntireRow.Columns("A:M").Interior.ColorIndex = 43 Next End If End If End Sub
Cependant avec celui-ci je ne peux plus faire de copier/coller, qd je change de cellule ça doit me virer ce que j'ai en mémoire ! Tout comme si je souhaite que, si H1 = "Mineur"; H1 et J1 deviennent jaune, si H1 = "Majeur"; H1 et J1 deviennent orange et si H1 > "Critique"; H1 et J1 deviennent rouge.
Le fait qu'il y ait un xlNone complique un peu la chose mais je pense que pour les meilleurs d'entres vous ça devrait aller ;-)
En tout cas merci pour votre précieuse aide.
Merci bcp
Bonne soirée. Tchao
P.S. Si cela est possible en passant sur une cellule pour faire apparaitre une image, cela m'intéresse aussi ;-) Merci
Bonjour
Pour l'Autre tite question :
Excel dans certain cas vide le presse-papier.
Essayer comme ça.
Private Declare Function OpenClipboard& Lib "user32" _
(ByVal hwnd&)
Private Declare Function CloseClipboard& Lib "user32" ()
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
OpenClipboard 0&
'
' Le code initial ici
'
CloseClipboard
End Sub
Pour le PS :
Sélectionner la cellule
Insertion
Commentaire
Click droit sur la bordure du commentaire
Format de commentaire...
Couleurs et traits
Remplissage Couleur :
Motifs et textures...
Image
Image...
Sélectionner une image
OK
OK
OK
Sélectionner la cellule
Click droit
Masquer le commentaire
Pour la question principal, la réponse de Joël me semble tout à fait adaptée.
Alain CROS.
"Lapou" <jeremietardy@free.fr> a écrit dans le message de news: cad454d.0411091017.116a8229@posting.google.com...
Bonjour le Forum en ce mardi soir !!!
J'aimerais savoir si il était possible, en passant avec la souris sur
une image, que celle-ci s'agrandisse.
Mon idée est que j'aurais une base de données avec des noms de pays
par exemple et le drapeaux correspondant au pays en tout petit à coté.
Lorsque je passe sur ces drapeaux avec ma souris ils grossissent afin
de mieux les voir.
Comment puis-je faire cela ?
Autre tite question : j'utilise ce code pour surligner en vert la
ligne d'une ou plsusieurs cellules active
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range
If Target.Row >= 2 And Target.Row <= 10000 Then
If Target.Count = 1 Then
Target.EntireRow.Columns("A:M").Interior.ColorIndex = 43
Else
For Each cell In Target
cell.EntireRow.Columns("A:M").Interior.ColorIndex = 43
Next
End If
End If
End Sub
Cependant avec celui-ci je ne peux plus faire de copier/coller, qd je
change de cellule ça doit me virer ce que j'ai en mémoire !
Tout comme si je souhaite que, si H1 = "Mineur"; H1 et J1 deviennent
jaune, si H1 = "Majeur"; H1 et J1 deviennent orange et si H1 > "Critique"; H1 et J1 deviennent rouge.
Le fait qu'il y ait un xlNone complique un peu la chose mais je pense
que pour les meilleurs d'entres vous ça devrait aller ;-)
En tout cas merci pour votre précieuse aide.
Merci bcp
Bonne soirée.
Tchao
P.S. Si cela est possible en passant sur une cellule pour faire
apparaitre une image, cela m'intéresse aussi ;-) Merci
Excel dans certain cas vide le presse-papier. Essayer comme ça.
Private Declare Function OpenClipboard& Lib "user32" _ (ByVal hwnd&) Private Declare Function CloseClipboard& Lib "user32" ()
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) OpenClipboard 0& ' ' Le code initial ici ' CloseClipboard End Sub
Pour le PS :
Sélectionner la cellule Insertion Commentaire Click droit sur la bordure du commentaire Format de commentaire... Couleurs et traits Remplissage Couleur : Motifs et textures... Image Image... Sélectionner une image OK OK OK Sélectionner la cellule Click droit Masquer le commentaire
Pour la question principal, la réponse de Joël me semble tout à fait adaptée.
Alain CROS.
"Lapou" a écrit dans le message de news:
Bonjour le Forum en ce mardi soir !!!
J'aimerais savoir si il était possible, en passant avec la souris sur une image, que celle-ci s'agrandisse. Mon idée est que j'aurais une base de données avec des noms de pays par exemple et le drapeaux correspondant au pays en tout petit à coté. Lorsque je passe sur ces drapeaux avec ma souris ils grossissent afin de mieux les voir.
Comment puis-je faire cela ?
Autre tite question : j'utilise ce code pour surligner en vert la ligne d'une ou plsusieurs cellules active Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim cell As Range If Target.Row >= 2 And Target.Row <= 10000 Then If Target.Count = 1 Then Target.EntireRow.Columns("A:M").Interior.ColorIndex = 43 Else For Each cell In Target cell.EntireRow.Columns("A:M").Interior.ColorIndex = 43 Next End If End If End Sub
Cependant avec celui-ci je ne peux plus faire de copier/coller, qd je change de cellule ça doit me virer ce que j'ai en mémoire ! Tout comme si je souhaite que, si H1 = "Mineur"; H1 et J1 deviennent jaune, si H1 = "Majeur"; H1 et J1 deviennent orange et si H1 > "Critique"; H1 et J1 deviennent rouge.
Le fait qu'il y ait un xlNone complique un peu la chose mais je pense que pour les meilleurs d'entres vous ça devrait aller ;-)
En tout cas merci pour votre précieuse aide.
Merci bcp
Bonne soirée. Tchao
P.S. Si cela est possible en passant sur une cellule pour faire apparaitre une image, cela m'intéresse aussi ;-) Merci
jeremietardy
Bonsoir Alain
Merci pour ton aide je regarde cela avant la fin de la semaine ;-()
La réponse de Joël est sans doute parfaitement clair mais à vrai dire je suis encore un débutant en VBA, par rapport à d'autres et je ne vois pas où aller !
Merci Tchao
"Alain CROS" wrote in message news:...
Bonjour
Pour l'Autre tite question :
Excel dans certain cas vide le presse-papier. Essayer comme ça.
Private Declare Function OpenClipboard& Lib "user32" _ (ByVal hwnd&) Private Declare Function CloseClipboard& Lib "user32" ()
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) OpenClipboard 0& ' ' Le code initial ici ' CloseClipboard End Sub
Pour le PS :
Sélectionner la cellule Insertion Commentaire Click droit sur la bordure du commentaire Format de commentaire... Couleurs et traits Remplissage Couleur : Motifs et textures... Image Image... Sélectionner une image OK OK OK Sélectionner la cellule Click droit Masquer le commentaire
Pour la question principal, la réponse de Joël me semble tout à fait adaptée.
Alain CROS.
"Lapou" a écrit dans le message de news:
Bonjour le Forum en ce mardi soir !!!
J'aimerais savoir si il était possible, en passant avec la souris sur une image, que celle-ci s'agrandisse. Mon idée est que j'aurais une base de données avec des noms de pays par exemple et le drapeaux correspondant au pays en tout petit à coté. Lorsque je passe sur ces drapeaux avec ma souris ils grossissent afin de mieux les voir.
Comment puis-je faire cela ?
Autre tite question : j'utilise ce code pour surligner en vert la ligne d'une ou plsusieurs cellules active Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim cell As Range If Target.Row >= 2 And Target.Row <= 10000 Then If Target.Count = 1 Then Target.EntireRow.Columns("A:M").Interior.ColorIndex = 43 Else For Each cell In Target cell.EntireRow.Columns("A:M").Interior.ColorIndex = 43 Next End If End If End Sub
Cependant avec celui-ci je ne peux plus faire de copier/coller, qd je change de cellule ça doit me virer ce que j'ai en mémoire ! Tout comme si je souhaite que, si H1 = "Mineur"; H1 et J1 deviennent jaune, si H1 = "Majeur"; H1 et J1 deviennent orange et si H1 > > "Critique"; H1 et J1 deviennent rouge.
Le fait qu'il y ait un xlNone complique un peu la chose mais je pense que pour les meilleurs d'entres vous ça devrait aller ;-)
En tout cas merci pour votre précieuse aide.
Merci bcp
Bonne soirée. Tchao
P.S. Si cela est possible en passant sur une cellule pour faire apparaitre une image, cela m'intéresse aussi ;-) Merci
Bonsoir Alain
Merci pour ton aide je regarde cela avant la fin de la semaine ;-()
La réponse de Joël est sans doute parfaitement clair mais à vrai dire
je suis encore un débutant en VBA, par rapport à d'autres et je ne
vois pas où aller !
Merci
Tchao
"Alain CROS" <Personne@ICI> wrote in message news:<ejDMsiyxEHA.4040@TK2MSFTNGP11.phx.gbl>...
Bonjour
Pour l'Autre tite question :
Excel dans certain cas vide le presse-papier.
Essayer comme ça.
Private Declare Function OpenClipboard& Lib "user32" _
(ByVal hwnd&)
Private Declare Function CloseClipboard& Lib "user32" ()
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
OpenClipboard 0&
'
' Le code initial ici
'
CloseClipboard
End Sub
Pour le PS :
Sélectionner la cellule
Insertion
Commentaire
Click droit sur la bordure du commentaire
Format de commentaire...
Couleurs et traits
Remplissage Couleur :
Motifs et textures...
Image
Image...
Sélectionner une image
OK
OK
OK
Sélectionner la cellule
Click droit
Masquer le commentaire
Pour la question principal, la réponse de Joël me semble tout à fait adaptée.
Alain CROS.
"Lapou" <jeremietardy@free.fr> a écrit dans le message de news: cad454d.0411091017.116a8229@posting.google.com...
Bonjour le Forum en ce mardi soir !!!
J'aimerais savoir si il était possible, en passant avec la souris sur
une image, que celle-ci s'agrandisse.
Mon idée est que j'aurais une base de données avec des noms de pays
par exemple et le drapeaux correspondant au pays en tout petit à coté.
Lorsque je passe sur ces drapeaux avec ma souris ils grossissent afin
de mieux les voir.
Comment puis-je faire cela ?
Autre tite question : j'utilise ce code pour surligner en vert la
ligne d'une ou plsusieurs cellules active
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range
If Target.Row >= 2 And Target.Row <= 10000 Then
If Target.Count = 1 Then
Target.EntireRow.Columns("A:M").Interior.ColorIndex = 43
Else
For Each cell In Target
cell.EntireRow.Columns("A:M").Interior.ColorIndex = 43
Next
End If
End If
End Sub
Cependant avec celui-ci je ne peux plus faire de copier/coller, qd je
change de cellule ça doit me virer ce que j'ai en mémoire !
Tout comme si je souhaite que, si H1 = "Mineur"; H1 et J1 deviennent
jaune, si H1 = "Majeur"; H1 et J1 deviennent orange et si H1 > > "Critique"; H1 et J1 deviennent rouge.
Le fait qu'il y ait un xlNone complique un peu la chose mais je pense
que pour les meilleurs d'entres vous ça devrait aller ;-)
En tout cas merci pour votre précieuse aide.
Merci bcp
Bonne soirée.
Tchao
P.S. Si cela est possible en passant sur une cellule pour faire
apparaitre une image, cela m'intéresse aussi ;-) Merci
Merci pour ton aide je regarde cela avant la fin de la semaine ;-()
La réponse de Joël est sans doute parfaitement clair mais à vrai dire je suis encore un débutant en VBA, par rapport à d'autres et je ne vois pas où aller !
Merci Tchao
"Alain CROS" wrote in message news:...
Bonjour
Pour l'Autre tite question :
Excel dans certain cas vide le presse-papier. Essayer comme ça.
Private Declare Function OpenClipboard& Lib "user32" _ (ByVal hwnd&) Private Declare Function CloseClipboard& Lib "user32" ()
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) OpenClipboard 0& ' ' Le code initial ici ' CloseClipboard End Sub
Pour le PS :
Sélectionner la cellule Insertion Commentaire Click droit sur la bordure du commentaire Format de commentaire... Couleurs et traits Remplissage Couleur : Motifs et textures... Image Image... Sélectionner une image OK OK OK Sélectionner la cellule Click droit Masquer le commentaire
Pour la question principal, la réponse de Joël me semble tout à fait adaptée.
Alain CROS.
"Lapou" a écrit dans le message de news:
Bonjour le Forum en ce mardi soir !!!
J'aimerais savoir si il était possible, en passant avec la souris sur une image, que celle-ci s'agrandisse. Mon idée est que j'aurais une base de données avec des noms de pays par exemple et le drapeaux correspondant au pays en tout petit à coté. Lorsque je passe sur ces drapeaux avec ma souris ils grossissent afin de mieux les voir.
Comment puis-je faire cela ?
Autre tite question : j'utilise ce code pour surligner en vert la ligne d'une ou plsusieurs cellules active Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim cell As Range If Target.Row >= 2 And Target.Row <= 10000 Then If Target.Count = 1 Then Target.EntireRow.Columns("A:M").Interior.ColorIndex = 43 Else For Each cell In Target cell.EntireRow.Columns("A:M").Interior.ColorIndex = 43 Next End If End If End Sub
Cependant avec celui-ci je ne peux plus faire de copier/coller, qd je change de cellule ça doit me virer ce que j'ai en mémoire ! Tout comme si je souhaite que, si H1 = "Mineur"; H1 et J1 deviennent jaune, si H1 = "Majeur"; H1 et J1 deviennent orange et si H1 > > "Critique"; H1 et J1 deviennent rouge.
Le fait qu'il y ait un xlNone complique un peu la chose mais je pense que pour les meilleurs d'entres vous ça devrait aller ;-)
En tout cas merci pour votre précieuse aide.
Merci bcp
Bonne soirée. Tchao
P.S. Si cela est possible en passant sur une cellule pour faire apparaitre une image, cela m'intéresse aussi ;-) Merci
