Résultats pour "inserer image cadre userform"

3'704 résultats pour cette recherche

bonjour,

afin d’améliorer un QCM en VBA, j aurais souhaitez insérer une image d' une cellule dans un cadre image en fonction d une question qui elle se situe dans un textBox.

Si quelqu'un à une idée je suis preneur

Merci par avance

et bonne fêtes de fin d'année

Bonsoir, toutes et tous

Je peux insérer des photos dans les cellules d'une feuille

mais je n'arrive pas à les insérer dans un cadre image d'un UserForm

voici mon code

Private Sub Image1_Click()

   If Dir(Répertoire & "\" & Me.TextBox2 & ".jpg") <> "" Then
     Me.Image1.Picture = LoadPicture(Répertoire & "\" & Me.TextBox2 & ".jpg")

     Me.Image1.Picture = LoadPicture(Répertoire & "\" & "transparent.gif")
   ' Me.Image1.Picture = LoadPicture()
    End If
End Sub

Ce code colle l'image dans la feuille excel et non dans le cadre image de L'UF

Merci de votre aide

amicalement

Pierrot

bonjour, voila je voudrais savoir si on peux insérer une image dans un cadre spécifique sans devoir redimensionner l'image?

Bonjour,

Je souhaite extraire toutes les images d'un fichier excel et les enregistrer au format JPG.

Je réussi à extraire les images et les enregistrer avec le code ci-dessous mais malheureusement il me crée systématiquement un cadre blanc / bords blancs autour de la photo

Après de nombres recherches dans les forums et un post sur un autre forum, c'est sans succès.

Quelqu'un aurait il une idée pour supprimer ces bords ou une alternative pour ne pas utiliser la méthode copypicture (qui semble être la source du problème)?

Code et fichier ci-dessous.

Merci beaucoup de votre aide.

Sub Export_Image()
Dim oshape As Shape
Dim strImageName, strshortname, strDirPhotos As String
Dim oDia, oChartArea As Object
Dim origHeight, origWidth As Variant
Dim i As Integer

strDirPhotos = "c:\photos\" ' A modifier
  If Dir(strDirPhotos, vbDirectory) = "" Then MkDir strDirPhotos
On Error GoTo erreurTraitement
i = 0

For Each oshape In ActiveSheet.Shapes
Err.Number = 0
If oshape.Type = 13 Then
   i = i + 1

   strImageName = ActiveSheet.Cells(i, 1).Value

   origHeight = oshape.Height
   origWidth = oshape.Width
   oshape.Select

 '   Picture format initialization
    Selection.ShapeRange.PictureFormat.Contrast = 0.5
    Selection.ShapeRange.PictureFormat.Brightness = 0.5
    Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
    Selection.ShapeRange.PictureFormat.TransparentBackground = msoFalse:
    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.Line.Visible = msoFalse

    Selection.ShapeRange.Rotation = 0
    Selection.ShapeRange.PictureFormat.CropLeft = 0#
    Selection.ShapeRange.PictureFormat.CropRight = 0#
    Selection.ShapeRange.PictureFormat.CropTop = 0#
    Selection.ShapeRange.PictureFormat.CropBottom = 0#
    Selection.ShapeRange.ScaleHeight 1, msoTrue, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleWidth 1, msoTrue, msoScaleFromTopLeft

    '/Picture format initialization

    Application.Selection.CopyPicture

    'Restaure la taille initiale après copie et avant coller
    Selection.ShapeRange.ScaleHeight (origHeight / oshape.Height), msoTrue, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleWidth (origWidth / oshape.Width), msoTrue, msoScaleFromTopLeft

'créé l'objet Chart pour l'export
    Set oDia = ActiveSheet.ChartObjects.Add(0, 0, oshape.Width, oshape.Height)
    oDia.Border.LineStyle = 0
    Set oChartArea = oDia.Chart

    With oChartArea
        .ChartArea.Select
        .Paste
        .Export (strDirPhotos & strImageName & ".jpg")
    End With
    oDia.Delete
    'oshapex.Delete
    'oChartArea.Delete
End If

erreurTraitement:
If Err.Number <> 0 Then MsgBox (Err.Description)
Next

If Err.Number = 0 Then MsgBox ("Export réussi sur " & strDirPhotos)
End Sub
5extractphotos.xlsm (901.17 Ko)

Bonjour,

je ne suis pas du tout un spécialiste d'Excel, raison pour laquelle je fais appel à l'aide de personnes plus expérimentées.

je dois réaliser une 'catalogue' de références, les références sont sélectionnées dans une liste de choix doivent être commentées par l'utilisateur, jusque là pas de problème .

J'ai pensé qu'il serait intéressant que les utilisateurs puissent également visualiser la photo qui correspond à leur sélection.

J'ai donc ajouté dans le tableau qui alimente ma liste de choix une photo pour chaque référence, ce tableau se trouve dans une autre feuille.

Mon souci c'est que je n'arrive pas à afficher la photo de la référence sélectionnée dans le cadre d'image (controle AxtiveX) que j'ai prévu à côté de ma liste de choix.

Pouvez-vous m'aider ??

Merci

Bonjour, j'ai trouvé ce code pour supprimer le cadre de mon userform mais ça me mets en erreur les founctions :

Option Explicit
'Pour enlever la barre de titre du UF
Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Public Const GWL_STYLE = (-16)
Public Const WS_CAPTION = &HC00000
Public Const SWP_FRAMECHANGED = &H20

Public Declare Function FindWindowA Lib "user32" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function GetWindowRect Lib "user32" _
        (ByVal hwnd As Long, lpRect As RECT) As Long

Public Declare Function GetWindowLong Lib "user32" Alias _
        "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias _
        "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
        ByVal dwNewLong As Long) As Long

Public Declare Function SetWindowPos Lib "user32" _
        (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, _
        ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, _
        ByVal wFlags As Long) As Long

Sub OteTitleBarre(stCaption As String, pbVisible As Boolean)
Dim vrWin As RECT
Dim style As Long
Dim lHwnd As Long
'- Recherche du handle de la fenêtre par son Caption
   lHwnd = FindWindowA(vbNullString, stCaption)
    If lHwnd = 0 Then
        MsgBox "Handle de " & stCaption & " Introuvable", vbCritical
        Exit Sub
    End If
    GetWindowRect lHwnd, vrWin
    style = GetWindowLong(lHwnd, GWL_STYLE)
    If pbVisible Then
        SetWindowLong lHwnd, GWL_STYLE, style Or WS_CAPTION
    Else
        SetWindowLong lHwnd, GWL_STYLE, style And Not WS_CAPTION
    End If
    SetWindowPos lHwnd, 0, vrWin.Left, vrWin.Top, vrWin.Right - vrWin.Left, _
    vrWin.Bottom - vrWin.Top, SWP_FRAMECHANGED
End Sub

Si l'ont veux un peu sortir du design traditionnel des UserForm ont peu commencer par enlever le cadre, c'est ce que cette fonction fait.

Voir une démo générale sur ce tuto.

Coller le code ci-dessous dans un module général (Module1 par exemple)

Option Explicit
'Pour enlever la barre de titre du UF
Public Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Public Const GWL_STYLE = (-16)
Public Const WS_CAPTION = &HC00000
Public Const SWP_FRAMECHANGED = &H20

Public Declare Function FindWindowA Lib "user32" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function GetWindowRect Lib "user32" _
        (ByVal hwnd As Long, lpRect As RECT) As Long

Public Declare Function GetWindowLong Lib "user32" Alias _
        "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetWindowLong Lib "user32" Alias _
        "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
        ByVal dwNewLong As Long) As Long

Public Declare Function SetWindowPos Lib "user32" _
        (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, _
        ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, _
        ByVal wFlags As Long) As Long

Sub OteTitleBarre(stCaption As String, pbVisible As Boolean)
Dim vrWin As RECT
Dim style As Long
Dim lHwnd As Long
'- Recherche du handle de la fenêtre par son Caption
    lHwnd = FindWindowA(vbNullString, stCaption)
    If lHwnd = 0 Then
        MsgBox "Handle de " & stCaption & " Introuvable", vbCritical
        Exit Sub
    End If
    GetWindowRect lHwnd, vrWin
    style = GetWindowLong(lHwnd, GWL_STYLE)
    If pbVisible Then
        SetWindowLong lHwnd, GWL_STYLE, style Or WS_CAPTION
    Else
        SetWindowLong lHwnd, GWL_STYLE, style And Not WS_CAPTION
    End If
    SetWindowPos lHwnd, 0, vrWin.Left, vrWin.Top, vrWin.Right - vrWin.Left, _
    vrWin.Bottom - vrWin.Top, SWP_FRAMECHANGED
End Sub

Et dans l'UserForm

Private Sub UserForm_Initialize()
    'Enlever le cadre de l'UF
    OteTitleBarre Me.Caption, False 'True pour le remettre
End Sub

Le cadre étant enlever il n'y a plus la possibilité de déplacer l'UserForm, s'il est nécessaire de le déplacer Voir [UserForm P3]

Bonjour le forum

Je pose mon problème

Un tableau de A à E

A = Nom (TextBox1)

B = Numéro de ligne (TextBox2)

C = Chemin de l'image (Lbl_Image)

D= Image du Nom (Image1)

E = Si Pas Image

Je souhaiterai intégré ceci dans le code di*dessous

si TextBox1 en colonne A2:A n'a pas d'images dans la feuille "Images" de son emplacement attribué de la colonne D2:D

alors charge le logo dans "Image1" de l'userform1 dans la feuille "Images" l'emplacement E2:E5 soit le nom "Pas_Images"

Private Sub CmdB_Ouvrir_Image_Click()
    ' Utiliser la propriété LoadPicture avec GetOpenFilename Méthode pour charger l'image à un contrôle d'image.
    Dim strFltr As String, strTtl As String, strFileName As String
    Dim iFltrIndx As Integer, derlign As Integer
    Dim bMltiSlct As Boolean
    Set Wsi = Sheets("Images")
    ' Valeur de consigne pour les variables à utiliser dans GetOpenFilename Méthode
    strFltr = "Tiff (*.tif;*.tiff),*.tif;*.tiff,JPEG (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap (*.bmp),*.bmp"
    iFltrIndx = 2
    strTtl = "Sélectionnez l'image du contact"
    bMltiSlct = False

    ' Déclaration ChDrive définit le lecteur en cours à C
    ChDrive "C"
    ' Déclaration ChDir définit le répertoire courant C:\Users\Public\Pictures\
    ChDir "C:\Users\Public\Pictures\"        '

    ' Utiliser GetOpenFilename Méthode pour sélectionner l'image: Logo
    strFileName = Application.GetOpenFilename(strFltr, iFltrIndx, strTtl, , bMltiSlct)
    On Error Resume Next
    If strFileName <> "False" Then
        ' Charge image pour le contrôle de l'image, en utilisant la propriété LoadPicture
        Me.Image1.Picture = LoadPicture(strFileName)
        ' Après tout changement vba doit être dit pour rafraîchir la UserForm pour que le changement semble
        Me.Repaint
        ' Etiquette légende change après l'image est chargée
        Me.Lbl_Image.Caption = strFileName
    Else
        MsgBox "Pas d'image sélectionnez!"
    End If
    ' gestionnaire d'erreurs reset
    On Error GoTo 0

End Sub

Cordialement

Bonsoir tout le monde !

Alors voici mon souci. je suis en train de faire un petit fichier permettant de répertorier sa bibliothèque.

Et je bloque au niveau de la couverture.

En effet, je souhaite qu'en cliquant sur un bouton, cela m'ouvre une fenêtre où je peux aller chercher l'image et quand j'appuie sur ok, elle s'affiche dans le champs image et quand je valide l'userform, elle s'affiche dans une cellule.

Je sèche complètement sur le comment faire :/

Merci d'avance !

286bdd-livres.xlsm (24.07 Ko)

Bonjour, le FORUM

J'ai depuis peu, un cadre qui s'affiche avec cette phrase

Je suis sous WINDOWS 10

Avec OFFICE 2019

Merci pour votre solution

(impossible de créer le fichier de travail vérifier la variable temp word)

Fabien67

Bonjour à tous,

Je sollicite l'aide de ce forum car j'ai un fichier Excel avec une base de données et mon exercice est de classer cette base de données selon plusieurs critères.

Premièrement, je dois regrouper les catégories d'articles dans 3 groupes différents (voir feuille "référence) et faire un tableau récapitulatif.

Ensuite (et c'est la que ça se complique) il faut associer à chaque sales specialist un score selon la valeur dans "listing" et son groupe d'article ("Listing threshold").

L'exercice en soi n'est pas bien dur, je saurai le faire manuellement et de tête : si le sales specialist a 500 articles et appartient a telle catégorie, ca lui fait X points etc... Cependant, il y a des centaines de sales specialist dans le fichier et le but est de montrer comment je peux automatiser ou utiliser excel pour répondre à ceci rapidement.

Quelqu'un saurait-il m'aider à réaliser ce travail et à m'expliquer sa méthodologie pour que je le refasse ensuite dans mon coin?

Cela me serai d'une grande aide.

Merci à tous,

Bonne soirée !

C'est vraiment un point de détail mais pour des raisons esthétiques pourriez-vous m'indiquer comment je peux retirer le cadre blanc de mon bouton, ou si je peux lui attribuer une couleur, auquel cas je lui mettrai la couleur de fond d'écran.

Je vous joins les paramètres de ce dernier qui est lié à une image.

parametre bouton

Merci par avance.

bouton

je n'arrive pas a faire ce genre de cadre ??? ou le trouver comment faire ????

Bonjour, alors voila, j 'ai créé un fichier Excel de commande qui tous les jours génèrent un nouveau fichier Excel avec la date du lendemain. Donc les noms des fichiers sont : 18 juin 2018, 19 juin 2018, 20 juin 2018….

Je souhaite faire un fichier « reporting » avec des macros qui récupèreront seulement 2 ligne par fichier (1 ligne avec total des commandes et 1 ligne avec nom des produits commandés)

Les macros permettront d'aller chercher dans chaque fichier d'un dossier (nommé par exemple « Juin2018 » pour les commande de Juin), les données qui nous intéresse et de ranger dans un seul tableau.

Il faut donc récupérer les noms des fichiers de chaque jour du mois puis les coller dans colonne A

On ne sait jamais en quelle position sera la ligne totale chaque jour sur le fichier d'origine. Cependant, les noms de produits sont toujours en 2ème ligne. Mais les noms de produits changent d'un jour à l'autre

Je pense qu'il faut donc faire un truc du style : Pour chaque ligne dans un intervalle, quand cells = "Total", prendre les valeurs de la ligne + les valeurs de la 2ème ligne avec les noms de produits.

Là on aurait donc un truc du style

Produit A Produit B ...

18 juin 2018 Total a récupérer Total a récupérer ...

Produit A Produit C ...

19 juin 2018 Total a récupérer Total a récupérer ...

Produit B Produit D ...

20 juin 2018 Total a récupérer Total a récupérer ...

Il faudrait ensuite trouver un moyen pour que tous les différents produits du mois soient sur une même ligne et 1 colonne par produit, avec en dessous un jour par ligne.

Comme cela :

' Produit A Produit B ...

'18 juin 2018 Total a récupérer Total a récupérer ...

'19 juin 2018 // //

'20 juin 2018 // //

'...

Si quelqu'un voit ce que souhaite faire et qu'il pense savoir le faire, qu'il n'hésite pas à répondre a ce message

Bonjour,

depuis quelques temps, j'ai un cadre qui apparait sur le tableur, lorsque je clique sur certaines cellules.

Voici l'image correspondante.

Cela correspond à "insérer une forme".

Savez vous comment faire pour que ce cadre n'apparaisse plus?

Merci pour votre aide.

wvda

Bonjour à tous,

Après quelques temps de recherche infructueuse sur Google je viens vous poser cette question peut-être pas évidente sur un problème que je rencontre à mon travail.

Nous avons un fichier excel, que nous remplissons journalièrement, une feuille par jour dans le même fichier excel.

La mise en forme du tableau est définie par le client et nous n'avons pas le droit de modifier la taille des celules (sauf pour modification exceptionnelle et définitive).

Nous avons très souvent des contenus de plusieurs paragraphes à coller dans une celule microscopique et donc pas du tout pratique de voir ce qu'il y a dedans.

Ma question serait : est il possible sous excel d'afficher tout le contenu de la celule sélectionnée dans un cadre fixe, qui serait par exemple sur le côté droit du tableau ?

Autre contrainte : Il faudrait que le cadre soit fixe pour qu'il ne bouge pas quand on descend plus bas dans la feuille.

Ce système là est il possible, de quel côté dois-je chercher ?

Ci-joint une image représentant ce dont à quoi je pense .

questions excel

Merci d'avance pour votre aide.

Cordialement,

Gela.

bonjour

je dois actualiser les données dans un document excel existant et établi par une administration

j'ai accès sans problème aux cellules ordinaires excel mais il il y a des cadres de texte qui semblent avoir été insérés en premier plan et je ne peux pas sélectionner le texte pour le modifier

merci d'avance de votre aide

cordialement

hélènet

Bonjour à tous et à toutes

Bonne et heureuse année 2014.

En ce debut d'année 2014, un soucis majeur m'est récurrent dans un programme que m'a proposé mon chef. Ma difficulté réside dans le fait que lorque je saisie une donnée dans une colonne(P4) d'un classeur, je voudrais que cette donnée s'affiche dans un cadre que j'ai déssiné dans le même classeur. j'ai beau éssayé mais hélas. je décide de sollicité votre aide. je vous joins un fichier exemple pour mieux comprendre.

Merci à tous.

Bonjour,

J'ai créer un formulaire où j'affiche des images dans différents cadres à partir de plusieurs boutons de commande. Il faut afficher les images dans chaque cadre dans un ordre précis. Je souhaite mettre en place un contrôle sur chaque boutons de commande afin de vérifier que l'image précédente est bien affiché avant d'afficher la suivante.

If UserForm1.Frame1.picture = False Then
MsgBox "Vous n'avez pas encore affiché la carté précédente."
else 
UserForm1.Frame2.Picture = LoadPicture(Chem_nom2)

Bien sur cela ne fonctionne pas

Bonjour,

Je demande votre aide si vous le souhaitez bien.

Je me heurte sur une difficulté qui est:

d'ajouter des informations sur un tableau en fin de tableau de préférence.

Ce que j'ai fait j'ai créé un UserForm pour que le gestionnaire puisse saisir les informations.

Il y a deux boutons radios qui permet de choisir ente un leecher ou seeder.

Ensuite un petit label qui dit ce que vous avez coché mais aussi ce que vous allez saisir.

Le bouton Ajouter doit me permettre d'ajouter en fin de ligne pour trois informations le statut l'upload et le download autant que je le souhaite.

le bouton Annuler doit me permettre d'annuler tous les saisies que j'ai fait.

voilà le bout de code que j'ai fait pour le bouton Ajouter :

Private Sub B_Ajouter_Click()

    Dim Nom As String
    Dim val As Integer
    val = 39

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''DERNIERE LIGNE'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Range("F3").Select

    'Pour chaque colonne de E à G
    For i = 9 To val
     'on détermine à partir du bas, le rang de la dernière cellule non vide
    Ligne = Cells(65530, i).End(xlUp).Row

    'si le rang trouvé est supérieur au plus grand précédent, "dernière" prend cette valeur:
    If Ligne > dernière Then dernière = Ligne
    Next i

    'Et dernière = 39  , ce qui était demandé. La preuve:
    'Range("E" & dernière).Offset(1, 0).Select

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''' ''''''''''''''''''''''''''''AJOUT DE STATUT ET LES VALEURS DUPLOAD ET DOWNLOAD'''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   'blocage je ne vois pas comment ajouter des lignes

End Sub

le bouton Annuler pas encore faites

ps: est ce qu'il y a un sujet sur la création d'une base de donnée sous excel merci avec la recherche avancé sa me donne un trop grand nombre de résultat que je puisse tous les consulter

cordialement

11me.zip (9.63 Ko)

Recherches récentes

cdblcocherdatebaie informatiquemfccopier collercuveriesuivisharepoint vbasupprimer ligne valeur presente colonne precisecombobox fichier fermeecheancier semaineregrouper donnees ongletsrecuperer ongletsrecupererongletongletsregrouper ongletsrechercher valeur criteregrande valeur critere