Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de la
Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de la
Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de la
Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de la
Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de la
Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de la
Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de la
Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de la
Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de la
Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de la
Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de la
Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de la
Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de
la Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de
la Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de
la Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir Noegor;
Tu peux essayer d'insérer la plage en tant qu'image:
Private Declare Function _
CloseClipboard& Lib "user32" ()
Private Declare Function _
OpenClipboard& Lib "user32" (ByVal hwnd&)
Private Declare Function _
EmptyClipboard& Lib "user32" ()
Private Declare Function _
GetClipboardData& Lib "user32" (ByVal wFormat&)
Private Type PicBmp
Size As Long
Type As Long
hBmp As Long
hPal As Long
Reserved As Long
End Type
Private Type Guid
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Declare Function OleCreatePictureIndirect& Lib _
"olepro32.dll" (PicDesc As PicBmp, RefIID As Guid _
, ByVal fPictureOwnsHandle&, IPic As IPicture)
Sub SaveRangeAsBmp()
Const Temp$ = "c:Tmp.bmp"
ThisWorkbook.Sheets(2).Range("A1:C3").CopyPicture 1, 2
OpenClipboard 0&
SavePicture CreatePicture(GetClipboardData(2)), Temp
EmptyClipboard
CloseClipboard
With ThisWorkbook.Sheets(1).Range("A1")
.ClearComments
.AddComment
.Comment.Text Text:=""
.Comment.Shape.Fill.UserPicture Temp
End With
On Error Resume Next
Kill Temp
End Sub
Private Function CreatePicture(ByVal hBmp&) As IPicture
Dim Ret&, Pic As PicBmp, IPic As IPicture, IID As Guid
With IID
.Data1 = &H20400
.Data4(0) = &HC0
.Data4(7) = &H46
End With
With Pic
.Size = Len(Pic)
.Type = 1
.hBmp = hBmp
End With
Ret = OleCreatePictureIndirect(Pic, IID, 1, IPic)
Set CreatePicture = IPic
End Function
MP
"Noegor" a écrit dans le message de news:
OJ9EfR4%Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de
la Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir Noegor;
Tu peux essayer d'insérer la plage en tant qu'image:
Private Declare Function _
CloseClipboard& Lib "user32" ()
Private Declare Function _
OpenClipboard& Lib "user32" (ByVal hwnd&)
Private Declare Function _
EmptyClipboard& Lib "user32" ()
Private Declare Function _
GetClipboardData& Lib "user32" (ByVal wFormat&)
Private Type PicBmp
Size As Long
Type As Long
hBmp As Long
hPal As Long
Reserved As Long
End Type
Private Type Guid
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Declare Function OleCreatePictureIndirect& Lib _
"olepro32.dll" (PicDesc As PicBmp, RefIID As Guid _
, ByVal fPictureOwnsHandle&, IPic As IPicture)
Sub SaveRangeAsBmp()
Const Temp$ = "c:Tmp.bmp"
ThisWorkbook.Sheets(2).Range("A1:C3").CopyPicture 1, 2
OpenClipboard 0&
SavePicture CreatePicture(GetClipboardData(2)), Temp
EmptyClipboard
CloseClipboard
With ThisWorkbook.Sheets(1).Range("A1")
.ClearComments
.AddComment
.Comment.Text Text:=""
.Comment.Shape.Fill.UserPicture Temp
End With
On Error Resume Next
Kill Temp
End Sub
Private Function CreatePicture(ByVal hBmp&) As IPicture
Dim Ret&, Pic As PicBmp, IPic As IPicture, IID As Guid
With IID
.Data1 = &H20400
.Data4(0) = &HC0
.Data4(7) = &H46
End With
With Pic
.Size = Len(Pic)
.Type = 1
.hBmp = hBmp
End With
Ret = OleCreatePictureIndirect(Pic, IID, 1, IPic)
Set CreatePicture = IPic
End Function
MP
"Noegor" <nospam-rogeon@vol.lu> a écrit dans le message de news:
OJ9EfR4%23GHA.4980@TK2MSFTNGP04.phx.gbl...
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de
la Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir Noegor;
Tu peux essayer d'insérer la plage en tant qu'image:
Private Declare Function _
CloseClipboard& Lib "user32" ()
Private Declare Function _
OpenClipboard& Lib "user32" (ByVal hwnd&)
Private Declare Function _
EmptyClipboard& Lib "user32" ()
Private Declare Function _
GetClipboardData& Lib "user32" (ByVal wFormat&)
Private Type PicBmp
Size As Long
Type As Long
hBmp As Long
hPal As Long
Reserved As Long
End Type
Private Type Guid
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Declare Function OleCreatePictureIndirect& Lib _
"olepro32.dll" (PicDesc As PicBmp, RefIID As Guid _
, ByVal fPictureOwnsHandle&, IPic As IPicture)
Sub SaveRangeAsBmp()
Const Temp$ = "c:Tmp.bmp"
ThisWorkbook.Sheets(2).Range("A1:C3").CopyPicture 1, 2
OpenClipboard 0&
SavePicture CreatePicture(GetClipboardData(2)), Temp
EmptyClipboard
CloseClipboard
With ThisWorkbook.Sheets(1).Range("A1")
.ClearComments
.AddComment
.Comment.Text Text:=""
.Comment.Shape.Fill.UserPicture Temp
End With
On Error Resume Next
Kill Temp
End Sub
Private Function CreatePicture(ByVal hBmp&) As IPicture
Dim Ret&, Pic As PicBmp, IPic As IPicture, IID As Guid
With IID
.Data1 = &H20400
.Data4(0) = &HC0
.Data4(7) = &H46
End With
With Pic
.Size = Len(Pic)
.Type = 1
.hBmp = hBmp
End With
Ret = OleCreatePictureIndirect(Pic, IID, 1, IPic)
Set CreatePicture = IPic
End Function
MP
"Noegor" a écrit dans le message de news:
OJ9EfR4%Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de
la Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir Noegor;
Tu peux essayer d'insérer la plage en tant qu'image:
Private Declare Function _
CloseClipboard& Lib "user32" ()
Private Declare Function _
OpenClipboard& Lib "user32" (ByVal hwnd&)
Private Declare Function _
EmptyClipboard& Lib "user32" ()
Private Declare Function _
GetClipboardData& Lib "user32" (ByVal wFormat&)
Private Type PicBmp
Size As Long
Type As Long
hBmp As Long
hPal As Long
Reserved As Long
End Type
Private Type Guid
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Declare Function OleCreatePictureIndirect& Lib _
"olepro32.dll" (PicDesc As PicBmp, RefIID As Guid _
, ByVal fPictureOwnsHandle&, IPic As IPicture)
Sub SaveRangeAsBmp()
Const Temp$ = "c:Tmp.bmp"
ThisWorkbook.Sheets(2).Range("A1:C3").CopyPicture 1, 2
OpenClipboard 0&
SavePicture CreatePicture(GetClipboardData(2)), Temp
EmptyClipboard
CloseClipboard
With ThisWorkbook.Sheets(1).Range("A1")
.ClearComments
.AddComment
.Comment.Text Text:=""
.Comment.Shape.Fill.UserPicture Temp
End With
On Error Resume Next
Kill Temp
End Sub
Private Function CreatePicture(ByVal hBmp&) As IPicture
Dim Ret&, Pic As PicBmp, IPic As IPicture, IID As Guid
With IID
.Data1 = &H20400
.Data4(0) = &HC0
.Data4(7) = &H46
End With
With Pic
.Size = Len(Pic)
.Type = 1
.hBmp = hBmp
End With
Ret = OleCreatePictureIndirect(Pic, IID, 1, IPic)
Set CreatePicture = IPic
End Function
MP
"Noegor" a écrit dans le message de news:
OJ9EfR4%Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de
la Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir Noegor;
Tu peux essayer d'insérer la plage en tant qu'image:
Private Declare Function _
CloseClipboard& Lib "user32" ()
Private Declare Function _
OpenClipboard& Lib "user32" (ByVal hwnd&)
Private Declare Function _
EmptyClipboard& Lib "user32" ()
Private Declare Function _
GetClipboardData& Lib "user32" (ByVal wFormat&)
Private Type PicBmp
Size As Long
Type As Long
hBmp As Long
hPal As Long
Reserved As Long
End Type
Private Type Guid
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Declare Function OleCreatePictureIndirect& Lib _
"olepro32.dll" (PicDesc As PicBmp, RefIID As Guid _
, ByVal fPictureOwnsHandle&, IPic As IPicture)
Sub SaveRangeAsBmp()
Const Temp$ = "c:Tmp.bmp"
ThisWorkbook.Sheets(2).Range("A1:C3").CopyPicture 1, 2
OpenClipboard 0&
SavePicture CreatePicture(GetClipboardData(2)), Temp
EmptyClipboard
CloseClipboard
With ThisWorkbook.Sheets(1).Range("A1")
.ClearComments
.AddComment
.Comment.Text Text:=""
.Comment.Shape.Fill.UserPicture Temp
End With
On Error Resume Next
Kill Temp
End Sub
Private Function CreatePicture(ByVal hBmp&) As IPicture
Dim Ret&, Pic As PicBmp, IPic As IPicture, IID As Guid
With IID
.Data1 = &H20400
.Data4(0) = &HC0
.Data4(7) = &H46
End With
With Pic
.Size = Len(Pic)
.Type = 1
.hBmp = hBmp
End With
Ret = OleCreatePictureIndirect(Pic, IID, 1, IPic)
Set CreatePicture = IPic
End Function
MP
"Noegor" <nospam-rogeon@vol.lu> a écrit dans le message de news:
OJ9EfR4%23GHA.4980@TK2MSFTNGP04.phx.gbl...
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de
la Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir Noegor;
Tu peux essayer d'insérer la plage en tant qu'image:
Private Declare Function _
CloseClipboard& Lib "user32" ()
Private Declare Function _
OpenClipboard& Lib "user32" (ByVal hwnd&)
Private Declare Function _
EmptyClipboard& Lib "user32" ()
Private Declare Function _
GetClipboardData& Lib "user32" (ByVal wFormat&)
Private Type PicBmp
Size As Long
Type As Long
hBmp As Long
hPal As Long
Reserved As Long
End Type
Private Type Guid
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Declare Function OleCreatePictureIndirect& Lib _
"olepro32.dll" (PicDesc As PicBmp, RefIID As Guid _
, ByVal fPictureOwnsHandle&, IPic As IPicture)
Sub SaveRangeAsBmp()
Const Temp$ = "c:Tmp.bmp"
ThisWorkbook.Sheets(2).Range("A1:C3").CopyPicture 1, 2
OpenClipboard 0&
SavePicture CreatePicture(GetClipboardData(2)), Temp
EmptyClipboard
CloseClipboard
With ThisWorkbook.Sheets(1).Range("A1")
.ClearComments
.AddComment
.Comment.Text Text:=""
.Comment.Shape.Fill.UserPicture Temp
End With
On Error Resume Next
Kill Temp
End Sub
Private Function CreatePicture(ByVal hBmp&) As IPicture
Dim Ret&, Pic As PicBmp, IPic As IPicture, IID As Guid
With IID
.Data1 = &H20400
.Data4(0) = &HC0
.Data4(7) = &H46
End With
With Pic
.Size = Len(Pic)
.Type = 1
.hBmp = hBmp
End With
Ret = OleCreatePictureIndirect(Pic, IID, 1, IPic)
Set CreatePicture = IPic
End Function
MP
"Noegor" a écrit dans le message de news:
OJ9EfR4%Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de
la Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir Noegor;
Tu peux essayer d'insérer la plage en tant qu'image:
Private Declare Function _
CloseClipboard& Lib "user32" ()
Private Declare Function _
OpenClipboard& Lib "user32" (ByVal hwnd&)
Private Declare Function _
EmptyClipboard& Lib "user32" ()
Private Declare Function _
GetClipboardData& Lib "user32" (ByVal wFormat&)
Private Type PicBmp
Size As Long
Type As Long
hBmp As Long
hPal As Long
Reserved As Long
End Type
Private Type Guid
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Declare Function OleCreatePictureIndirect& Lib _
"olepro32.dll" (PicDesc As PicBmp, RefIID As Guid _
, ByVal fPictureOwnsHandle&, IPic As IPicture)
Sub SaveRangeAsBmp()
Const Temp$ = "c:Tmp.bmp"
ThisWorkbook.Sheets(2).Range("A1:C3").CopyPicture 1, 2
OpenClipboard 0&
SavePicture CreatePicture(GetClipboardData(2)), Temp
EmptyClipboard
CloseClipboard
With ThisWorkbook.Sheets(1).Range("A1")
.ClearComments
.AddComment
.Comment.Text Text:=""
.Comment.Shape.Fill.UserPicture Temp
End With
On Error Resume Next
Kill Temp
End Sub
Private Function CreatePicture(ByVal hBmp&) As IPicture
Dim Ret&, Pic As PicBmp, IPic As IPicture, IID As Guid
With IID
.Data1 = &H20400
.Data4(0) = &HC0
.Data4(7) = &H46
End With
With Pic
.Size = Len(Pic)
.Type = 1
.hBmp = hBmp
End With
Ret = OleCreatePictureIndirect(Pic, IID, 1, IPic)
Set CreatePicture = IPic
End Function
MP
"Noegor" a écrit dans le message de news:
OJ9EfR4%Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C 3 de
la Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA ).
Merci à celle ou celui qui saura.
Noégor
Bonsoir Noegor;
Tu peux essayer d'insérer la plage en tant qu'image:
Private Declare Function _
CloseClipboard& Lib "user32" ()
Private Declare Function _
OpenClipboard& Lib "user32" (ByVal hwnd&)
Private Declare Function _
EmptyClipboard& Lib "user32" ()
Private Declare Function _
GetClipboardData& Lib "user32" (ByVal wFormat&)
Private Type PicBmp
Size As Long
Type As Long
hBmp As Long
hPal As Long
Reserved As Long
End Type
Private Type Guid
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Declare Function OleCreatePictureIndirect& Lib _
"olepro32.dll" (PicDesc As PicBmp, RefIID As Guid _
, ByVal fPictureOwnsHandle&, IPic As IPicture)
Sub SaveRangeAsBmp()
Const Temp$ = "c:Tmp.bmp"
ThisWorkbook.Sheets(2).Range("A1:C3").CopyPicture 1, 2
OpenClipboard 0&
SavePicture CreatePicture(GetClipboardData(2)), Temp
EmptyClipboard
CloseClipboard
With ThisWorkbook.Sheets(1).Range("A1")
.ClearComments
.AddComment
.Comment.Text Text:=""
.Comment.Shape.Fill.UserPicture Temp
End With
On Error Resume Next
Kill Temp
End Sub
Private Function CreatePicture(ByVal hBmp&) As IPicture
Dim Ret&, Pic As PicBmp, IPic As IPicture, IID As Guid
With IID
.Data1 = &H20400
.Data4(0) = &HC0
.Data4(7) = &H46
End With
With Pic
.Size = Len(Pic)
.Type = 1
.hBmp = hBmp
End With
Ret = OleCreatePictureIndirect(Pic, IID, 1, IPic)
Set CreatePicture = IPic
End Function
MP
"Noegor" <nospam-rogeon@vol.lu> a écrit dans le message de news:
OJ9EfR4%23GHA.4980@TK2MSFTNGP04.phx.gbl...
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C 3 de
la Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA ).
Merci à celle ou celui qui saura.
Noégor
Bonsoir Noegor;
Tu peux essayer d'insérer la plage en tant qu'image:
Private Declare Function _
CloseClipboard& Lib "user32" ()
Private Declare Function _
OpenClipboard& Lib "user32" (ByVal hwnd&)
Private Declare Function _
EmptyClipboard& Lib "user32" ()
Private Declare Function _
GetClipboardData& Lib "user32" (ByVal wFormat&)
Private Type PicBmp
Size As Long
Type As Long
hBmp As Long
hPal As Long
Reserved As Long
End Type
Private Type Guid
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Declare Function OleCreatePictureIndirect& Lib _
"olepro32.dll" (PicDesc As PicBmp, RefIID As Guid _
, ByVal fPictureOwnsHandle&, IPic As IPicture)
Sub SaveRangeAsBmp()
Const Temp$ = "c:Tmp.bmp"
ThisWorkbook.Sheets(2).Range("A1:C3").CopyPicture 1, 2
OpenClipboard 0&
SavePicture CreatePicture(GetClipboardData(2)), Temp
EmptyClipboard
CloseClipboard
With ThisWorkbook.Sheets(1).Range("A1")
.ClearComments
.AddComment
.Comment.Text Text:=""
.Comment.Shape.Fill.UserPicture Temp
End With
On Error Resume Next
Kill Temp
End Sub
Private Function CreatePicture(ByVal hBmp&) As IPicture
Dim Ret&, Pic As PicBmp, IPic As IPicture, IID As Guid
With IID
.Data1 = &H20400
.Data4(0) = &HC0
.Data4(7) = &H46
End With
With Pic
.Size = Len(Pic)
.Type = 1
.hBmp = hBmp
End With
Ret = OleCreatePictureIndirect(Pic, IID, 1, IPic)
Set CreatePicture = IPic
End Function
MP
"Noegor" a écrit dans le message de news:
OJ9EfR4%Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C 3 de
la Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA ).
Merci à celle ou celui qui saura.
Noégor
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de la
Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de la
Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor
Bonsoir à Tous,
Sous Xp, Excel2002, je souhaiterais insérer la plage de cellules A1:C3 de la
Feuil2, dans le commentaire de la cellule A1 de la feuil1...( en VBA).
Merci à celle ou celui qui saura.
Noégor