Contenu récent par Maspalio

  1. M

    Erreur "6". Probleme de Type.

    Re : Erreur "6". Probleme de Type. Merci pour cette précision Dranreb.
  2. M

    Erreur "6". Probleme de Type.

    Re : Erreur "6". Probleme de Type. Salut Dranreb. Ok, je savais pas que les types des valeurs passées dans le calcul étaient si important que ça, car théoriquement et en pratique elles ne seront jamais plus grande qu'un Integer. C#est pas le iNL qui prime ? ( qui est en Double)
  3. M

    Erreur "6". Probleme de Type.

    Bonjour le Forum. J'ai dans mon code l’exécution suivante : iNL = 4.5 * ((iRdyn * iDehnung1) ^ (1 / 2)) + 2 * (iDN + iI) iNL as Double, les autres as Integer. Selon les valeurs que j'utilise il me renvoie une Erreur "6" Ex : iNL = 4.5 * ((300 * 100 ^ (1 / 2)) + 2 * (32 + 126)...
  4. M

    Sortir de la Sub pour revenir a la userform.

    Re : Sortir de la Sub pour revenir a la userform. Kjin, Parfait, c'est exactement ce que je cherchais. Merci à toi.
  5. M

    Sortir de la Sub pour revenir a la userform.

    Bonjour, J'ai 2 Sub, l'une appelée dans l'autre. Private Sub CommandButtonAuslegung_Click() ValeurDb 'plein de ligne de codes, qui ne servent a rien pour l'exemple :D Private Sub ValeurDb() 'Récuperation des valeurs des Textboxs + Tests If Not...
  6. M

    Récuperer TabIndex

    Re : Récuperer TabIndex Coucou Tototiti2008. Oui, c'etait bien ça.. Merci a toi.
  7. M

    Récuperer TabIndex

    Bonjour, Je bute sur une petit bout de code, qui me permet de récupérer le TabIndex d'un OptionButton. Private Sub CommandButtonAuslegung_Click() Dim iButton As Integer For Each Ctrl In FrameBewegung.Controls If TypeOf Ctrl Is MSForms.OptionButton Then If...
  8. M

    Création d'un UserForm annimé pour faire patienter l'utilisateur

    Re : Création d'un UserForm annimé pour faire patienter l'utilisateur Salut à tous, Fil passionnant. SERIEUXETCOOL, une petite piste à explorer. Utiliser le contrle ImageList en VBA Excel Tres pratique pour stocker les images en dur.
  9. M

    Changer Image dans Userform

    Re : Changer Image dans Userform Finalement, j'ai utilisé la solution que j'ai passé dans le lien dans le post #9 Merci encore a vous 2, pour vos conseils, pour vos infos, on en apprend tout les jours sur Excel, son fonctionnements, ses petits rouages, ;)
  10. M

    Changer Image dans Userform

    Re : Changer Image dans Userform Effectivement, super complexe, et pas forcement utile pour mon classeur. Donc je vais en revenir à mes 2 choix initiaux, mettre X images dans ma userform selon les X conditions, ou alors 1 Image avec X LoadPicture selon un path spécifique. Ni, l'un ni l'autre...
  11. M

    Changer Image dans Userform

    Re : Changer Image dans Userform comme ceci pardon, Image01.Picture = LoadPicture(Worksheets("DB_Pictures").Shapes("Bild 1").Select) mais il affecte rien,
  12. M

    Changer Image dans Userform

    Re : Changer Image dans Userform Tu sais peut être comment on appelle une image dans un sheet en VBA? ActiveSheet.Shapes("Bild 1").Select Cependant je n'arrives pas a faire le Image01.Picture = LoadPicture() de cette image..
  13. M

    Changer Image dans Userform

    Re : Changer Image dans Userform Salut Dranreb. Effectivement, cela fonctionne. Cependant on doit mettre les images dans le même dossier que le classeur Excel lancé. (j’hésite sur l'utilité réelle) Autre question, selon toi qu'elle est la meilleure solution ? sachant que le fichier...
  14. M

    Changer Image dans Userform

    Bonjour, J'ai une Userform avec 5 images en visible=false, que je passe en visible=true selon des conditions passées via des options buttons. Cependant dans le vue d’améliorer mon code, est aussi pour un gain de taille de fichier, je voulais savoir si au lieu de créer 5 images, j'en crée 1...
  15. M

    Masquer/Afficher selon le Optionbutton choisi.

    Re : Masquer/Afficher selon le Optionbutton choisi. Non, c'est moi, Pierrot93. J'avais oublié qu'avec "Next c" que j'avais pas besoin de "Exit For". ;) merci encore. Au final j'ai fait un fonction : Private Sub Choix_OptionButton() Dim c As Control For Each c In...