BOISGONTIER
Score de réaction
620

Messages de profil Activités récentes Publications À propos

  • Bonjour monsieur
    Dans votre post concernant : FormRechercheModifAjout.xls
    est-il possible d'ajouter une colonne : Tél Bureau
    En vous remerciant
    Salut,

    Je me permets de t'envoyer ce petit privé car comme tu es à l'origine du code...

    Donc je me permets de te diriger vers le post en question afin de savoir si tu as éventuellement une solution à mon problème.

    C'est ici

    Par avance je te remercie.

    Hulk.
    bjr,

    je me permets de te contacter car j'utilise couramment ton site Excel VBA JB qui est pour moi une source très riche dans mon auto apprentissage de VBA via une appli que je développe pour mon boulot.

    Aujourd'hui je me heurte à un pb dans la manipulation d'objets images dans usf et je n'ai pas trouvé de quoi m'aider sur ton site. D'où ce contact.

    Brièvement mon pb:
    un USF me sert à créer une fiche:
    je charge des images dans l'usf via des loadpicture et je sauve dans la fiche.

    ******************
    car1.Picture = LoadPicture(Mid(FileImg, 2, 200))
    *********************

    j'ai un 2ème menu modif fiche où j'initialise l'USF avec les données de la fiche à modifier, ce qui me donne pour les images:

    ***************************
    Set shp = Sheets("file").Shapes("car1")
    shp.CopyPicture
    Set car1.Picture = PastePicture()
    ***********************************
    Cela fonctionne "visuellement", la bonne image est bien affichée dans l'usf.
    Sauf que ensuite si je veux sauvegarder la fiche modifiée, les images chargées par pastepicture ne sont pas copiées, celles modifiées et chargées par loadpicture sont bien sauvegardées.

    Sais tu quelle est la différence entre

    **************
    Set car1.Picture = PastePicture()
    et
    car1.Picture = LoadPicture(Mid(FileImg, 2, 200))
    ***********************************
    car là est apparemment mo pb sur le nom qu'à car1.picture après chacune de ces fonctions.

    Merci par avance si tu peux m'aider

    code pour copier images dans fiche

    *********************************************
    Sheets("file").Activate
    Sheets("file").Unprotect


    'Copy image from userform in datasheet at the good place and the good size

    Set IPic = car1.Picture
    'Clipboard opening
    OpenClipboard 0&: EmptyClipboard
    'Copy image into clipboard
    hCopy = SetClipboardData(2, IPic.handle)
    'Close clipboard
    CloseClipboard
    'Check if something is in clipboard
    If hCopy Then
    'define where to copy
    Range("J5").Select


    'copy image in the active sheet
    ActiveSheet.Paste

    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Height = ActiveCell.MergeArea.Height
    Selection.ShapeRange.Width = ActiveCell.MergeArea.Width
    Selection.ShapeRange.Rotation = 0#
    Selection.Name = "car1"
    End If
    'Clean variable
    ' DestroyIcon iPic.Handle
    Set IPic = Nothing
    Bonjour,

    Donc si je comprend bien je suis obligé de passer en VBA pour faire ce que je veux? je ne peux pas rester sur des formules simples dans excel?

    Merci encore
    bonjour,

    L'onglet DV2 du dernier fichier excel me convient parfaitement cependant j'ai à nouveau un problème car dans l'exemple il n'y a que 4 semaine. Comment faire si nous avons une infinité de semaine?

    Merci encore
    A nouveau merci

    mais ceci ne réponds pas à ma dernière question car si je met un c pour la colonne S1 avant de mettre le prénom toto sur la même ligne et que toto à déjà un c sur la colonne S1 sur une autre ligne rien ne m'empêche de le faire. Hors moi je souhaiterais ne pas pouvoir mettre toto.

    Merci encore de vous interresser à mon problème
    Bonjour,

    Pour commencer merci cela semble fonctionner à l'infini comme je le souhaite, je souhaiterais maintenant que le système fonctionne dans les deux sens.

    C'est à dire, si on met déjà un c en S1 S2 S3 et que après on sélectionne toto mais que toto à déjà eu un c en S1 S2 S3 il faudrait interdire de sélectionner toto.

    J'espère que c'est clair

    voici le post : http://www.excel-downloads.com/forum/108742-base-de-donn-es.html#post625944

    Merci encore pour vos réponse qui me permettent d'évoluer sur excel.
    Salut mon ami
    si vous permetez je veux savoir le code VB6 qui me permet de passer a l'autre page excel mais rester dans la meme feuille apres l'enregistrement de chaque client
    c'est a dire je veux affecter chaque client a sa propre page excel et dans la meme feuille
    voila le shema
    1-enregistrer le client dans page 1
    2-passer a la page 2 -----voila ce que je cherche
    3-enregistrer client 2
    J'ai créé une liste déroulante (voudrais pour environ 800 références)
    Et je voulais savoir s'il y avait la possbilité d'accéder directement à la référence "X" en tapant le 1er ou jusqu'au premier mot caractère de ma référence.
    Comme sur le filtre automatique proposé par Excel.


    Je voudrais si possible que les colonnes reference designation article et prix ht sois lie
    dans ma liste déroulante et allé ce placé sur la feuille commande

    donc si par exemple je tape directement dans la liste déroulante le premier mot
    ou lettre tomates la liste me propose les choix qui reste
    et la reference et le prix irons ce placer dessus
    comme une basse de donné je pourrais changer les prix sur ma feuille articles
    ma liste reference et designation seront lier et filtrer pas ordre alphabetique

    est ce réalisable !!!


    Merci à tous d'avance, pour votre aide

    ps: je viens de m'abonner au site mais je sais pas comment mettre en lien mon fichier excel pour que vous puissiez voir mon modele excel et je sais pas trop comment le mettre en ligne sur le forrum
    un petit cout de main pour m'expliquer
    encore un grand merci
    Bonsoir Mr Boisgontier, merci pour votre bout de macro, c'est exactement ce que je souhaitais. Du beau travail, de la belle ouvrage, encore merci et bonne soirée.
    CP21
  • Chargement…
  • Chargement…
  • Chargement…